Дмитрий77Если верхняя полоска меню скрыта, т.е.
1.
2.
menu_File.Visible=False
menu_View.Visible=False
А я использую
1.
2.
3.
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then Me.PopupMenu menu_View
End Sub
То вся эта байда перестает работать
Как выкручиваться.
Ну вроде выкрутился.
Смысл в том, что если меню не видимо (в верхней полоске), то при вызове popup оно каждый раз создается заново с новым hwndMenu, а не с одним и тем же соответствующем subMenu как в случае присутствия в верхней полоске меню. При выгрузке popup это меню соответственно уничтожается, и информация о том что item был radio уничтожается тоже, информацию про галку VB6 видимо как-то хранит в своих "таблицах", а radio он ничего не знает, т.е. в этом случае radio не может быть ячейкой хранения информации.
Делается так:
Например есть:
1.
2.
3.
menu_View -> menu_ViewGroup -> menu_ViewGroupProperty1
-> menu_ViewGroupProperty3
-> menu_ViewGroupProperty3
Создаем дублирующее
1.
2.
3.
menu_GroupHide -> menu_GroupHideProperty1
-> menu_GroupHideProperty2
-> menu_GroupHideProperty3
И в нем храним "нужную галку"
При загрузке формы проставляем например галку под "Property 1" (в скрытом дубле)
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
Private Sub Form_Load()
SetMyHideProperty 1
OldFormMeWindowProc = SetWindowLong( _
Me.hwnd, GWL_WNDPROC, _
AddressOf NewFormMeWindowProc)
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then Me.PopupMenu menu_View
End Sub
Private Sub menu_ViewGroupProperty1_Click()
SetMyHideProperty 1
End Sub
Private Sub menu_ViewGroupProperty2_Click()
SetMyHideProperty 2
End Sub
Private Sub menu_ViewGroupProperty3_Click()
SetMyHideProperty 3
End Sub
Private Sub SetMyHideProperty(the_prop As Long)
menu_GroupHideProperty1.Checked = IIf((the_prop = 1), True, False)
menu_GroupHideProperty2.Checked = IIf((the_prop = 2), True, False)
menu_GroupHideProperty3.Checked = IIf((the_prop = 3), True, False)
End Sub
Ну а при вызове popup уже рисуем radio на нужном menu_ViewGroupProperty в соответствии с галкой на скрытом menu_GroupHideProperty
WM_INITMENUPOPUP дает hwnd(popupMenu) + нек. свойства, напр. надо исключить системное меню, ну и правдами и неправдами не перепутать с чем-нибудь "чужим" -решение зависит от контекста - универсальности фиг добьешься.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
Private Const WM_INITMENUPOPUP = &H117
Select Case Msg
Case WM_INITMENUPOPUP 'menu
Debug.Print "WM_INITMENUPOPUP-" & wParam & " - " & CBool(HIWORD(lParam)) & " - " & LOWORD(lParam)
If (CBool(HIWORD(lParam)) = False) And (LOWORD(lParam) = 0) Then
'CBool(HIWORD(lParam)) = True это НЕ popup, а меню заголовка окна (развернуть-минимизировать)
'LOWORD(lParam) = 0 означает, что вызвали popup, а не какое-то его submenu
'(по крайней мере у нас нет submenu в п.0)
'radio устанавливается в момент вызова основного popup
'если вдруг (но не в нашем случае)код сработает при раскрытии submenu,
'то hSubMenu даст 0,и sub выйдет по страховке ничего не сделав
If Form1.menu_GroupHideProperty1.Checked Then
SetRadioMenuChecksCustom wParam, 0, 0, 2, 1
Debug.Print "Radio set to 1"
ElseIf Form1.menu_GroupHideProperty2.Checked Then
SetRadioMenuChecksCustom wParam, 1, 0, 2, 1
Debug.Print "Radio set to 2"
ElseIf Form1.menu_GroupHideProperty3.Checked Then
SetRadioMenuChecksCustom wParam, 2, 0, 2, 1
Debug.Print "Radio set to 3"
End If
End If
...
Public Sub SetRadioMenuChecksCustom(topMenu As Long, ByVal mnuItem As Long, _
ByVal idFirst As Long, ByVal idLast As Long, _
Optional ByVal subMenuIndex As Long = -1)
Dim hMenu As Long
Dim hSubMenu As Long
'hSubMenu - the pop menu handle
hSubMenu = topMenu
'get the submenu handle
If subMenuIndex > -1 Then hSubMenu = GetSubMenu(hSubMenu, subMenuIndex)
If hSubMenu <> 0 Then CheckMenuRadioItem hSubMenu, idFirst, idLast, mnuItem, MF_BYPOSITION
End Sub
Не, ну дурдом еще тот конечно.
