こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

フォントサイズ変更

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

投稿日時 - 2006-11-20 11:01:46

QNo.2550745

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

ANo.1

> 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用に「読み替え」をする必要があります。

投稿日時 - 2006-11-21 12:48:09

お礼

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

投稿日時 - 2006-11-21 16:41:37