WebBrowserコントロールでHTMLの書き換え (ID:90514)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 VB6系の記述ですね。 > HTMLDocumentの内容を書き換えることは可能でしょうか？ 可能な部分と不可能な部分があります。 > For Each objElement In objHTML.All ループせずとも、特定のタグを取得したいなら、 Set objDomNode = objHTML.getElementsByTagName("TITLE")(0) の一行で済みますよ。 > MsgBox objDomNode.Text ←ここでTextの内容を変更したい。 コレで良いのかな。 Option Explicit Private Sub Form_Load() WebBrowser1.Navigate2 "http://madia.world.coocan.jp/cgi-bin/VBBBS/wwwlng.cgi?print+200506/05060064.txt" End Sub Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) pDisp.Document.Title = "サンプルです。" End Sub Private Sub WebBrowser1_StatusTextChange(ByVal Text As String) Label1.Caption = Text End Sub Private Sub WebBrowser1_TitleChange(ByVal Text As String) Me.Caption = Text End Sub