Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 189 fois - Téléchargée 50 fois
Private Sub Command1_Click() End Sub Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() Dim v v = Drive1.Drive Dir1.Path = v End Sub Private Sub File1_Click() End Sub Private Sub File1_DblClick() Dim v v = Drive1.Drive a = Left(v, 2) If File1.Path = a + "\" Then Shell File1.Path + File1.FileName, vbNormalFocus Else Shell File1.Path + "\" + File1.FileName, vbNormalFocus End If End Sub Private Sub Form_Load() Drive1.Drive = "c:" Dir1.Path = "c:\" File1.Path = "c:\" End Sub
15 janv. 2002 à 01:19
Alors que cette methode fonctionne aussi.
A++
Hervé
13 janv. 2002 à 09:21
13 janv. 2002 à 00:58
Parce que là on se croirait retournés sous win 3.x !
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.