' Form上にWebBrowser1が配置されていることを前提とする。 Private Sub testA() Dim ss As String = "http://dobon.net/cgi-bin/vbbbs/cbbs.cgi" Me.WebBrowser1.Url = New Uri(ss) End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Dim cssfilename As String = Application.StartupPath + "\testc.css" Dim css As String = "<style type='text/css'>" + File.ReadAllText(cssfilename) + "</style>" Me.WebBrowser1.Document.Body.InnerHtml += css
' ↓この方法もあり 'Dim ss As String = "font-family:HG創英角ポップ体;font-size:24px;font-weight:bold;" + _ "font-style:italic;color:blue;background-color:brown;border:1cm groove orange ;scrollbar-base-color:green;scrollbar-face-color:moccasin;scrollbar-arrow-color:blue;" 'Me.WebBrowser1.Document.Body.Style = ss
' おまけ(TextBoxを追加) Dim he As HtmlElement = Me.WebBrowser1.Document.CreateElement("input") he.SetAttribute("type", "text") he.SetAttribute("value", "VBで追加したTextBox") he.SetAttribute("size", "40") Me.WebBrowser1.Document.Body.AppendChild(he) End Sub
分類:[.NET]
インターネットオプションのスタイルシートの設定じゃ無く
プログラムからCSSを指定し
Form上のwebBrowserコントロールに適用することは可能でしょうか?
初心者です、宜しくお願いします。