philippe laschweng 1
Messages postés278Date d'inscriptionjeudi 14 avril 2005StatutMembreDernière intervention13 avril 2013
-
8 sept. 2005 à 14:06
cs_franckydeluka -
8 sept. 2005 à 16:12
Bonjour à tous,
Ma question est simple :
Quelle commande faut il entrer pour ouvrir à partir de VB une page HTML du genre toto.htm ???
J'ai bien essayé shelle mais sans succés, je crois que ca marche que pour les exécutables ..
Merci d'avance !
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 8 sept. 2005 à 14:09
Violent Ken
Salut !
Tu déclares çà
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
philippe laschweng 1
Messages postés278Date d'inscriptionjeudi 14 avril 2005StatutMembreDernière intervention13 avril 20132 8 sept. 2005 à 14:27
violent_Ken :
Bah ca ne fonctionne pas, je dois mal avoir fait un truc !!! Je creuse ... lol. J'utilisais déjà une fonction semblable API plutôt, mais pour ouvrir du .txt
Kakenette :
Désolé c'est vrai je n'ai pas précisé, je veu en fait l'ouvrir en externe dans l'exploreur (pas dans VB)
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 8 sept. 2005 à 14:39
Violent Ken
Hum. Alors tu as peut-être un firewall qui bloque l'accès à VB pour ouvrir des pages htm.
Essaie de remplacer "c:\fichier.htm" par "c:\fichier.doc" (fichier.doc que tu auras créé, bien sur) pour voir si le bug vient de l'api.
BruNews
Messages postés21040Date d'inscriptionjeudi 23 janvier 2003StatutModérateurDernière intervention21 août 2019 8 sept. 2005 à 14:44
Redeclare ainsi:
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (Bidon0 As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal Bidon1 As Long, ByVal Bidon2 As Long, ByVal nShowCmd As Long) As Long
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 8 sept. 2005 à 14:47
Violent Ken
Ah pardon, çà vient peut-être plutot du SW_SHOWNORMAL dont je n'ai pas donné la déclaration :
Const SW_SHOWNORMAL = 1
(à rajouter là ou tu declares l'api)
@+
philippe laschweng 1
Messages postés278Date d'inscriptionjeudi 14 avril 2005StatutMembreDernière intervention13 avril 20132 8 sept. 2005 à 14:50
Avec le Option explicit de mon prog, il génére une erreur à SW_SHOWNORMAL ! Mais c'est une constante non? De toute manière même en virant le Option Explicit, ca fait rien (plus d'erreur mais fonctionne pas)
Au lieu de mettre c:\... j'ai mis App.path & "\toto.htm" si le fichier toto est dans le même dossier que l'executable/projet. Pas d'erreur là dessus ???
violent_ken
Messages postés1812Date d'inscriptionmardi 31 mai 2005StatutMembreDernière intervention26 octobre 20102 8 sept. 2005 à 15:29
Violent Ken
Copie çà dans un bloc-notes
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton Command1
Caption = "Command1"
Height = 855
Left = 2280
TabIndex = 0
Top = 1080
Width = 1695
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 Command1_Click()
ShellExecute Me.hwnd, "open", "c:\fichier.htm", vbNullString, App.Path, SW_SHOWNORMAL
End Sub
Ensuite tu enregistres en *.frm et tu doubles cliques sur ton fichier *.frm.
VB s'ouvre.
Ensuite tu déposes ton fichier *.htm dans le répertoire "c:" et tu le renommes "fichier.htm".
Démarre le projet et clique sur command1. Que se passe t-il ?
Chez moi, mon fidèle ZoneAlarm me notifie que vb6.exe tente d'accéder à internet. Si je refuse l'accès, rien ne se passe. Si j'accepte, la page htm s'ouvre normalement, tout fonctionne.
Alors essaie ce code et tiens moi au courant du résultat!
@+