cs_Chuy
Messages postés12Date d'inscriptiondimanche 12 février 2006StatutMembreDernière intervention11 mai 2006
-
4 mars 2006 à 02:21
cs_Chuy
Messages postés12Date d'inscriptiondimanche 12 février 2006StatutMembreDernière intervention11 mai 2006
-
5 mars 2006 à 06:00
Bonjours,
alors voila, je voudrais ouvrir un fichier pdf lorsque je clique sur un bouton de mon application vb6.
Mais seulement le code que j'ai tapé ne fonctionne pas.
code: Private Sub Notice_Click()
Dim notice As String
notice = Shell("C:\Analyseur_PC\Notice.pdf")
End Sub
erreur: invalid procedure call or argument
C'est pas compliqué, je sais, mais sa ne marche pas.
cs_Willi
Messages postés2375Date d'inscriptionjeudi 12 juillet 2001StatutModérateurDernière intervention15 décembre 201822 4 mars 2006 à 02:33
Plutôt bonsoir
Déclaration de l'api shellexecutre + const
8<--------------------------------------------------------------
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
-------------------------------------------------------------->8
ScSami
Messages postés1488Date d'inscriptionmercredi 5 février 2003StatutMembreDernière intervention 3 décembre 200724 4 mars 2006 à 14:43
En effet. Pour plus d'infos sur cette API (et les autres) consulte API-View et API-Guide (sur www.AllAPI.Net) ainsi que ProgOTop (de Darksidious).
Mais sinon, sache que le "Shell" du VB ne permet que de lancer un programme externe. Or, lorsque tu lances un programme (ou batch ou com...) tu peux préciser, sur la ligne de commande, le fichier à ouvrir avec le programme (si ce dernier peut).
Donc, il aurait fallu faire ceci :
Shell "C:\ProgFiles\Adobe\Reader\Acrobat.exe D:\MesFichiers\Fichier.PDF"
(Ici le nom du programme est inventé!)
Sauf que le chemin du soft que tu utilises n'est pas forcément le même sur toutes les machines!!!
Donc, la solution de Willi est la meilleur. CQFD
Enjoy
<hr size="2" width="100%">
( Si une réponse vous convient, cliquez sur le bouton "Réponse acceptée". )