VB中怎么把事件点击数付值给label1.caption

Question

Private Sub image1_Click()
l1 = 0
If Image1.Picture = LoadPicture("e:\vb\mao.gif") Then
Image1.Picture = LoadPicture
i = i + 1
Label1.Caption = "猫" & i
为什么实现不了？Label1上不能显示为什么？
类型定义过了，还是没用.
额...我开始就定义了DIM i% , i1% ,l1%
Private Sub image1_Click()
l1 = 0
If Image1.Picture = LoadPicture("e:\vb\mao.gif") Then
Image1.Picture = LoadPicture
i = i + 1
Label1.Caption = "猫" & i
ElseIf Image1.Picture = LoadPicture("e:\vb\niu.gif") Then
Image1.Picture = LoadPicture
i1 = i1 + 1
Label2.Caption = "牛" & i1
End If
End Sub
Private Sub Timer1_Timer()
Dim a%, b%, c%
a = 9 * Rnd
c = 2 * Rnd
Select Case a
Case 1
If c > 0 Then
Image1.Picture = LoadPicture("e:\vb\mao.gif")
l1 = 200
Else
Image1.Picture = LoadPicture("e:\vb\niu.gif")
l1 = 200
End If
End Select
End sub
是不是在IF里就不能把事件数付值给Label1的？

Answer 1

你这个肯定是不会显示的。
第一，vb和c、c++、php等不同，你的这句“If Image1.Picture = LoadPicture("e:\vb\mao.gif") Then”是不能成功的，你可以直接使用Image1.Picture = LoadPicture("e:\vb\mao.gif")，但是像你上面那么用是不可以的。
第二、你的这个if语句没有使用end if结束（如果你不是只拷了一段代码的话）。
第三、建议你将变量i声明为静态的（如果是全局变量的话也可以），就是不能使用局部非静态变量。
下面这段代码能够满足你的要求：
Dim i

Private Sub Image1_Click()
Image1.Picture = LoadPicture("F:\壁纸\壁纸\壁纸\001.jpg")
i = i + 1
Label1.Caption = "mao" & i
End Sub

Answer 2

看明白了，全局再定义
dim flag as integer
在Timer1中，装载猫图片时，就flag=1，装载牛图片时，就flag=2
然后，在图片单击中，
Private Sub image1_Click()
static i as integer,i1 as integer

if flag=1 then
Image1.Picture = LoadPicture
i = i + 1
Label1.Caption = "猫" & i
elseif flag=2 then
Image1.Picture = LoadPicture
i1 = i1 + 1
Label1.Caption = "牛" & i
end if