プルダウンとComboboxの連動するには？

質問

これでプルダウンの選択はできるようになりましたがCombobox1で選んだやつを反映させるにはどうしたらいいでしょうか。
わかる方がいましたら教えていただけませんでしょうか。

Microsoft Visual Basic 2005
WebBrowser1を使って表示させています。

Combobox1の中身
4日
5日
6日

' 最初の ComboBox を取得する
　　　　Dim firstCombo As HtmlElement = Me.WebBrowser1.Document.GetElementById("ct0")

　　　　' ComboBox の値を設定する
　　　　firstCombo.SetAttribute("selectedindex", "0")

回答No.1

naganaga_001 · ベストアンサー

お世話になります。

http://oshiete1.goo.ne.jp/qa3296983.html
↑の続きですかね？

↑で回答した時のソースに手を加えました。
デザイナ上で ComboBox を 1 つ追加しています。
ComboBox で 選ばれたものが HTML 上の DropDownList に反映されると思います。

Public Class Form7
　　Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
　　　　Me.Button1.Enabled = False
　　　　Me.ComboBox1.Enabled = False

　　　　Me.WebBrowser1.Navigate("http://oshiete.goo.ne.jp/search/search.php")

　　　　' ComboBox に値を設定する
　　　　Dim comboSource As DataTable = New DataTable("ComboBoxSource")
　　　　With comboSource
　　　　　　.Columns.Add("ID", GetType(Integer))
　　　　　　.Columns.Add("NAME", GetType(String))

　　　　　　.Rows.Add(1, "ライフ")
　　　　　　.Rows.Add(2, "デジタルライフ")
　　　　　　.Rows.Add(3, "趣味")
　　　　　　.Rows.Add(4, "エンターテイメント")
　　　　　　.Rows.Add(5, "美容＆健康")
　　　　　　.Rows.Add(6, "ビジネス＆キャリア")
　　　　　　.Rows.Add(7, "社会")
　　　　　　.Rows.Add(8, "マネー")
　　　　　　.Rows.Add(9, "学問＆教育")
　　　　　　.Rows.Add(10, "[地域情報] 旅行・レジャー・生活")
　　　　　　.Rows.Add(11, "[技術者向] コンピューター")
　　　　　　.Rows.Add(12, "【特設】アンケート")
　　　　　　.Rows.Add(13, "このQ&Aコミュニティーについて")
　　　　End With

　　　　Me.ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
　　　　Me.ComboBox1.DataSource = comboSource
　　　　Me.ComboBox1.DisplayMember = "NAME"
　　　　Me.ComboBox1.ValueMember = "ID"
　　　　Me.ComboBox1.SelectedIndex = 0
　　End Sub

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

　　Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

　　　　' 「指定する」ラジオボタンにチェックを入れる
　　　　Me.WebBrowser1.Document.All.GetElementsByName("ct_select")(1).InvokeMember("click")

　　　　' 最初の DropDownList を取得する
　　　　Dim firstCombo As HtmlElement = Me.WebBrowser1.Document.GetElementById("ct0")

　　　　' DropDownList の値を ComboBox の値で設定する
　　　　firstCombo.SetAttribute("selectedindex", Me.ComboBox1.SelectedValue.ToString())
　　End Sub
End Class

お礼

迅速かつ完璧な回答ありがとうございました。
はじめはあらかじめ指定した項目をクリックできたらいいなと考えておりましたが、プルダウンで選べたらもっといいのではないかとどんどんと欲が出てしまいまたおたずねすることとなってしまいました。
また、質問させていただくことがあるかとは思いますがその時は、これに懲りずに答えてください。
本当にありがとうございました。（*^_^*）