vb 如何用if语句判断命令按钮是否被鼠标按下,如果按下就在文本筐输出个a?

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Text1 = "a"
End Sub

Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Text1 = ""
End Sub

直接在command1的click事件下编码:
text1.text="a"
步骤:
新建一个命令按钮:command1.一个文本框:text1
下面是代码:
Private Sub Command1_Click()
Text1.Text = "a"
End Sub
没有必要去刻意判断它是否被单击.你只要知道它被单击后发生什么事件就可以了..