VB6 - Ouvrir une image Résolu/Fermé

Question

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.

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

ghuysmans99 · Answer

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, _

ghuysmans99 · Answer

OoOps je me suis gourré dans la déclaration de l'API.
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

Fenril'Skanenruf · Answer

Bonjour, merci de votre réponse.

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.

ghuysmans99 · Answer

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ù

Fenril'Skanenruf · Answer

Merci c'est parfait, sujet [Résolu].
Merci pour ton aide éfficace et rapide.

VB6 - Ouvrir une image

5 réponses

Discussions similaires