Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Listboxeintrag in Label anzeigen

Listboxeintrag in Label anzeigen
04.09.2004 12:03:27
Achim
Hallo Leute,
ich hätte gern, dass beim Bewegen der Maus in einer Listbox der Eintrag in
einem Label angezeigt wird, über dem sich gerade der Mauszeiger befindet.
Habs mit MouseMove versucht, leider ohne Erfolg.
Ich hoffe auf die Experten.
Grüße Achim

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Listboxeintrag in Label anzeigen
04.09.2004 16:44:33
Nepumuk
Hallo Achim,
in VB ginge das, in VBA nicht.
Gruß
Nepumuk
AW: Sicher?
Achim
Hallo K.Rola,
funktioniert genau, wie ich es mir vorgestellt habe.
Danke und schönes WE.
Grüße Achim
AW: Sicher?
05.09.2004 00:17:20
Nepumuk
Hi K.Rola,
auf den Dreh mit Fontsize muss man/frau erst mal kommen. Ausgefuchst !!
In VB hätte ich das so gemacht:


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 "K.Rola"
        .AddItem "L.Vira"
        .AddItem "B.Ate"
        .AddItem "D.Bora"
        .AddItem "H.Nnelore"
    End With
End Sub
Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim lng_X As Long, lng_Y As Long, lng_Count As Long
    lng_X = List1.Parent.ScaleX(X, List1.Parent.ScaleMode, vbPixels)
    lng_Y = List1.Parent.ScaleY(Y, List1.Parent.ScaleMode, vbPixels)
    lng_Count = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal CLng(lng_X) + &H10000 * CLng(lng_Y))
    If lng_Count < List1.ListCount Then
        Label1.Caption = " " & List1.List(lng_Count)
    Else
        Label1.Caption = ""
    End If
End Sub


Gruß
Nepumuk
Anzeige

Links zu Excel-Dialogen

Label ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige