一个很菜的有关问题，求个稍微懂vb的回答一下

2013-10-29

求助一个很菜的问题，求个稍微懂vb的回答一下Private Sub Image1_Click()image4numb 1image4numb2 2End

求助一个很菜的问题，求个稍微懂vb的回答一下
Private Sub Image1_Click()
image4numb = 1
image4numb2 = 2
End Sub

Private Sub Image2_Click()
image4numb = 2
image4numb2 = 2
End Sub

Public Sub Image2_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
msgbox image4numb
msgbox image4numb2
-------------------------------------------------------------------------------------
如上代码，两个msgbox输出都是空白，也就是说这三块程序的变量值是毫不相干的。
怎样的才能使第三部分的msgbox输出前两个事件中的 image4numb和image4numb2的值。

变量 vb 全局
[解决办法]
在窗体代码最上方，定义image4numb和image4numb2

    Dim image4numb As Integer
    Dim image4numb2 As Integer
Private Sub Image1_Click()
    image4numb = 1
    image4numb2 = 2
End Sub

Private Sub Image2_Click()
    image4numb = 2
    image4numb2 = 2
End Sub

Public Sub Image2_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    MsgBox image4numb
    MsgBox image4numb2
End Sub

Image2_Click实际不起作用
[解决办法]
这是因为Image2_MouseMove事件先发生导致image2_Click事件不发生。

引用:

什么叫image2_Click不起作用，，，，
我就想做到点击 image1的时候    image4numb1  是一个值
          而点击image2的时候    image4numb1  是另外一个值
然后让事件3根据  上面得到的值作出相应的反映。
这个有办法实现吗？？？

热点排行

VB

一个很菜的有关问题，求个稍微懂vb的回答一下