VB如果获取网页中被选中的复选框中的value的值呀??

来源：百度知道 编辑：UC知道 时间：2024/09/28 06:50:55
比如有这样一段复选框的代码:
<input type="checkbox" name="answer2" id="answer2" value="GO1000" />
<input type="checkbox" name="answer2" id="answer2" value="GO2000" />
<input type="checkbox" name="answer2" id="answer2" value="GO3000" />
<input type="checkbox" name="answer2" id="answer2" value="GO4000" />

网页在webbrowser控件里打开, 我想让当某个复选框被选中时,VB可以获得它value=后面的值,比如我选中第一个复选框时,可以让VB获得GO1000这个值,并赋给一个变量,要如何实现啊???

Dim asw(4) As String

Private Sub Command1_Click()
Print Join(asw, "|")
End Sub

Private Sub Timer1_Timer()
For i = 1 To 4
Set c = WebBrowser1.Document.getElementById("answer" & i)
If (c.Checked) Then
asw(i - 1) = c.Value
Else
asw(i - 1) = ""
End If
Next i
End Sub

这方法该是很笨的,可一时俺也没其它招.以上代码运行时将四个checkbox的id改为了answer1~4,否则无法区分哪个被选中.

句柄