[VBA/VB] créer une page dynamiquement dans un WebBrowser [Fait]

SilkyRoad · 27/09/2006, 05h58

Comment créer une page dynamiquement dans un contrôle WebBrowser afin qu'il contienne:
*Un texte
*Une image de fond
*Une fonction JavaScript
*Un bouton qui permet de déclencher la fonction JavaScript

(testé en VB et VBA)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
'Placez un contrôle WebBrowser et un contrôle CommandButton
'dans L'UserForm.
'Nécessite les bibliothèques:
'   *Microsoft Internet Controls
'   *Microsoft HTML Object Library
 
Private Sub Form_Load()
'-------
'Cette procédure permet de créer une page dynamiquement
'dans un WebBrowser:
'   *Un texte
'   *Une image de fond
'   *Une fonction JavaScript
'   *Un bouton qui permet de déclencher la fonction
'
'-------
 
    Dim AjoutFonction As String
    Dim Fichier As String
 
    'Définit l'image de fond
    Fichier = "http://vb.developpez.com/cours/images/cours_vb.gif"
 
    'Création d'une page vierge qui va servir de support
    WebBrowser1.Navigate "about:<html><body></body></html>"
 
 
    '--- texte ---
    AjoutFonction = "<html><body><B>Bienvenue sur cette page.</B>" & vbCrLf
 
    '--- image de fond ---
    AjoutFonction = AjoutFonction & "<BODY background='" & Fichier & "'</BODY>"
    '---------------------
 
    '--- bouton ---
    AjoutFonction = AjoutFonction & "<FORM>" & _
    "<INPUT type=button name='Bouton1' value='Cliquez ici.' " & _
        "onClick=(alert('Bonjour!'))></FORM>"
    '--------------
 
    '--- fonction javascript ---
    AjoutFonction = _
        AjoutFonction & "<script language=""javascript"">" & vbCrLf
    AjoutFonction = AjoutFonction & "function maFonction(){" & vbCrLf
    AjoutFonction = AjoutFonction & "alert(""Coucou"");" & vbCrLf
    AjoutFonction = AjoutFonction & "}" & vbCrLf
    AjoutFonction = AjoutFonction & "</script></body></html>"
    '---------------------------
 
    'Insertion de la fonction JavaScript dans le WebBrowser
    WebBrowser1.Document.writeln AjoutFonction
End Sub

Comment utiliser un CommandButton VB/VBA pour déclencher la fonction JavaScript contenue dans le WebBrowser?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
'
'Cette procédure montre comment déclencher, par macro VB/VBA, la fonction
'JavaScript contenue dans la page précédemment créée.
'
 
    Dim s As String
    Dim maPageHtml As HTMLDocument
 
    Set maPageHtml = WebBrowser1.Document
    'Déclenchement de la fonction JavaScript par macro
    maPageHtml.parentWindow.execScript "maFonction();", "javascript"
 
End Sub

bonne journée
michel

SpaceFrog · 27/09/2006, 16h09

Une autre façon d'aborder la création de page html en VBA ...
j'ai une sub qui génère un fichier html puis un shell qui l'ouvre

http://www.developpez.net/forums/sho...d.php?t=215530

alassanediakite · 01/03/2009, 18h32

Salut
J'ai mainte fois voulu ituliser "webbrowser" à chaque fois "ce compsant n'est pas inscrit, pour l'inscrire : reinstallez-le".
Que faut-il alors faire?

27/09/2006, 16h09	#2
SpaceFrog Rédacteur/Modérateur Développeur Web Php Mysql Html Javascript CSS Apache - Intégrateur - Analyste Programmeur Inscription : mars 2002 Messages : 30 119 Détails du profil Informations personnelles : Sexe : Localisation : Royaume-Uni Informations professionnelles : Activité : Développeur Web Php Mysql Html Javascript CSS Apache - Intégrateur - Analyste Programmeur Secteur : Industrie Informations forums : Inscription : mars 2002 Messages : 30 119 Points : 45 278 Points : 45 278	Une autre façon d'aborder la création de page html en VBA ... j'ai une sub qui génère un fichier html puis un shell qui l'ouvre http://www.developpez.net/forums/sho...d.php?t=215530 __________________ Ma page Developpez Président du CCMPTP (Comité Contre le Mot "Problème" dans les Titres de Posts) Deux règles du succès: 1) Ne communiquez jamais à quelqu'un tout votre savoir... Votre post est résolu ? Alors n'oubliez pas le Tag réalisations :www.planet-languages.com\|www.saftair.com\| www.ouestisol.fr \| www.sebemex.fr \| www.extramiante.fr \| www.sistac-alizay.fr \| www.acoustishop.fr \| www.litt.fr \| www.ouestventil.fr
	00

01/03/2009, 18h32	#3
alassanediakite Membre chevronné Alassane Diakité Conseil - Consultant en systèmes d'information Inscription : août 2006 Messages : 539 Détails du profil Informations personnelles : Nom : Alassane Diakité Âge : 34 Localisation : Mali Informations professionnelles : Activité : Conseil - Consultant en systèmes d'information Informations forums : Inscription : août 2006 Messages : 539 Points : 604 Points : 604	Salut J'ai mainte fois voulu ituliser "webbrowser" à chaque fois "ce compsant n'est pas inscrit, pour l'inscrire : reinstallez-le". Que faut-il alors faire? __________________ Le monde est trop bien programmé pour être l’œuvre du hasard…
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email