OVH Cloud OVH Cloud

WebBrowser vs TextBox

7 réponses
Avatar
Patrice Henrio
Je me décide donc à utiliser un WebBrowser au lieu d'un RichTextBox.
Premières questions, début d'une liste de plusieurs autres.

Comment supprimer la règle en haut ?
ainsi que le scroll bar du bas ?
et comment afficher automatiquement en mode web ?

J'ai l'impression que la plupart de la documentation est en anglais.

7 réponses

Avatar
Patrice Henrio
En fait j'avais fait une erreur, j'affichais un rtf au lieu d'afficher un
htm. Donc, et c'est très bien comme cela, le WB l'affichait dans ce qui lui
semblait le plus approprié.
Maintenant il s'affiche pile comme je voulais.


Question subsidiaire : comment se positionner le scrollBar à un endroit
précis du texte ?


"François Picalausa" a écrit dans le message de news:
02a201c38442$c1c02950$
Bonjour/soir,

Comment supprimer la règle en haut ?


Règle? quelle règle?
tu peux essaye la propriété menubar = false, ainsi que
les autres propriétés

ainsi que le scroll bar du bas ?


pour toutes les scrollbar:

Private Sub Command1_Click()
WebBrowser1.Navigate "about:blank"
End Sub

Private Sub Command2_Click()
WebBrowser1.Document.Writeln "Hello!<br>"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As
Object, URL As Variant)
WebBrowser1.Document.Writeln "Hello!<br>"

WebBrowser1.Document.body.setAttribute "scroll", "auto" 'o
u "no"
End Sub

En bas, tu n'auras, par défaut, une scrollbar que si tu
as un élément qui force l'affichage à être étendu. Il
faut donc développer la page pour l'application.
Pour plus d'infos sur scroll:
http://msdn.microsoft.com/workshop/author/dhtml/reference/
properties/scroll.asp

J'ai l'impression que la plupart de la documentation est


en anglais.

Seulement 99,9% ;-)
Mais pour un développeur, ce n'est pas un problème, si?

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com

-----Message d'origine-----
Je me décide donc à utiliser un WebBrowser au lieu d'un


RichTextBox.
Premières questions, début d'une liste de plusieurs


autres.

Comment supprimer la règle en haut ?
ainsi que le scroll bar du bas ?
et comment afficher automatiquement en mode web ?

J'ai l'impression que la plupart de la documentation est


en anglais.


.



Avatar
François Picalausa
Bonjour/soir,

"Patrice Henrio" a écrit dans le
message de news:
Question subsidiaire : comment se positionner le scrollBar à un
endroit précis du texte ?



Webbrowser1.Document.parentWindow.scroll
Webbrowser1.Document.parentWindow.scrollBy
Webbrowser1.Document.parentWindow.scrollTo

Pour plus d'infos:
http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/scrollby.asp

Mais il y a aussi, plus simplement, en html, la possibilité d'utiliser des
ancres
tu définit ton ancre
<a name="Toto">
et ensuite, tu va jusqu'au point Toto par:
Webbrowser1.Navigate "file://c:...monfichier.htm#toto"

Pour plus d'infos:
http://msdn.microsoft.com/workshop/author/dhtml/reference/objects/a.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com
Avatar
Patrice Henrio
Merci je vais tester.
Est-ce que les fonctions API SendMessage pour RTB fonctionne aussi avec WB ?
Ca m'éviterait de retaper tout le code.

"François Picalausa" a écrit dans le message de news:

Bonjour/soir,

"Patrice Henrio" a écrit dans le
message de news:
> Question subsidiaire : comment se positionner le scrollBar à un
> endroit précis du texte ?

Webbrowser1.Document.parentWindow.scroll
Webbrowser1.Document.parentWindow.scrollBy
Webbrowser1.Document.parentWindow.scrollTo

Pour plus d'infos:



http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/scrollby.a
sp

Mais il y a aussi, plus simplement, en html, la possibilité d'utiliser des
ancres
tu définit ton ancre
<a name="Toto">
et ensuite, tu va jusqu'au point Toto par:
Webbrowser1.Navigate "file://c:...monfichier.htm#toto"

Pour plus d'infos:
http://msdn.microsoft.com/workshop/author/dhtml/reference/objects/a.asp

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com




Avatar
François Picalausa
Bonjour/soir,

"Patrice Henrio" a écrit dans le
message de news:
Merci je vais tester.
Est-ce que les fonctions API SendMessage pour RTB fonctionne aussi
avec WB ? Ca m'éviterait de retaper tout le code.



