Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Problem noch nicht geknackt: Wie bekommt Dropdownlistbox neues Popupmenü
Autor: JOMA
Datum: 04.06.03 08:51
Hallo RalfH! Das Problem Combobox mit eigenem Popupmenü ist wohl doch etwas schwieriger für mich als ich dachte. Ich brache noch Hilfe. Warum der ganze Aufwand: Ich möchte das Standardpopupmenü um den Eintrag: alle Einträge löschen erweitern. Meine bisherigen "Erkenntnisse": - da die Combobox keine eigenen Mause-Events hat, werden die Windows-Message abgefangen und solange gewartet bis der richtige Absender (die Combobox) kommt. In diesem Fall wird die Nachricht entfernt und es kommt kein Standardpopupmenü. Hier liegt das 1. Problem: das Beispiel fragt nur nach Klassen, und nicht nach einer bestimmten Komponente. Es würden also alle Comboboxen plötzlich das neue Verhalten haben und nicht nur die 1, die es sein soll. 2. Problem: das eingebaute frm_main.cb_no_profil.PopupMenue ... bewirkt einen Programmabsturz!?! An der Lösung bin ich sehr interessiert, da man sie beliebig ausbauen könnte!!! frm_main.cb_no_profil --> Name der Combobox '************************************************************************ Public Declare Function SetWindowsHookEx Lib "user32" _ Alias "SetWindowsHookExA" (ByVal idHook As Long, _ ByVal lpFn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Public Declare Function UnhookWindowsHookEx Lib "user32" _ (ByVal hHook As Long) As Long Public Declare Function GetCurrentThreadId Lib _ "kernel32" () As Long Private Declare Function CallNextHookEx Lib "user32" _ (ByVal hHook As Long, ByVal nCode As Long, _ ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetClassName Lib "user32" _ Alias "GetClassNameA" (ByVal hWnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Public Const WM_RBUTTONUP = &H205 Public Const WH_MOUSE = 7 Public Type POINTAPI X As Long y As Long End Type Public Type MOUSEHOOKSTRUCT pt As POINTAPI hWnd As Long wHitTestCode As Long dwExtraInfo As Long End Type '*************************************************************************** ' Maus-Ereignisse abfangen Public Function wbMausProc(ByVal nCode As Long, _ ByVal wParam As Long, MOUSEHOOK As MOUSEHOOKSTRUCT) As Long Dim sBuffer As String Dim sClassName As String Dim Result As Long ' rechte Maustaste wird losgelassen With MOUSEHOOK If (nCode >= 0 And wParam = WM_RBUTTONUP) Then sBuffer = Space(255) ' Klassenname sClassName = "ThunderComboBox" --> eigentlich schon Fehler da alle Comboboxen ' Klassennamen des Objektes ermitteln, in welchem ' der Mausklick erfolgte Result = GetClassName(frm_main.cb_no_profil.hWnd, sBuffer, Len(sBuffer)) If Result > 0 Then If Left$(sBuffer, Result) = sClassName Then 'Popupmenü erzeugen 'bewirkt jedoch nichts!!!!! frm_main.cb_no_profil.PopupMenu mnuTest, _ vbPopupMenuRightButton, _ frm_main.cb_no_profil.Left, _ frm_main.cb_no_profil.Top + frm_main.cb_no_profil.Height wbMausProc = 1 Exit Function End If End If End If End With ' Mausereignis "weiterleiten" wbMausProc = CallNextHookEx(glbMausProc, nCode, wParam, _ MOUSEHOOK) End Function ********************************** frm_main, Ereignis: FormLoad 'Windows benachrichtigen, daß Maus-Ereignisse an "unsere" 'wbMausProc geleitet werden sollen glbMausProc = SetWindowsHookEx(WH_MOUSE, AddressOf wbMausProc, App.hInstance, GetCurrentThreadId) ********************************** frm_main, Ereignis: FormUnload '"Nachrichten-Umleitung" wieder aufheben UnhookWindowsHookEx glbMausProc 0

Problem noch nicht geknackt: Wie bekommt Dropdownlis...	660	JOMA	03.06.03 18:57
Re: Problem noch nicht geknackt: Wie bekommt Dropdow...	371	E7	03.06.03 19:46
Re: Problem noch nicht geknackt: Wie bekommt Dropdow...	399	JOMA	03.06.03 20:10
Re: Problem noch nicht geknackt: Wie bekommt Dropdow...	376	JOMA	04.06.03 08:50
Re: Problem noch nicht geknackt: Wie bekommt Dropdow...	360	RalfH	04.06.03 07:05
Re: Problem noch nicht geknackt: Wie bekommt Dropdow...	376	JOMA	04.06.03 08:51
Re: Problem noch nicht geknackt: Wie bekommt Dropdow...	377	E7	05.06.03 15:15
Re: Problem noch nicht geknackt: Wie bekommt Dropdow...	417	JOMA	05.06.03 16:16

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen