UTILISATION SIMPLE DES DRIVELISTBOX/FILELISTBOX/DIRLISTBOX
SeeNapse
Messages postés33Date d'inscriptionvendredi 24 janvier 2003StatutMembreDernière intervention18 mai 2004
-
3 févr. 2003 à 13:13
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
16 mars 2011 à 09:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 16 mars 2011 à 09:07
No stress...
le code est là, autant le mettre "au gout du jour" et indiquer ce qui va ou pas.
on a tous des vieux codes dont on prefere ne pas parler ^^
Crazydoub
Messages postés12Date d'inscriptionvendredi 10 janvier 2003StatutMembreDernière intervention28 novembre 2009 16 mars 2011 à 09:05
Hé les gars!!!
Le code date de 20003, c'est mon premier programme....
Arrêtez de déterrer!
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202174 16 mars 2011 à 08:36
Faux positif : il n'y a pas d'executable dans le zip, uniquement du code...
Je rejoint SeeNapse, trop de code inutile, utilisation d'un Timer inutile, etc.
Allez, un peu de ménage :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_NORMAL As Long = 1
Private Sub Drive1_Change()
On Local Error GoTo Handler
Dir$ Drive1.Drive
Dir1.Path = Drive1.Drive
Exit Sub
Handler:
If Err.Number = 52 Then
MsgBox "Le lecteur " & Drive1.Drive & " n'est pas accessible.", vbExclamation, "Lecteur non prêt."
Drive1.Drive = Left$(Dir1.Path, 2)
Else
MsgBox Err.Description, , "Error " & Err.Number
End If
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
If File1.ListIndex <> -1 Then
Text1.Text = File1.FileName
Text2.Text = Len(File1.FileName)
End If
End Sub
Private Sub File1_DblClick()
OuvrirFichierSelectionne
End Sub
Private Sub Command1_Click()
OuvrirFichierSelectionne
End Sub
Private Sub OuvrirFichierSelectionne()
If File1.ListIndex <> -1 Then
ShellExecute 0, "Open", File1.FileName, vbNullString, Dir1.Path, SW_NORMAL
End If
End Sub
JSilvere
Messages postés161Date d'inscriptionlundi 28 février 2011StatutMembreDernière intervention11 février 2013 15 mars 2011 à 16:01
Lorsque j'essaie de télécharger ta source mon avaste s'affole....
nouna81
Messages postés2Date d'inscriptionmercredi 27 avril 2005StatutMembreDernière intervention 5 juin 2006 14 déc. 2005 à 10:05
bonjour, ton code est suppert géniale , mais lors de son utilisation, les fichiers sans extentions ne s'ouvrent pas . si vous avez une suggestion n'esitez à me la communiquer ! merci d'avance.
SeeNapse
Messages postés33Date d'inscriptionvendredi 24 janvier 2003StatutMembreDernière intervention18 mai 2004 3 févr. 2003 à 13:13
Ton code est super intéressant mais ton Timer2 ne sert à rien. Par ailleurs, tu aurais dû mettre :
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Ce qui aurais soulagé ton timer1 bien que ça marche. Par contre, je ne vois pas à quoi sert le timer2. Mais sinon, ton code est super intérressant et très instructif. Cependant n'oublis pas de mettre des commentaires pour aider les autres à se retrouver dans tes programme, tu verras même pour toi ce sera mieux.
PS : Tu t'es trompé en mettant niveau 3 non ? lol ;-)
16 mars 2011 à 09:07
le code est là, autant le mettre "au gout du jour" et indiquer ce qui va ou pas.
on a tous des vieux codes dont on prefere ne pas parler ^^
16 mars 2011 à 09:05
Le code date de 20003, c'est mon premier programme....
Arrêtez de déterrer!
16 mars 2011 à 08:36
Je rejoint SeeNapse, trop de code inutile, utilisation d'un Timer inutile, etc.
Allez, un peu de ménage :
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_NORMAL As Long = 1
Private Sub Drive1_Change()
On Local Error GoTo Handler
Dir$ Drive1.Drive
Dir1.Path = Drive1.Drive
Exit Sub
Handler:
If Err.Number = 52 Then
MsgBox "Le lecteur " & Drive1.Drive & " n'est pas accessible.", vbExclamation, "Lecteur non prêt."
Drive1.Drive = Left$(Dir1.Path, 2)
Else
MsgBox Err.Description, , "Error " & Err.Number
End If
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub File1_Click()
If File1.ListIndex <> -1 Then
Text1.Text = File1.FileName
Text2.Text = Len(File1.FileName)
End If
End Sub
Private Sub File1_DblClick()
OuvrirFichierSelectionne
End Sub
Private Sub Command1_Click()
OuvrirFichierSelectionne
End Sub
Private Sub OuvrirFichierSelectionne()
If File1.ListIndex <> -1 Then
ShellExecute 0, "Open", File1.FileName, vbNullString, Dir1.Path, SW_NORMAL
End If
End Sub
15 mars 2011 à 16:01
14 déc. 2005 à 10:05
3 févr. 2003 à 13:13
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Ce qui aurais soulagé ton timer1 bien que ça marche. Par contre, je ne vois pas à quoi sert le timer2. Mais sinon, ton code est super intérressant et très instructif. Cependant n'oublis pas de mettre des commentaires pour aider les autres à se retrouver dans tes programme, tu verras même pour toi ce sera mieux.
PS : Tu t'es trompé en mettant niveau 3 non ? lol ;-)