Tooltip für Menü

  • VB6

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von Mad Andy.

    Tooltip für Menü

    Hallo NG,
    suche eine Möglichkeit, TooltipTexte für Menüs anzeigen zu lassen.
    Die HelpContextID aus dem Menü-Editor wollte ich dafür nicht verwenden,
    da mir die Erstellung einer Hilfe-Datei zu umständlich ist.

    Menü-Beispiel in Form1:

    Test1 (mnuTest1)
    ...Test1a (mnuTest1a)
    ...Test1b (mnuTest1b)
    Test2 (mnuTest2)
    ...Test2a (mnuTest2a)
    ...Test2b (mnuTest2b)

    Wenn man jetzt mit den Mauszeiger auf Test1, Test2 bewegt, wird der Menüpunkt
    hervorgehoben, bzw. weitere Untermenüpunkte nach Anklicken markiert. Es müssen also Windows-Ereignisse (vllt. MouseOver ?) stattgefunden haben.
    Jetzt wollte ich eben diese MouseOver-Ereignisse auswerten und einen entspr. Tooltip anzeigen,
    wenn so ein Menüpunkt mit dem Mauszeiger berührt wird.
    In diversen Beispielen wird zur Auswertung immer die Konstante WM_MENUSELECT herangezogen.
    Das funktioniert jedoch nicht so wie gewünscht. Erst nach einem Mausklick auf Test1 bzw. Test2 in diesem Beispiel kommt ein Ergebnis mit WM_MENUSELECT.

    In Form1:

    Visual Basic-Quellcode

    1. Option Explicit
    2. Private Sub Form_Load()
    3. Call Init(Me.hwnd) 'Subclassing starten
    4. End Sub
    6. Private Sub Form_Unload(Cancel As Integer)
    7. Call Terminate(Me.hwnd) 'Subclassing beenden
    8. End Sub
    10. Private Sub Auswertung(irgendetwas) 'Soll aus modul1.bas aufgerufen werden
    11. stop
    12. debug.Print irgendetwas
    13. End Sub


    In Modul1.bas:

    Visual Basic-Quellcode

    1. Option Explicit
    2. 'Einsprung-Adresse der bestehenden Fensterprozedur
    3. Private Declare Function SetWindowLong Lib "user32" Alias _
    4. "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex _
    5. As Long, ByVal dwNewLong As Long) As Long
    7. 'Für ursprüngliche Fensterprozedur
    8. Private Declare Function CallWindowProc Lib "user32" Alias _
    9. "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal _
    10. hwnd As Long, ByVal Msg As Long, ByVal wParam As _
    11. Long, ByVal lParam As Long) As Long
    13. 'Windows-Standard Fenster-Prozedur
    14. Private Declare Function DefWindowProc Lib "user32" Alias _
    15. "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As _
    16. Long, ByVal wParam As Long, ByVal lParam As Long) _
    17. As Long
    19. 'Konstanten
    20. Const GWL_WNDPROC = (-4&;)
    22. 'Für das Terminieren
    23. Const WM_DESTROY = &H2
    25. 'Menüs
    26. Const WM_MENUCOMMAND = &H126
    27. Const WM_MENUDRAG = &H123
    28. Const WM_MENUGETOBJECT = &H124
    29. Const WM_MENUSELECT = &H11F
    31. 'Adresse der ursprünglichen Fensterprozedur
    32. Dim PrevWndProc&
    34. 'Starten des Subclassings und speichern der alten Einsprungsadresse
    35. Public Sub Init(hwnd As Long)
    36. PrevWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf SubWndProc)
    37. End Sub
    39. 'Auflösen Subclassing und Wiederherstellen der
    40. 'Einsprungsadresse der ursprünglichen Fensterprozedur
    41. Public Sub Terminate(hwnd As Long)
    42. Call SetWindowLong(hwnd, GWL_WNDPROC, PrevWndProc)
    43. End Sub
    45. 'Eigene Fensterprozedur
    46. Private Function SubWndProc(ByVal hwnd As Long, ByVal Msg As Long, _
    47. ByVal wParam As Long, ByVal lParam As Long) _
    48. As Long
    49. select case msg
    51. Case WM_MENUCOMMAND
    52. Debug.Print "WM_MENUCOMMAND", Msg
    54. Case WM_MENUDRAG
    55. Debug.Print "WM_MENUDRAG", Msg
    57. Case WM_MENUGETOBJECT
    58. Debug.Print "WM_MENUGETOBJECT", Msg
    60. Case WM_MENUSELECT
    61. Debug.Print "WM_MENUSELECT", Msg, wParam, lParam
    63. End Select
    65. Call Form1.Auswertung(irgendetwas)
    67. End Sub



    Habe es noch mit den Konstanten WM_MENUCOMMAND, WM_MENUDRAG und
    WM_MENUGETOBJECT versucht. Das klappt leider auch nicht.

    Wäre dankbar für einen Hinweis. Welche Konstante(n) werden dafür benötigt.
    gruss

    Edit by Agent: VB-Tag eingefügt

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Agent“ ()

Facebook
Telefonspende