先在属性窗口把Command1的Style属性改为1,然后输入以下代码: Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.BackColor = vbRedEnd Sub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.BackColor = &H8000000FEnd Sub...
|