初来乍到！有问题请都大家！

Question

menuName.Checked = False

Answer 1

我把代码写出来吧。
我做了一个菜单如下：颜色（主菜单）
                   ....蓝色(MyBlue)
                   ....红色(MyRed)
                   
我的设置如下： 
 private sub Form_load()
 MyRed.Checked = False
 MyBlue.Checked = False '为了在窗口刚开始显示的时候，'红色'(MyRed)和'蓝色'(MyBlue)子菜单没有对号显示。
 End subPrivate Sub MyBlue_Click()
Text1.ForeColor = QBColor(1)
MyBlue.Checked = True 
End sub   '在设置文体框字体颜色的时候，单击，此时，'蓝色'(MyBlue)子菜单上面有对号显示Private Sub MyRed_Click()
Text1.ForeColor = QBColor(12)
MyRed.Checked = True
End Sub  '同上'红色'(MyRed)子菜单上有对号显示现在我的问的是，1.Form窗口刚运行的时候，‘红色’、‘蓝色’子菜单上没有对号。 
               2.单击‘红色’或者‘蓝色’子菜单有个对号显示。
               3.怎么样再次单击的时候，使这个对号消除，而‘红色’和‘蓝色’子菜单一次只能有一个被选中。
大家再不懂，我就没有办法了。

Answer 2

哦，如比
Private Sub MyBlue_Click()

if MyBlue.Checked = True then
MyBlue.Checked = false
MyRed.Checked = True
else
MyBlue.Checked = true
MyRed.Checked = false
end if

End sub  Private Sub MyRed_Click()

if MyRed.Checked =true then
MyBlue.Checked = True
MyRed.Checked = false
else
MyBlue.Checked = false
MyRed.Checked = True
end if

End Sub 不知道是不是你说的

Answer 3

楼上太复杂MyBlue.Checked = Not MyBlue.Checked
MyRed.Checked = Not MyBlue.Checked这样就可以啦