Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Listbox (mit Kontrollkästchen) index des blau markierten Eintrags ermitteln
Autor: Hans Gutbrot
Datum: 24.06.10 17:43
Au habe da was bei Google gefunden: Ich habe mir da was zurechtgebastelt. Wen es interessiert, hier der Code den ich gefundenhabe. Habe Ihn für meine Zwecke Modifiziert und benutze zudem das Click Ereignis meiner Listbox... Option Explicit 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 Const LB_ITEMFROMPOINT = &H1A9 Private Sub Form_Load() With List1 .AddItem "Ferrari" .AddItem "Jaguar/Cosworth" .AddItem "Jordan/Honda" .AddItem "McLaren/Mercedes" .AddItem "Sauber/Petronas" .AddItem "Williams/BMW" .ListIndex = 0 End With End Sub Private Sub List1_MouseMove(Button As Integer, Shift As Integer, _ X As Single, Y As Single) Dim PX As Long Dim PY As Long Dim Param As Long Dim Index As Long PX = List1.Parent.ScaleX(X, List1.Parent.ScaleMode, vbPixels) PY = List1.Parent.ScaleY(Y, List1.Parent.ScaleMode, vbPixels) Param = CLng(PX) + &H10000 * CLng(PY) Index = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal Param) If Index < List1.ListCount Then Label1.Caption = " " & List1.List(Index) Else Label1.Caption = "" End If End Sub mit freundlichen Gr??en Hans Gutbrot

Listbox (mit Kontrollkästchen) index des blau markierten Ein...	1.941	Hans Gutbrot	24.06.10 17:14
Re: Listbox (mit Kontrollkästchen) index des blau markierten...	1.156	wb-soft	24.06.10 17:41
Re: Listbox (mit Kontrollkästchen) index des blau markierten...	1.236	Hans Gutbrot	24.06.10 17:44
Re: Listbox (mit Kontrollkästchen) index des blau markierten...	1.186	Hans Gutbrot	24.06.10 17:43
Re: Listbox (mit Kontrollkästchen) index des blau markierten...	1.190	Zardoz	24.06.10 18:25

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