aides

Question

Slt tt le monde,
Je débute en vb et je veux de l'aide sur un probléme précis!
Je veux que mon programme ouvre un fichier avec le programme approprié sans que j'ai à lui indiquer le chemin du programme! Par exemple que je n'ai pas à taper:
Shell "C:\Program Files\Fichiers communs\Microsoft Shared\PhotoEd\photoed.exe " & fichier, 1 pour un fichier de type jpg.

Merci d'avance!

cs_dragon · Answer

passe par le shellExecute

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

ShellExecute 0, vbNullString, strFile, "", vbNullString, 1
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------

cs_dragon · Answer

passe par le shellExecute

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

ShellExecute 0, vbNullString, strFile, "", vbNullString, 1
-------------------------------------------------
Dragon alias aussi Waxime mais bon, pas le gout de refaire un nouveau profil lol
-------------------------------------------------

cs_ITALIA · Answer

Pour completer DRAGON la methode API rese la meilleur :

me.hwnd = handle de la fenetre
"open" = action (il y a aussi "print" et "explore")
app.path & "	exte.txt" = fichier a ouvrir
lpparameters = vbnullstring
app.path = repertoire de travail
sw_shownormal=1=priorité de l'appli

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

Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
ShellExecute Me.hwnd, "open", App.Path & "	exte.txt", vbNullString, App.Path, SW_SHOWNORMAL
End Sub
-----------------------------------------------------------------------------------
Sinon il y a une methode sans API :
--> ICI <--

It@li@

Aides

3 réponses

Discussions similaires