A voir également:
- Vb6.0 & HTML
- Editeur html - Télécharger - HTML
- Nbsp html ✓ - Forum Webmastering
- Espace en html ✓ - Forum HTML
- Html download - Télécharger - HTML
- [**] Balise pour un espace vide en hml. Merci ✓ - Forum Webmastering
5 réponses
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