VB6 - Ouvrir une image
Résolu
Fenril'Skanenruf
-
Fenril'Skanenruf -
Fenril'Skanenruf -
Bonjour,
J'ai programmé en vb6 un explorateur d'image avec des Drive, dir et file. J'aimerai faire un command nommé cmdOuvrir où quand l'on clique celaouvre l'image dans l'apercu classique de windows. Enfin je veux dire dans le programme par défaut de quand on fait une execution automatique d'un fichier.
Je possède actuellement un élément d'instance PictureBox nommé Picture1 qui affiche via ce code le fichier sélectionné dans le filelistbox.
Comment, au clic sur cmdOuvrir faire pour que cela ouvre l'image avec le programme par défaut ?
Merci beaucoup, Groupe-Midgard.com
J'ai programmé en vb6 un explorateur d'image avec des Drive, dir et file. J'aimerai faire un command nommé cmdOuvrir où quand l'on clique celaouvre l'image dans l'apercu classique de windows. Enfin je veux dire dans le programme par défaut de quand on fait une execution automatique d'un fichier.
Je possède actuellement un élément d'instance PictureBox nommé Picture1 qui affiche via ce code le fichier sélectionné dans le filelistbox.
Picture1.Picture = LoadPicture(File1.Path & "\" & File1.FileName)
Comment, au clic sur cmdOuvrir faire pour que cela ouvre l'image avec le programme par défaut ?
Merci beaucoup, Groupe-Midgard.com
A voir également:
- VB6 - Ouvrir une image
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Vb6 - Télécharger - Divers Utilitaires
- Ouvrir fichier .dat - Guide
- Comment ouvrir un fichier docx ? - Guide
5 réponses
OoOps je me suis gourré dans la déclaration de l'API.
Voilà donc le code :
Voilà donc le code :
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 ShellExecute Me.hWnd, "OPEN", Me.File1.Path & "\" & Me.File1.FileName, "", Me.File1.Path,1
Voir l'API ShellExecute :
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, _
Bonjour, merci de votre réponse.
Mais quand je palce votre code dans le sub click du cmdOuvrir (mon bouton) comme ceci :
Il me dit ceci : "Seul les commentaires peuvent apparaître après End Sub, End Function, End Property" en surlignant la fonction.
Si je met la fonction tout en haut du projet en dehors de tout sub, il me met ceci :
"Des constantes, chaînes de longueur fixe, tableux, types définis par l'utilisateur et instructions Declare ne sont pas autorisés comme membre Public de module objet".
Où dois-je placer ton code ?
Merci beaucoup.
Mais quand je palce votre code dans le sub click du cmdOuvrir (mon bouton) comme ceci :
Private Sub cmdOuvrir_Click()
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
ShellExecute Me.hwnd, "OPEN", Me.File1.Path & "\" & Me.File1.FileName, "", Me.File1.Path, 1
End Sub
Il me dit ceci : "Seul les commentaires peuvent apparaître après End Sub, End Function, End Property" en surlignant la fonction.
Si je met la fonction tout en haut du projet en dehors de tout sub, il me met ceci :
"Des constantes, chaînes de longueur fixe, tableux, types définis par l'utilisateur et instructions Declare ne sont pas autorisés comme membre Public de module objet".
Où dois-je placer ton code ?
Merci beaucoup.
La déclaration de l'API doit être placée dans un module (fichier .bas).
Le reste du code peut être appelé n'importe où
Le reste du code peut être appelé n'importe où
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question