Ce serait si facile.... :-(
Il y en a peut-êter qui correspondent mais je n'en connais pas.
Dis nous ce que tu souhaites faire et nous te donnerons la correspondance
;-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com
Avatar
Patrice Henrio
Non en fait tu m'as déjà donné la correspondance mais je cherchais à gagner
du temps en réutilisant directement ce que j'avais en RTB.
Merci, et de toutes façons, je pense que j'aurai d'autres questions.
Au fait que veut dire "Fired" que l'on trouve au début de beaucoup de
définition d'événements comme ci-dessous :
Event OnToolBar(ToolBar As Boolean)
Membre de SHDocVwCtl.WebBrowser
Fired when the toolbar should be shown/hidden

"François Picalausa" a écrit dans le message de news:

Bonjour/soir,

"Patrice Henrio" a écrit dans le
message de news:
> Merci je vais tester.
> Est-ce que les fonctions API SendMessage pour RTB fonctionne aussi
> avec WB ? Ca m'éviterait de retaper tout le code.

Ce serait si facile.... :-(
Il y en a peut-êter qui correspondent mais je n'en connais pas.
Dis nous ce que tu souhaites faire et nous te donnerons la correspondance
;-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com




Avatar
François Picalausa
Bonjour/soir,

Au fait que veut dire "Fired" que l'on trouve au début de beaucoup de
définition d'événements


Celà signifie déclenché, dans ce cas ci.
Fired when the toolbar should be shown/hidden


Déclenché lorsque la barre d'outils devrait être affichée/masquée

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Patrice Henrio" a écrit dans le
message de news:%
Non en fait tu m'as déjà donné la correspondance mais je cherchais à
gagner du temps en réutilisant directement ce que j'avais en RTB.
Merci, et de toutes façons, je pense que j'aurai d'autres questions.
Au fait que veut dire "Fired" que l'on trouve au début de beaucoup de
définition d'événements comme ci-dessous :
Event OnToolBar(ToolBar As Boolean)
Membre de SHDocVwCtl.WebBrowser
Fired when the toolbar should be shown/hidden

"François Picalausa" a écrit dans le message de
news:
Bonjour/soir,

"Patrice Henrio" a écrit dans
le message de news:
Merci je vais tester.
Est-ce que les fonctions API SendMessage pour RTB fonctionne aussi
avec WB ? Ca m'éviterait de retaper tout le code.



Ce serait si facile.... :-(
Il y en a peut-êter qui correspondent mais je n'en connais pas.
Dis nous ce que tu souhaites faire et nous te donnerons la
correspondance ;-)

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com




Avatar
Patrice Henrio
Tu trouveras ci-dessous l'entête de la sub que tu m'as envoyé il y a
quelques temps déjà et que j'ai enfin testé, je voudrai savoir ce à quoi
correspond chaque paramètre.
J'ai l'impression qu'il s'agit d'un événement, quand est-il déclenché ?
Merci de ton aide.

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As
Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant,
Headers As Variant, Cancel As Boolean)

"François Picalausa" a écrit dans le message de
news:
Bonjour/soir,

> Au fait que veut dire "Fired" que l'on trouve au début de beaucoup de
> définition d'événements
Celà signifie déclenché, dans ce cas ci.
>Fired when the toolbar should be shown/hidden
Déclenché lorsque la barre d'outils devrait être affichée/masquée

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Patrice Henrio" a écrit dans le
message de news:%
> Non en fait tu m'as déjà donné la correspondance mais je cherchais à
> gagner du temps en réutilisant directement ce que j'avais en RTB.
> Merci, et de toutes façons, je pense que j'aurai d'autres questions.
> Au fait que veut dire "Fired" que l'on trouve au début de beaucoup de
> définition d'événements comme ci-dessous :
> Event OnToolBar(ToolBar As Boolean)
> Membre de SHDocVwCtl.WebBrowser
> Fired when the toolbar should be shown/hidden
>
> "François Picalausa" a écrit dans le message de
> news:
>> Bonjour/soir,
>>
>> "Patrice Henrio" a écrit dans
>> le message de news:
>>> Merci je vais tester.
>>> Est-ce que les fonctions API SendMessage pour RTB fonctionne aussi
>>> avec WB ? Ca m'éviterait de retaper tout le code.
>>
>> Ce serait si facile.... :-(
>> Il y en a peut-êter qui correspondent mais je n'en connais pas.
>> Dis nous ce que tu souhaites faire et nous te donnerons la
>> correspondance ;-)
>>
>> --
>> François Picalausa (MVP VB)
>> FAQ VB : http://faq.vb.free.fr
>> MSDN : http://msdn.microsoft.com