1
Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load Dim str As String = Application.StartupPath & "\textbox.htm" Me.WebBrowser1.Navigate(str) End Sub Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click Dim str As String = Me.WebBrowser1.Document.GetElementById("text").InnerText MessageBox.Show(str) End Sub Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted Me.WebBrowser1.Document.GetElementById("text").InnerText = "初期テキスト" & ControlChars.CrLf & "1" & ControlChars.CrLf & "2" End Sub Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click Dim str As String = "テキスト2" & ControlChars.CrLf & "1" & ControlChars.CrLf & "2" & ControlChars.CrLf str &= "3" & ControlChars.CrLf str &= "4" & ControlChars.CrLf str &= "5" & ControlChars.CrLf Me.WebBrowser1.Document.GetElementById("text").InnerText = str ' HTML 内の処理を呼び出す Me.WebBrowser1.Document.GetElementById("command").InvokeMember("click") End Sub End Class
1
行番号エディタ
1
</TEXTAREA>