'サンプル3.6_その他画面部品を操作する(Select/Radio/Check)
Public Sub
moreElements()
Dim ie As
InternetExplorer
Dim htdoc As
HTMLDocument
Dim RadioElements As
Object
Dim RadioElement As
HTMLInputElement
'操作対象Web画面を取得
Set ie =
Day2.getIE("ボタンやリンクの例")
'ドキュメントを取り出す(参照設定:Microsoft HTML Object
Library)
Set htdoc =
ie.Document
'セレクトボックスを「名古屋」行きにする
htdoc.forms("form_sample").elements("select_sample").Value
= "1"
'ラジオボタンを「空路」にする(同じName属性で複数Valueあるため、取り出して走査)
Set RadioElements =
htdoc.forms("form_sample").elements("radio_sample")
For Each InputElement In
RadioElements
If
RadioElement.Value = "B" Then
RadioElement.Checked = True
Exit For
End
If
Next
'チェックボックスの「禁煙席」をはずし、「窓際席」にする
htdoc.forms("form_sample").elements("check_sample1").Checked
= False
htdoc.forms("form_sample").elements("check_sample2").Checked
= True
End Sub