Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Listboxeintrag in Label anzeigen

Betrifft: Listboxeintrag in Label anzeigen von: Achim
Geschrieben am: 04.09.2004 12:03:27

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

  


Betrifft: AW: Listboxeintrag in Label anzeigen von: Nepumuk
Geschrieben am: 04.09.2004 16:44:33

Hallo Achim,
in VB ginge das, in VBA nicht.
Gruß
Nepumuk


  


Betrifft: Sicher? von: K.Rola
Geschrieben am: 04.09.2004 17:47:21

Hallo Nepumuk,

https://www.herber.de/bbs/user/10518.xls

Gruß K.Rola


  


Betrifft: AW: Sicher? von: Achim
Geschrieben am: 04.09.2004 22:46:33

Hallo K.Rola,

funktioniert genau, wie ich es mir vorgestellt habe.
Danke und schönes WE.

Grüße Achim


  


Betrifft: AW: Sicher? von: Nepumuk
Geschrieben am: 05.09.2004 00:17:20

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 LongByVal wMsg As LongByVal 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


 

Beiträge aus den Excel-Beispielen zum Thema "Listboxeintrag in Label anzeigen"