BOOL CChessDlg::OnInitDialog() { CDialog::OnInitDialog(); // Add "About..." menu item to system menu. // IDM_ABOUTBOX must be in the system command range. ASSERT((IDM_ABOUTBOX & 0xFFF0) == IDM_ABOUTBOX); ASSERT(IDM_ABOUTBOX AppendMenu(MF_SEPARATOR);
VB 创建菜单单选项,在菜单前面添加一个单选选项,带有选择性的菜单,在需要一些多选一功能的时候,这种菜单就派上用场了,如图所示的菜单效果。 Private Sub Menu_Click(Index As Integer) 菜单数组 Dim hMenu As Long, hSubMenu As Long 声明变量用于保存句柄 hMenu = GetMenu(Me.hwnd) 窗体内菜单句柄 hSubMenu = GetSubMenu(hMenu, 0) 弹出菜单句柄