VB问题，高手帮助！！！

来源：百度知道 编辑：UC知道 时间：2024/06/08 00:47:42
比如我创建3个命令按钮，分别写上 吃饭中 睡觉中 玩耍中
想要实现的是，点击其中的某个按钮， 可以使这个按钮区别于其他几个按钮。 比如改变按钮上面字的颜色 或者大小。
反正就是想实现这个功能， 有高手有更直接简便的方法更好啊 谢谢大家了！

Dim a1, a2, a3
Private Sub Command1_Click()
Command1.Top = a1 - 100
Command2.Top = a2
Command3.Top = a3
End Sub

Private Sub Command2_Click()
Command2.Top = a2 - 100
Command1.Top = a1
Command3.Top = a3
End Sub

Private Sub Command3_Click()
Command3.Top = a3 - 100
Command1.Top = a1
Command2.Top = a2
End Sub

Private Sub Form_Load()
Command1.Caption = "吃饭中"
Command2.Caption = " 睡觉中"
Command3.Caption = "玩耍中"
a1 = Command1.Top
a2 = Command2.Top
a3 = Command3.Top
End Sub

private sub command吃饭中_click()
command吃饭中.caption = "吃饭中 $"
command睡觉中.caption = "睡觉中"
command玩耍中.caption = "玩耍中"
end sub
private sub command睡觉中_click()
command吃饭中.caption = "吃饭中"
command睡觉中.caption = "睡觉中 $"
command玩耍中.caption = "玩耍中"<