Transitions CSS sous WebBrowser
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 :
Code:
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 |
Mais ça fonctionne si je fais comme cela :
Dans un fichier HTML j'inscris ce code :
Code:
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".
