Vb6.0 & HTML
Fermé
El_Mejri
Messages postés
4
Date d'inscription
samedi 13 avril 2002
Statut
Membre
Dernière intervention
5 juin 2002
-
5 juin 2002 à 11:17
habib - 7 juin 2002 à 13:02
habib - 7 juin 2002 à 13:02
A voir également:
- Vb6.0 & HTML
- Editeur html - Télécharger - HTML
- Html download - Télécharger - HTML
- /Var/www/html/index.html ✓ - Forum Linux / Unix
- &Nbsp html ✓ - Forum Webmastering
- [HTML] - á et les autres - Forum HTML
5 réponses
teebo
Messages postés
33491
Date d'inscription
jeudi 14 octobre 2004
Statut
Modérateur
Dernière intervention
24 février 2011
1 793
5 juin 2002 à 11:36
5 juin 2002 à 11:36
J'ai pas bien compris ce que tu veux faire. Tu veux que qund l'utilisateur click sur un de tes boutons, IE s'ouvre sur une page du net interessante pour lui?
. .
\_/
. .
\_/
ce petit code te permet d'ecrire et d'afficher le fichier html
Private Sub Command1_Click()
ecrire dans le fichier:
Open "c:\TEST\Rapport.html" For Append As 1
Print #1, "******************************************"
Print #1, "****************************************"
Print #1, "************************************"
Close
Afficher le fichier
Dim Responsel As Long
Response = Shell("NotePad.exe c:\TEST\Rapport.html", vbNormalFocus)
End Sub
Private Sub Command1_Click()
ecrire dans le fichier:
Open "c:\TEST\Rapport.html" For Append As 1
Print #1, "******************************************"
Print #1, "****************************************"
Print #1, "************************************"
Close
Afficher le fichier
Dim Responsel As Long
Response = Shell("NotePad.exe c:\TEST\Rapport.html", vbNormalFocus)
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ce petit code te permet d'ecrire et d'afficher le fichier html
Private Sub Command1_Click()
ecrire dans le fichier:
Open "c:\TEST\Rapport.html" For Append As 1
Print #1, "******************************************"
Print #1, "****************************************"
Print #1, "************************************"
Close
Afficher le fichier
Dim Responsel As Long
Response = Shell("NotePad.exe c:\TEST\Rapport.html", vbNormalFocus)
End Sub
Private Sub Command1_Click()
ecrire dans le fichier:
Open "c:\TEST\Rapport.html" For Append As 1
Print #1, "******************************************"
Print #1, "****************************************"
Print #1, "************************************"
Close
Afficher le fichier
Dim Responsel As Long
Response = Shell("NotePad.exe c:\TEST\Rapport.html", vbNormalFocus)
End Sub