Kein Tipp der Superlative, aber ich gehe immer davon aus,
wenn es mich etwas Zeit gekostet hat, ein Problem zu lösen, dann geht es vielleicht
anderen ebenfalls so und deshalb gibt es diesen Tipp.
Mit der Maus ist es kein Problem, sich in Dirlistboxen zu bewegen, mit einem Doppelklick
bewegt man sich in der Verzeichisstruktur nach oben bzw unten.
Dies ist eine Funktionalität des Controls, weswegen Sie auch keine Doppelklick Aktion
für dieses Control finden. Was aber, wenn Sie dem
Benutzer Ihres Programms auch die Möglichkeit einräumen wollen, sich über die Tastatur
in der DirListbox zu bewegen.
Dann nehmen Sie folgende Syntax:
Private Sub Dir1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Dir1 = Dir1.List(Dir1.ListIndex)
'KeyAscii = 13 ist der Ascii Code für die Enter Taste
End Sub |