Discussion :

[nouls]

Bonjour à tous,

Je désirerai, modifier la taille du texte dans un WebBrower un peu, comme l'Internet Explorer le fait lorsque l'on utilise la touche <CTRL> et la molette de la Souris.

Lors de mes recherches sur le net, j'ai trouvé 2 ou 3 codes, mais pour VB6 et tous mes essais se sont soldés par des COMExceptions.

Est-ce que l'un d'entre vous aurais une petite idée sur la façon de procéder.
Merci.

Dominique.
VBNET 2005.

[nouls]

Re,

Sans le faire exprès j'ai progressé, mais il me reste toutefois encore un problème à résoudre.

Code :

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

1
2
3
4
Dim MyWeb As Object
 
        MyWeb = WebBrowser1.ActiveXInstance
        MyWeb.execwb(OLECMDID.ID_OPTICAL_ZOOM, OLECMDEXECOPT.DONTPROMPTUSER, 50, IntPtr.Zero)

Fonctionne très bien.
Maintenant, si je veux passer la taille de mon texte à travers une variable, je retrouve mon erreur -> (Exception from HRESULT: 0x80040100 (DRAGDROP_E_NOTREGISTERED)) !!!!

Code :

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

1
2
3
4
5
6
Dim MyWeb As Object
Dim Z as .... 'J'ai essayé différent type comme Object, Integer, Intptr mais problème inchangé.
 
        Z = 50
        MyWeb = WebBrowser1.ActiveXInstance
        MyWeb.execwb(OLECMDID.ID_OPTICAL_ZOOM, OLECMDEXECOPT.DONTPROMPTUSER, Z, IntPtr.Zero)

Quelqu'un aurait-il une petite idée ?

Dominique.