Verzeichnis-Eintrag unter dem Mauszeiger ermitteln Hier wird gezeigt, wie sich in der DirListBox das Verzeichnis auslesen lässt, über dem sich der Mauszeiger befindet.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  12.439
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 14 Bewertung insgesamt: nützlich Durchschnittliche Bewertung: 3.3 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Unser heutiger Tipp zeigt, wie sich in der DirListBox das Verzeichnis auslesen lässt, über dem sich der Mauszeiger aktuell befindet. Vielleicht fragen Sie sich jetzt, für was das gut sein soll. Eine mögliche Antwort wäre: Drag & Drop zum Kopieren/Verschieben von Dateien einer FileListBox in ein bestimmtes Verzeichnis.

Erstellen Sie ein neues Projekt und platzieren ein DirList-Control (Dir1), sowie ein Label-Control (Label1) auf die Form. Fügen Sie nachfolgenden Code in das Codefenster der Form ein. Wird der Mauszeiger auf die DirListBox bewegt, wird das aktuelle Verzeichnis im Label-Control angezeigt.

Option Explicit
 
' benötogte API-Deklarationen
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hwnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  ByVal lParam As Long) As Long
 
Private Const LB_GETTOPINDEX = &H18E
Private Const LB_GETITEMHEIGHT = &H1A1

Private Sub Form_Load()
  Dir1_Change
End Sub

Private Sub Dir1_Change()
  ' aktuelle Verzeichnistiefe "merken"
  Dim nCount As Integer
  Dim nPos As Integer
 
  nCount = 1
  Do
    nPos = InStr(nPos + 1, Dir1.Path, "\")
    If nPos > 0 Then nCount = nCount + 1
  Loop Until nPos = 0
 
  Dir1.Tag = nCount
End Sub

Private Sub Dir1_MouseMove(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  Dim nTopIndex As Long
  Dim nItemHeight As Long
  Dim nIndex As Long
  Dim i As Long
 
  With Dir1
    ' Ermitteln des ersten Index der Listbox
    nTopIndex = SendMessage(.hwnd, LB_GETTOPINDEX, 0, 0)
 
    ' Ermitteln der Item-Zeichenhöhe
    nItemHeight = SendMessage(.hwnd, LB_GETITEMHEIGHT, 0, 0) * _
      Screen.TwipsPerPixelY
 
    ' Ermitteln des Index, über dem der Mauspfeil steht
    nIndex = nTopIndex - 1
    For i = 0 To .Height Step nItemHeight
      If i > Y Then Exit For
      nIndex = nIndex + 1
    Next
 
    If nIndex >= 0 And nIndex < .ListCount + Val(.Tag) Then
      Label1.Caption = .List(nIndex - Val(.Tag))
    Else
      Label1.Caption = ""
    End If
  End With
End Sub