フォントサイズ変更

質問

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
'フォントを一つ大きくする
Dim s As Integer = CInt(GetFontSize(AxWebBrowser1.Controls(0)))
If s <> 4 Then SetFontSize(AxWebBrowser1.Controls(0), s + 1)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
'フォントサイズを小さく
Dim s As Integer = CInt(GetFontSize(AxWebBrowser1.Controls(0)))
If s <> 0 Then SetFontSize(AxWebBrowser1.Controls(0), s - 1)
End Sub
GetFontSizeとSetFontSizeにエラーが出ます。
どうすればエラーを消せますか。
よろしくお願いします。
環境　XP
使用言語　VB.NET2003

回答No.1

dsuekichi

> GetFontSizeとSetFontSizeにエラーが出ます。

確認ですが・・・「GetFontSize」や「SetFontSize」はどこから出てきた（何を調べた）んです？
＃それから「AxWebBrowser1.Controls(0)」と言う表記法もです・・・

> 使用言語　VB.NET2003
VB.NET2003に「GetFontSize」や「SetFontSize」は無いと思いますけど・・・

個別の要素ごとの、フォントサイズの設定ですよね？でしたら、
> Me.AxWebBrowser1.Document.body.all(0).Style.FontSize = "20px"
とかで指定できますが・・・
元の設定値は分からない（元もとのHTMLに明示的な指定が無ければ参照できない）ですね・・・

ブラウザ全体の変更なら、
「How To Change the Font Size in a WebBrowser Control That Is Hosted Inside a Visual Basic Application」
（http://support.microsoft.com/kb/304103/en-us）
でできそうです。

＃但し、上記のサイトはVB.NET用ではなくVB6等を対象とした解説なので、
＃VB.NET用に「読み替え」をする必要があります。

お礼

どうもすいません。
こちらの手違いでした。
サンプルを見たら違う所に記載されていました。
書き込みありがとうございます。