神啊，救救我吧

Question

有意思，form1_Queryunload怎么会有button参数，哪来的？

Answer 1

你写的应是mousedown,mouseup ,mousemove事件。
button 表示mouse的左中右键
shift表示是否有ctrl,shift,alter按下.

Answer 2

怀疑，怎么会有Button参数！！

Answer 3

'询问是否退出
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    
    Dim tmp
    tmp = MsgBox("Are You Want to Exit?", vbOKCancel, "Test")
    If tmp = vbCancel Then
       Cancel = 1
    End If
    
End Sub

Answer 4

谢谢各位的回复！
源码今个俺有点记不清了，明天俺再将源码奉上。
俺确实看见过有button参数！

Answer 5

private sub label_mousemove(index as integer,button as integer
                      shift as integer,x as single,y as single)
    .........
   ........
end sub
俺的书上没有指示，
特来向高人请教各参数的意思，
万望答复，
谢谢！！！

Answer 6

index是label控件数组的索引值，button是鼠标的键值
shift是指shift贱是否按下
x,y表示鼠标的位置

Answer 7

到底是form还是label啊？
受不了你。。
如果是:
private sub label_mousemove(index as integer,button as integer
                      shift as integer,x as single,y as single)index  是数组的索引
button 是鼠标的按键 1左2右
shift  是键盘按键   1shift 2ctrl 4alt
x , y 是鼠标的坐标

Answer 8

button 参数表示左键或右键
shift  参数表示快捷键