cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 21 juil. 2002 à 03:07
Un simple clic avec :
Private Sub Dir1_Click()
Dir1.Path = Dir1.List(Dir1.ListIndex) '<<<<<
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
--------------------------
Ou la touche Entrée avec :
Private Sub Dir1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode 13 Then Dir1.Path Dir1.List(Dir1.ListIndex)
End Sub