If CType(Controls("控件名字"), RadioButton).Checked = True Then '选中
创新互联建站专注于太和企业网站建设,成都响应式网站建设,商城系统网站开发。太和网站建设公司,为太和等地区提供建站服务。全流程按需设计网站,专业设计,全程项目跟踪,创新互联建站专业和态度为您提供的服务
Else '未选中
End If
'如果在 GroupBox或者panel等控件中用下面的方式
If CType(GroupBox1.Controls("控件名字"), RadioButton).Checked = True Then '选中
Else '未选中
End If
ToolStripMenuItem.ShortcutKeys 属性
获取或设置与 ToolStripMenuItem 关联的快捷键。
使用 ShortcutKeys 属性可以将组合键分配给菜单命令,例如,将 Ctrl+C 分配给“复制”命令。 您可以使用快捷键而不使用访问键,也可以同时使用快捷键和访问键,访问键是菜单或菜单项中与 Alt 键一起使用的带下划线的字母。 通过在要用于访问键的字母前面键入一个“and”符 (),可以在代码中定义访问键。
添加一个OPTION控件,复制-粘贴,建立 控件组
比如复制6个
代码如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption "被选中"
Next
End Sub