Bonjour,
j'utilise le WebBrowser sous VB6.
Je fais de la concaténation de String du genre "s = s & "..."
pour fabriquer une chaine de caractères de code HTML, que j'envoi
dans un WebBrowser avec la fonction ".Write".
Tout fonctionne correctement. Sauf, si dans le code CSS, j'utilise
des Transitions. Aucune transitions ne fonctionnent.
Avec le code HTML généré, j'ai crée un fichier HTML pour
le tester directement dans le navigateur au cas il y aurait une
erreur dans le code. Résultat, les transitions fonctionnent.
Ce qui me laisse penser que le code n'est pas en cause.
Après différents tests, j'en suis arrivé à cette conclusion :
ça ne fonctionne pas si je fais comme ceci :
Mais ça fonctionne si je fais comme cela :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 WebBrowser1.navigate "about:blank" While WebBrowser1.Busy Or WebBrowser1.ReadyState <> 4 DoEvents Wend s = s & "<!DOCTYPE html>" s = s & "<HTML><HEAD>" ...etc... WebBrowser1.document.Clear WebBrowser1.document.write s WebBrowser1.document.Close
Dans un fichier HTML j'inscris ce code :
Code HTML : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 <!DOCTYPE html> <HTML> <HEAD> <META http-equiv="content-type" content="text/html"> <META http-equiv="X-UA-Compatible" content="IE=11" /> <TITLE></TITLE> <STYLE type="text/css"> </STYLE> </HEAD> <BODY> </BODY> </HTML>
C'est le même code qu'avec la 1ere méthode.
Puis je modifie le "Document.Body.InnerHTML" pour y injecter du
code HTML genre un tableau ou une liste. J'intègre aussi le CSS
en utilisant la propriété "document.styleSheets.cssText".
Voila, j'espère avec été clair. C'est exactement le même code,
sauf que manifestement la fonction ".Write" réagi différemment
de la fonction ".Navigate".
Partager