Question

VB下拉菜单

请问我弄了一个VB的下拉菜单带复选的
我怎么才能动态的改变他是否被选呢?
就是点一次出现前面的小钩在点一次消失
在单击事件里怎么写?
还有个问题请教一下 怎么动态的改变下拉菜单中的功能是否可用(是否有效.有效黑的,无效灰的点不了的那种)?

Answer 1

复选使用checked方法
Private Sub Menu_Click()
If Menu.Checked = True Then
Menu.Checked = False
MsgBox "菜单未选中"
Else
Menu.Checked = True
MsgBox "菜单选中"
End If
End Sub

有效使用enabled方法
Private Sub Command1_Click()
Menu.Enabled = True'菜单为黑,有效
End Sub

Private Sub Command2_Click()
Menu.Enabled = False'菜单为灰,无效
End Sub