vb关于二次点击按钮图片消失

显示全部楼层 · 2012-10-27 18:13:32

只要Static一个n，用于记录按按钮的次数，用if语句判断当第二次及第三第四……次按时就清空Image就行了，代码如下：Private Sub Command1_Click()Static n As Integer
Image1.Picture = Command1.Picture
cmdInt = 0
n = n + 1
If n > 1 Then Image1.Picture = LoadPictureEnd Sub...

千问 · 2012-10-27 18:13:32

Private Sub Command1_Click()Static ok As Booleanok = Not okIf ok Then
Image1.Picture = Command1.PictureElse
Image1.Picture = LoadPicture("")End IfcmdInt = 0...

千问 · 2012-10-27 18:13:32

分成2个状态dim I as integerI=1判断I=多少if I=1 then ... I=2else ... I=1end if如此循环...