2010/03/13(Sat) 22:42:29 編集(投稿者)
■No47760 (渋木宏明(ひどり) さん) に返信
> 2010/03/13(Sat) 09:41:06 編集(投稿者)
御回答有難う御座いますm(_ _)m
<input name='man[1]' type='checkbox' value='1' checked>
上記のタグのname部分が名前と読んでいた部分です。
ですので、AxWebBrowser1.Document.all.man[1].checked = True
にてチェックを入れる事が出来ると思います。
IDも無いですしname属性での指定が出来ないので、仕方なく下記のようにしてみました。
総当りにして同じ名前が見つかったら処理してループを抜けます。
[]の回避の仕方が分かれば他の項目でも下記のような処理をしなくても良いので、高速に処理が出来るのですが…
X = AxWebBrowser1.Document.all.tags("input").length - 1
For I = 0 To X Step 1
If AxWebBrowser1.Document.all.tags("input")(I).name = "man[1]" Then
If CheckBox1.Checked Then
AxWebBrowser1.Document.all.tags("input")(I).checked = True
Else
AxWebBrowser1.Document.all.tags("input")(I).checked = False
End If
Exit For
End If
Next I
If I = X Then
MessageBox.Show("manチェックボックスが見つかりません。", "設定画面エラー")
End If