VB 菜单粗斜体编程问题

在事件里写
不知道你的菜单名称（变量名）是什么，就用中文说明一下吧
正常，粗体，斜体，粗体加斜体为菜单名称

Private Sub 粗体_Click()
粗体.Checked = True
斜体.Checked = False
粗斜体.Checked = False
正常.Checked = False
Text1.FontBold = True
Text1.FontItalic = False
End Sub

Private Sub 粗斜体_Click()
粗斜体.Checked = True
粗体.Checked = False
斜体.Checked = False
正常.Checked = False
Text1.FontBold = True
Text1.FontItalic = True
End Sub

Private Sub 斜体_Click()
粗体.Checked = False
斜体.Checked = True
粗斜体.Checked = False
正常.Checked = False
Text1.FontBold = False
Text1.FontItalic = True
End Sub

Private Sub 正常_Click()
粗体.Checked = False
斜体.Checked = False
粗斜体.Checked = False
正常.Checked = True
Text1.FontBold = False
Text1.FontItalic = False
End Sub

具体的代码不写了，提示你这个功能只需要控制好各项菜单的checked属性就可以了，需要被勾选，那么checked=true，反之则checked=false。