Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Winziger Nachtrag:
Autor: unbekannt
Datum: 15.12.01 21:44
Private Declare Function SendMessage Lib "user32" Alias _ "SendMessageA" _ (ByVal hwnd As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ lParam As Any) As Long Private Const CB_SELECTSTRING = &H14D Private Const CB_SHOWDROPDOWN = &H14F Private Sub Command1_click() Dim RVal As Long RVal = SendMessage(Combo1.hwnd, CB_SELECTSTRING, 0, ByVal soption1) If RVal >= 0 Then <--- ist grösser oder gleich!!! RVal = SendMessage(Combo1.hwnd, CB_SHOWDROPDOWN, 1, 0&) End If End Sub

Bestimmten Eintrag wählen	58	Marco	15.12.01 19:02
Re: Bestimmten Eintrag wählen	198	unbekannt	15.12.01 19:18
Re: Bestimmten Eintrag wählen	39	Marco	15.12.01 20:18
Re: Bestimmten Eintrag wählen	194	unbekannt	15.12.01 20:21
Re: Bestimmten Eintrag wählen	36	Marco	15.12.01 20:25
Re: Bestimmten Eintrag wählen	261	unbekannt	15.12.01 21:13
Danke Sehr	34	Marco	15.12.01 21:38
Winziger Nachtrag:	193	unbekannt	15.12.01 21:44
Nochmals Danke	30	Marco	16.12.01 08:06

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