vb中的一个问题

来源:百度知道 编辑:UC知道 时间:2024/09/28 17:28:16
我在做一个类似于打地鼠的问题,请问怎么让随即出现的图片被鼠标击中后图片切换成被打中的图片?
谢谢,不过还有一个问题就是击中图片后计数的标签次数不显示,我把计数的变量设置为h,初始值为0,是写在click语句中的
Private Sub Image2_Click(Index As Integer)
Image2(a).Picture = myList.ListImages(2).Picture
h = h + 1
End Sub
然后在时钟里这样写
Label1.Caption = "Hit:" + Str(h)
但是就是不显示,请问错在哪里?
我把分数提高,谢谢啦

你用的是Image控件吗?
如果是
Private Sub Image1_Click()
Image1.Picture = LoadPicture("图片地址")
End Sub

你的h变量没有声明,所以,只能算是局部变量,也就是只能在一个过程中使用。在(通用)那里(也就是代码的最顶端)声明一个公用变量h试试。
代码:Public h As Long

用一个鼠标事件。看你怎么潘定图片了