Newsgroup: it.comp.lang.visual-basic
Titolo: WebBrowser e dimensione carattere

Salve a tutti
nel mio form sto utilizzando un controllo webbrowser, come posso variare la 
grandezza del carattere (analogamente rispetto ad internet explorer?)
grazie 

 ha scritto nel messaggio 
news:pQKph.106980$uv5.1...@twister1.libero.it...

Ho dimenticato di dire che ho provato (su VB6) nel seguente modo, ma mi da 
errore run time '-
2147221248
 (80040100)': Metodo 'ExecWB' dell'oggetto 
'IWebBrowser2' non riuscito.
Dim Z As Variant
WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Z, Null
Z=3

knudsen ha scritto:


un combo a sola lettura ha molto piccolo | piccolo | ...
Private Sub cboFont_Click()
    On Error Resume Next
    WB1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER,
CLng(cboFont.ListIndex)
End Sub
ciao, a.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Scusa.. forse sono un po' ignorante.. non ho capito.. 

 ha scritto nel messaggio 
news:5VQph.108381$Fk1.6...@twister2.libero.it...

nel caso di sopra, metti un combo, lo chiami cboFont, lo setti style=2
al form_load
    With cboFont
        .AddItem "Molto piccolo"
        .AddItem "Piccolo"
        .AddItem "Normale"
        .AddItem "Grande"
        .AddItem "Molto grande"
        .Text = .List(2) 'normale
    End With
al clic, la routine piu' sopra prende l'index dell'item scelto e lo passa 
allo zoom.
la stessa cosa la puoi fare con un command
Private Sub cmdFont_click()
    static lTextSize as long
    lTextSize = lTextSize + 1
    If lTextSize > 4 Then lTextSize = 0
    WB.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, CLng(lTextSize)
End Sub
mi sembra di ricordare che l'execwb in questo caso pretenda un long, ma qui 
ho rimaneggiato una routine differente, e la dichiarazione as long l'ho 
aggiunta ora. prova e vedi tu se il clng() e' obbligatorio o no.
ciao, a.


Ho capito, però non funziona lo stesso  mi da sempre lo stesso errore che è 
questo:
http://support.microsoft.com/kb/251133/it
Dice che la causa è di progettazione.. ma a me si verifica anche se compilo, 
come si può evitare?
grazie 

 grazie
c'e' qualcosa che non mi convince
- nella pagina ms, non e' elencato olecmdid_zoom (mentre lo sono find e
showfind, che infatti mi danno sempre l'errore che dici)
- a me quel codice ha sempre funzionato, e lo uso da almeno tre anni.
puoi postare l'ultimo codice esatto che hai usato, comprese dichiarazioni
ecc.?


 ciao, a.
Io ho seguito il codice consigliato dalla msdn (il seguente) che non ha mai 
funzionato dandomi sempre quell'errore, e anche col tuo codice ricevo 
quell'errore, ma non si capisce che tipo di errore sia..
Private Sub Form_Load()
    Dim Z As Variant
    WebBrowser.Navigate (App.Path + "pagina.htm")
    Z=2
    WebBrowser.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, Null, Z
End Sub 

 End Sub
delegando a un command sembra funzionare, se le stesse istruzioni le metti
al load gli piace molto meno. solo che ora sono di corsa e non posso
provare oltre.
ciao, a.
Option Explicit
Private Sub Command1_Click()
    Static ts As Long
    ts = ts + 1
    If ts> 4 Then ts= 0
    WebBrowser1.ExecWB OLECMDID_ZOOM, OLECMDEXECOPT_PROMPTUSER, CLng(ts)
End Sub
Private Sub Form_Load()
    WebBrowser1.Navigate "
http://www.google.com
"
End Sub



Si hai ragione.. chissa quale sarà il problema..comunque grazie!