Question

vb6里，如何把一次鼠标的双击事件变成两次单击

vb6，我想把一次双击变成MouseDown-MouseUp-MouseDown-MouseUp，

怎么办？

Answer 1

你只要在 控件.DblClick() 事件里，执行CALL 控件.Click() 两次，就达到了点击两次的目的。

追问

具体代码怎么写？我刚学，不会弄。

Private Sub Form_DblClick()
Call Form.Click
Call Form.Click
Call Form.MouseDown
Call Form.MouseUp
End Sub

追答

Click就是鼠标按下，再抬起的过程，你只要在Form.Click()里添加上你需要执行的代码就可以了。

也就是说你
执行单击

时，想干什么？

Private Sub Form_DblClick()
Call Form_Click
Call Form_Click
End Sub

Private Sub Form_Click()
'...单击时，你想干什么？？
End Sub

追问

谢谢了！
没有Private Sub Form_Click()
只有Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
call怎么写？

追答

不明白，你为什么不用Private Sub Form_Click()，非要用Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

你把Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)改成Private Sub Form_Click()不就行了。
非要用的话：
Call Form_MouseDown(1, 0, 0, 0)