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_ sedown
(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