AxWebBrowserで開いたWebページを操作したいのですがコンボ

質問

AxWebBrowserで開いたWebページを操作したいのですがコンボボックスの操作が上手くいきません。

Dim doc As mshtml.HTMLDocument
doc = AxWebBrowser1.Document

'テキストボックス
doc.all.item("text").innertext = "あああ"
'ラジオボタン
doc.all.item("radio", 0).Checked = True

テキストへの文字列の挿入とラジオボタンの制御はこれでできました。
環境はVB.NET 2005です。
どうか、よろしくお願いします。

回答No.1

1050 円（@1050YEN） · ベストアンサー

コンボボックスのHTMLソースが

----------------------------
例1:idを持つ場合
----------------------------
<select id="Select1"> ←　「Select1」というIDを持っている
<option selected="selected" value="1">あ</option>
<option value="2">い</option>
<option value="3">う</option>
</select>

～VB～
Dim doc As mshtml.HTMLDocument
doc = AxWebBrowser1.Document

'複数の同じIDを持つコンボがあった場合、先頭のコンボを利用
Dim cmb As mshtml.HTMLSelectElement = doc.all.item("select1", 0)

----------------------------
例2:idを持たない場合
----------------------------
<select id="Select1"> ←　IDを持っていない
<option selected="selected" value="1">あ</option>
<option value="2">い</option>
<option value="3">う</option>
</select>

～VB～
Dim doc As mshtml.HTMLDocument
doc = AxWebBrowser1.Document

'コンボ群を取得
Dim elmcol As mshtml.IHTMLElementCollection = doc.getElementsByTagName("select")
'先頭のコンボを利用
Dim cmb As mshtml.HTMLSelectElement = elmcol.item(0)

----------------------------
例1か例2でコンボを捕まえたら
----------------------------
後は好きな方法で値を設定
cmb.value = 1 '値での設定
cmb.selectedIndex = 2 '0からのIndex値

お礼

いけましたー＾＾
本当に困っていたので助かりました。

ありがとうございます。

回答No.2

1050 円（@1050YEN）

失礼しました
----------------------------
例2:idを持たない場合
----------------------------
<select id="Select1"> ←　IDを持っていない
<option selected="selected" value="1">あ</option>
<option value="2">い</option>
<option value="3">う</option>
</select>

IDありますね。。。

----------------------------
例2:idを持たない場合（訂正版）
----------------------------
<select> ←　IDを持っていない
<option selected="selected" value="1">あ</option>
<option value="2">い</option>
<option value="3">う</option>
</select>