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

Private Sub Command1_Click() Image1.Picture = Command1.Picture cmdInt = 0 End Sub 如何再次点击载入的图片消失

&quot.Picture = LoadPicture(&quot.Picture Else Image1Private Sub Command1_Click() Static ok As Boolean ok = Not ok If ok Then Image1.Picture = Command1

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

不知所云~

如果你想点击一个按钮执行不同代码的话,就用判断的~设置一个全局变量,初始值赋0，第一次点击判断是否为0，是就执行代码,然后再设置变量为1，第二次点击自然就会执行其他的语句~

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