上传者: 39841856
|
上传时间: 2021-11-26 23:34:12
|
文件大小: 2KB
|
文件类型: -
VB 创建菜单单选项,在菜单前面添加一个单选选项,带有选择性的菜单,在需要一些多选一功能的时候,这种菜单就派上用场了,如图所示的菜单效果。
Private Sub Menu_Click(Index As Integer) '菜单数组
Dim hMenu As Long, hSubMenu As Long '声明变量用于保存句柄
hMenu = GetMenu(Me.hwnd) '窗体内菜单句柄
hSubMenu = GetSubMenu(hMenu, 0) '弹出菜单句柄
CheckMenuRadioItem hSubMenu, 0, 2, Index, MF_BYPOSITION '单选选中的菜单项
End Sub