WebBrowserにてリストボックスを選択する (ID:146222)

名前

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

本文

> vb.net2008 
VB2008 ですね。

> ↓VBだったら、こんな感じでできるみたいです。
VB6 だったら、ですね。

> 該当する文字があればチェックすると言うロジックで行き詰っております。
たとえば、こんな感じで。

Public Class Form1
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        Button1.Enabled = False
        TextBox1.Text = "th"
        WebBrowser1.Navigate("http://www.ueda.info.waseda.ac.jp/~gaku/js/how025.html")
    End Sub

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Button1.Enabled = True
    End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Dim searchText As String = TextBox1.Text
        MsgBox(searchText & "を含む項目を選択します")
        For Each tagSelect As HtmlElement In WebBrowser1.Document.GetElementsByTagName("SELECT")
            For Each tagOption As HtmlElement In tagSelect.GetElementsByTagName("OPTION")
                Debug.WriteLine(tagOption.OuterHtml)
                If tagOption.InnerText Like "*" & searchText & "*" Then
                    tagOption.SetAttribute("selected", "selected")
                Else
                    tagOption.SetAttribute("selected", Nothing)
                End If
                Debug.WriteLine(tagOption.OuterHtml)
            Next
        Next
    End Sub
End Class

←解決時は質問者本人がここをチェックしてください。

戻る