VB制作程序

来源：百度知道 编辑：UC知道 时间：2024/05/28 07:46:31
2个按键效果是让自己键位变黑 再通过另一个按键使这2个键恢复 希望提供些有关脚本
如果是Toolbar1_ButtonClick 该怎么写呢

你要的程序来了,自己特意为你写的,已经验证OK!!!

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1 '如果按第一个,使自己变黑
Toolbar1.Buttons(1).Enabled = False
Case 2 '如果按第二个,使自己变黑
Toolbar1.Buttons(2).Enabled = False
Case 3 '如果按第三个,前两个恢复
Toolbar1.Buttons(1).Enabled = True
Toolbar1.Buttons(2).Enabled = True
End Select
End Sub

呵呵,我也是VB爱好者,互相学习学习!!!

Private Sub CommandButton1_Click()
CommandButton1.Enabled = False
End Sub

Private Sub CommandButton2_Click()
CommandButton2.Enabled = False
End Sub

Private Sub CommandButton3_Click()
CommandButton1.Enabled = True
CommandButton2.Enabled = True
End Sub