文件名称：VB 创建菜单单选项.rar
文件大小：2KB
文件格式：RAR
更新时间：2022-07-30 11:46:27
VB源码-窗体界面
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
【文件预览】：
srcfans.com
----创建菜单单选项()
--------Form1.frm(2KB)
--------工程1.vbp(625B)
--------MSSCCPRJ.SCC(190B)
--------工程1.vbw(49B)