Utilisation simple des drivelistbox/filelistbox/dirlistbox

Soyez le premier à donner votre avis sur cette source.

Vue 11 654 fois - Téléchargée 1 046 fois

Description

Utilisation Simple des DriveListBox/FileListBox/DirListBox
Ainsi Que Méthode de Lancement d'une appli ou d'un fichier selon son extension

Source / Exemple :


'Dans Un Module
Public Declare Function ShellExecuteA Lib "shell32" (ByVal hwnd As Long, ByVal LPFile As String, ByVal PathFile As String, ByVal Other As String, ByVal Other2 As String, ByVal Param As Long) As Long

'Dans Votre Form
Option Explicit
Dim Tot As String
Private Sub Command1_Click()
Dim RetVal
RetVal = ShellExecuteA(0, "Open", Dir1.Path & "\" & File1.FileName, "", "", 10)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &H0&
End Sub

Private Sub Label1_Click()
Label1.ForeColor = &HFF&
Shell ("c:\Program Files\Internet Explorer\IEXPLORE.EXE http://perso.wanadoo.fr/crazydoub")
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.ForeColor = &HFF&
End Sub

Private Sub Timer1_Timer()

If Len(Dir1.Path) < 5 Then Tot = Dir1.Path & File1.FileName
If Len(Dir1.Path) > 5 Then Tot = Dir1.Path & "\" & File1.FileName
Text1.Text = Tot
Dir1.Path = Drive1.Drive
File1.Path = Dir1.Path
Text2.Text = Len(Dir1.Path)
DirPathShell.Caption = Tot & " - " & "Cliquez Sur Executer"
End Sub

Conclusion :


Tout est expliqué le code est très clair

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
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 ^^
Messages postés
12
Date d'inscription
vendredi 10 janvier 2003
Statut
Membre
Dernière intervention
28 novembre 2009

Hé les gars!!!
Le code date de 20003, c'est mon premier programme....
Arrêtez de déterrer!
Messages postés
17288
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
70
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
Messages postés
161
Date d'inscription
lundi 28 février 2011
Statut
Membre
Dernière intervention
11 février 2013

Lorsque j'essaie de télécharger ta source mon avaste s'affole....
Messages postés
2
Date d'inscription
mercredi 27 avril 2005
Statut
Membre
Dernière intervention
5 juin 2006

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.
Afficher les 6 commentaires

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.