vb-control-image.txt

在多媒体设计中

VB 调用 IMAGE 控件实现图像缩放的一种方法 

在多媒体设计中，图像处理是关键环节。根据窗口界面的大小，图像大小和图形方式下的文字的大小的相应调整，则是一个图形应用软件要做到的基本要求之一。利用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
     Im1.Height = 0.9 * Im1.Height
     For zh = 0 To 13
     Image1(zh).Left = 
	 -480 + 0.89 * (Image1(zh).Left + 480)
     Image1(zh).Top = 0.89 * (Image1(zh).Top)
     Next zh
     
  End If
Text1.Visible = False
HS1.Max = Im1.Width
vs1.Max = Im1.Height
End Sub
  
Private Sub hs1_change()
Im1.Left = -HS1.Value
End Sub

Private Sub vs1_change()
Im1.Top = -vs1.Value
End Sub

Private Sub im1_mousedown
(button As Integer, shift As 
Integer, x As Single, y As Single)
If button = vbRightButton Then 
（鼠标按下后触发其它的弹出式菜单）
   PopupMenu popup
   End If
End Sub

Private Sub Image1_Click(Index As Integer)
Dim v As Long
Text1.Visible = True

v = Index
 Set mydb = OpenDatabase("c:\p\kuang.mdb")
   sql = "select tong.编码,tong.内容 from tong"
   Set myrs = mydb.OpenRecordset(sql, dbOpenSnapshot)
myrs.Move v     （根据当前坐标点的位置进行调整）
Text1.Text = myrs.Fields("内容")
End Sub