Question

请问高手VB菜单栏中当我选择中文时就打上勾,选择英文时英文打上勾

我要做个可以选择语言的，就是在菜单-语言下面有两个子菜单 一个是中文 一个是英文 默认就中文打上勾，当我选择英文时英文打上勾，选择中文时中文打上勾

Answer 1

你用的是菜单编辑器对吧
你添加中文，英文两个标签的时候都把复选的勾给打上
然后添加代码
假设中文选项名称为chinese，英文的为english

Private Sub chinese_Click()
chinese.Checked = True
english.Checked = False
End Sub
Private Sub english_Click()
chinese.Checked = False
english.Checked = True
End Sub
Private Sub Form_Load()
chinese.Checked = True
english.Checked = False
End Sub

追问

这个我想到了，就是如果说我要选择的语言多的话，用这种方法是不可取的。想问下，有没有其他的方法可以实现的

追答

里面有个索引，你依次添加，你把名称都设为相同，索引那里依次填入0-xx，这样生成的就是按钮数组，接下来就用for循环控制就行

追问

那代码怎么写？

追答

Private Sub language_Click(Index As Integer)
For i = 0 To language.Count - 1
If i = Index Then
language(i).Checked = True
Else
language(i).Checked = False
End If
Next
End Sub
Private Sub Form_Load()
For i = 0 To language.Count - 1
If i = 0 Then '假设第一个为中文
language(i).Checked = True
Else
language(i).Checked = False
End If
Next
End Sub

Answer 2

这个就是用单选框，在鼠标单击的事件中，让单选框的值为选中就可以了