燃煤锅炉规格:[VB★简★单★]非常简单的VB问题!!!!!!!!!!!答对追加悬赏!!!!!!!!!
………………我就是不知道代码………………………………………………………………………………………………………………………………………………………………
在通用部分定义一个公共变量Public bIsClick As Integer
Private Sub Image1_Click()
If (bIsClick <> 1) And (bIsClick <> 2) Then
bIsClick = 1
End If
If bIsClick = 1 Then
Image1.Picture = LoadPicture(App.Path + "\1.JPG")
bIsClick = 2
Exit Sub
ElseIf bIsClick = 2 Then
Image1.Picture = LoadPicture(App.Path + "\2.JPG")
bIsClick = 1
Exit Sub
End If
End Sub
在鼠标按下的事件里写代码更换图片啊。
在image2控件上增加鼠标点击事件,在里边写更换图片代码就可以了
.....
最简单的方法 if Click_Image2 then image2=2.bmp 改下路径啊大哥
private sub image2_click()
Static CtrlVal As Boolean '定义一个布尔型静态变量
CtrlVal = Not CtrlVal
If CtrlVal Then
Image2.Picture = LoadPicture(App.Path & "\1.bmp")
Else
Image2.Picture = LoadPicture(App.Path & "\2.bmp")
End If
end sub
注意图片路径