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