VB 调用 IMAGE 控件实现图像缩放的一种方法
VB的功能强大，应用范围广。VB是标准的面向对象编程语言可视编程，采用事件驱动的编程技术。VB含有大量的VBX(控件)。这是一种针对VB的已经编写好的程序，它们在VB中以各种可视的控制对象的形式出现，例如图形按钮，文字编辑框等等，用户根据自己的需要可直接使用，使编程就象使用积木搭建房屋一样简单。
在多媒体设计中，图像处理是关键环节。根据窗口界面的大小，图像大小和图形方式下的文字的大小的相应调整，则是一个图形应用软件要做到的基本要求之一。利用VB中的IMAGE控件可以实现图像缩放、相应调整，可以使软件界面更清晰、友好。
具体编程如下：
Option Explicit
Private mydb As Database
Private myrs As Recordset
Private mystate As Byte
Private sql As String
Public z (定义 z 为公共变量)
Private Sub a_Click()
Form2.Show
Form3.Hide
End Sub
(不同的按钮，触发不同事件)
Private Sub f_Click()
End
End Sub
Private Sub b_Click()
Form4.Show
End Sub
Private Sub g_Click()
z = 1
End Sub
Private Sub h_click()
z = 2
End Sub
Private Sub im1_Click( )
Dim zh, fan As Integer （定义 zh 和fan 为整形变量）
If Im1.Width < Pi1.Width Then
HS1.Visible = False
Else
HS1.Visible = True
End If
If Im1.Height < Pi1.Height Then
vs1.Visible = False
Else
vs1.Visible = True
End If
If z = 1 Then （放大图象按钮被触发的时候，执行以下程序）
Im1.Width = 1.1 * Im1.Width
Im1.Height = 1.1 * Im1.Height
For zh = 0 To 13
Image1(zh).Left = -480 + 1.1123 * (Image1(zh).Left + 480)
Image1(zh).Top = 1.111 * (Image1(zh).Top)
Next zh
End If
If z = 2 Then （缩小图象按钮被触发的时候，执行以下程序）
Im1.Width = 0.9 * Im1.Width
补充：软件开发 , Vb ,
- 更多VB疑问解答：
- 批处理转移文 之errorlevel
- vb 6.0 调用vb.net dll混合程序集错误
- VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
- 求助在Dir1控件当前目录下新建一个文件夹的代码
- CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
- 有两个磁盘阵列,如何使用能达到最好的效果
- cloudStack 如何实现 vSphere的DRS功能
- 和难缠客户的那些事儿
- 批处理转移文 之errorlevel
- vb 6.0 调用vb.net dll混合程序集错误
- VB inet控件访问ftp 本机测试通过客户机inet控件使用失败。急！！
- 求助在Dir1控件当前目录下新建一个文件夹的代码
- CreateObject创建Word Excel对象失败，提示，无法加载DLL，怎么解决？
- 有两个磁盘阵列,如何使用能达到最好的效果
- cloudStack 如何实现 vSphere的DRS功能
