Question

VB鼠标按下弹起事件

按下执行
Command1.Visible = False
Command2.Visible = True
松开执行
Command1.Visible = True
Command2.Visible = False
求代码~~~

Answer 1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = False
Command2.Visible = True
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Visible = True
Command2.Visible = False
End Sub

很好使啊

追问

换成是Command1的事件怎么不能运行

Answer 2

用KEYUP 和KEYDOWN事件 最重要的一点 窗体的KeyPreview事件一定要设置为True

Answer 3

设置按键事件的程序
然后里面弄个公共变量
按一次翻转一次状态
a=-a

追问

不懂~~最好能给代码

追答

按钮按下事件，明白不

追问

我不是要按一次翻转一次状态,我是要按下去（此时手没松开）
Command1.Visible = False
Command2.Visible = True
一旦手松开
Command1.Visible = True
Command2.Visible = False

Answer 4

用KEYUP 和KEYDOWN事件

追问

不行啊！MouseDown和Mouseup也试过了.一样不行啊