EXECUTION D'APPLIS ET DE FICHIERS À PARTIR DE VB shellexecute, Source N°543

Information sur la source

Catégorie :API Classé sous : shellexecute Niveau : Initié Date de création : 19/12/2000 Vu : 8 140

Auteur : LeCarto

Site perso

Ecrire un message privé

Note :

7,86 / 10

1
2
3
4
5
6
7
8
9
10

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

Code montrant l'utilisation de l'API Shellexecute, qui permet de lancer des applis mais surtout de lancer des fichiers quelconques à partir de VB. Par exemple pour faire un bouton qui lance une page HTML automatiquement.

Source

Dans un module .bas, la déclaration de la fonction API :
Public 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
Dans votre code, ici un click sur un label (les labels peuvent être transparents et donc se placer sur un BMP) :
Private Sub Label1_Click()
Dim lapi As Long
a$ = App.Path & "index.html"
lapi = ShellExecute(Me.hwnd, "open", a$, vbNull, vbNull, 5)
End Sub

Dans un module .bas, la déclaration de la fonction API :

Public 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

Dans votre code, ici un click sur un label (les labels peuvent être transparents et donc se placer sur un BMP) :

Private Sub Label1_Click()
Dim lapi As Long
a$ = App.Path & "index.html"
lapi = ShellExecute(Me.hwnd, "open", a$, vbNull, vbNull, 5)
End Sub

Conclusion

Les paramètres de la fonction sont simples, malgré leurs noms zétranges. Pour plus d'infos, la page MSDN :

http://msdn.microsoft.com/library/psdk/shellcc/shell/Functions/ShellExecute.htm

Sources du même auteur

Toutes les sources de LeCarto

Sources de la même categorie

Toutes les sources de la catégorie API

Sources en rapport avec celle ci

Commentaires

Commentaire de benrahhal le 05/05/2006 18:25:26

bonjour ,

j'etais besoin de ce code je l'utilisé mais je n'arrive pas à l'executé.
Est ce que vous pouvez m'aider car je suis vraiment le besoin pour continier m'application .
merci de votre collaboration en line .

youssef/diwa
Commentaire de LeCarto le 06/05/2006 08:30:43

Quel est le problème à l'exécution ?
Commentaire de benrahhal le 08/05/2006 17:21:52

c'est que j'ai utilisé le meme code dans m'application sauf que j'ai changé le nom du fichier concerné"index.html"et je sais pas ou le probleme est ce qu'il faut ajouter des autres composant ou des references deffirantes .

il me donne pas le debogage .

merci bien.
Commentaire de LeCarto le 08/05/2006 19:13:29

Le problème vient peut-être du chemin du fichier html à afficher. A la ligne 9 du code ci-dessus, je présuppose que le fichier html est dans le même répertoire que l'application VB (App.path).
Commentaire de taouale2 le 18/05/2006 17:55:57

il y a ausi la fonction shell, très simple d'utilisation et incluse à VB :
Shell(pathname[,windowstyle])
voir MSDN
Commentaire de MiciM le 26/08/2006 04:31:14

euh, taouale2 ton shell ne fonctionne que pour les exécutables (*.exe). Par exemple, pour les fichers CHM, il faut écrire Shell "HH.exe tonfichier.chm" pour les fichiers HLP Shell "WinHlp32.exe tonfichier.hlp" pour les fichiers HTLM Shell "IExplore.exe tonfichier.html" sinon ton fichier ne démarre pas. De plus, tout doit être écrit en noms dos (8.3). Tu vois que le code de LeCarto fonctionne correctement sans avoir à spécifier l'exécutable qui va avec et en noms longs :) Thx pour ton code LeCarto car c'est ce qu'il me fallait ;)