フォーム操作２（ラジオボタン、チェックボックス、セレクトボックス）

  ' ラジオボタンを値ベースで選択します
  Sub SetRadioButton(ByVal name As String, ByVal value As String)
    If value.Length < 1 Then
      Throw New ArgumentException(String.Format("指定されたvalueのradioButtonは見つかりません。name={0} value={1}", name, value))
    End If

    Dim radios As MSHTML.IHTMLElementCollection = CurrentDoc.getElementsByName(name)
    For i As Integer = 0 To radios.length - 1
      Dim rdo As MSHTML.IHTMLInputElement = DirectCast(radios(i), MSHTML.IHTMLInputElement)
      Dim ele As MSHTML.IHTMLElement = DirectCast(radios(i), MSHTML.IHTMLElement)
      If rdo.value = value Then
        ele.click()
        System.Threading.Thread.Sleep(100)
        Exit Sub
      End If
    Next i
    Throw New ArgumentException(String.Format("指定されたvalueのradioButtonは見つかりません。name={0} value={1}", name, value))
  End Sub

  ' チェックボックスの状態をセットします
  Sub SetCheckBox(ByVal domId As String, ByVal checked As Boolean)
    ' 希望通りのチェック状態でなければクリック
    Dim checkBox As MSHTML.IHTMLInputElement = DirectCast(GetElementById(domId), MSHTML.IHTMLInputElement)
    If Not (checkBox.checked = checked) Then
      ClickInputElement(domId)
    End If
  End Sub

  ' セレクトボックスを文言ベースで選択します
  Sub SetSelectBox(ByVal domId As String, ByVal label As String)
    If label.Length < 1 Then
      Throw New ArgumentException(String.Format("指定されたlabelのselectBoxは見つかりません。domId={0} label={1}", domId, label))
    End If

    Dim selectElm As MSHTML.HTMLSelectElement = DirectCast(GetElementById(domId), MSHTML.HTMLSelectElement)
    For i As Integer = 0 To selectElm.options.length - 1
      ' textが同じか
      If selectElm.options(i).innerText = label Then
        selectElm.options(i).selected = True
        System.Threading.Thread.Sleep(100)
        Exit Sub
      End If
    Next i
    Throw New ArgumentException(String.Format("指定されたlabelのselectBoxは見つかりません。domId={0} label={1}", domId, label))
  End Sub

  ' 要素をクリックします
  Protected Sub ClickInputElement(ByVal domId As String)
    GetElementById(domId).click()
    System.Threading.Thread.Sleep(100)
  End Sub