Utilisation simple des drivelistbox/filelistbox/dirlistbox

Soyez le premier à donner votre avis sur cette source.

Vue 11 908 fois - Téléchargée 1 066 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
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
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és 12 Date d'inscription vendredi 10 janvier 2003 Statut Membre Dernière intervention 28 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és 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
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és 161 Date d'inscription lundi 28 février 2011 Statut Membre Dernière intervention 11 février 2013
15 mars 2011 à 16:01
Lorsque j'essaie de télécharger ta source mon avaste s'affole....
nouna81 Messages postés 2 Date d'inscription mercredi 27 avril 2005 Statut Membre Derniè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.
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.