UC知道VB WebBrowser
来源：百度知道 编辑：UC知道 时间：2024/05/24 06:43:21
VB WebBrowser加载一个页面后,如何在VB中判断复选框是否选中,不管是哪个只要选中就执行下一步操作,如何做
以下是复选框代码
<table width='430' border='0' cellspacing='0' cellpadding='0'>
<tr>
<td height='30' align='left' valign='middle' style='width: 24px'><input type='checkbox' name='Answer1' value='140985'> </td>
<td width='394' rowspan='4' align='left' valign='middle'>
<iframe id='IFRAME1' frameborder='0' height='120' width='394' marginheight='0' marginwidth='0' name='IndexM1' scrolling='no' src='QAnswer.aspx?Aid1=140985&Aid2=815420&Aid3=733440&Aid4=767984'></iframe></td>
</tr>
<tr>
<td height='30' align='left'
以下是复选框代码
<table width='430' border='0' cellspacing='0' cellpadding='0'>
<tr>
<td height='30' align='left' valign='middle' style='width: 24px'><input type='checkbox' name='Answer1' value='140985'> </td>
<td width='394' rowspan='4' align='left' valign='middle'>
<iframe id='IFRAME1' frameborder='0' height='120' width='394' marginheight='0' marginwidth='0' name='IndexM1' scrolling='no' src='QAnswer.aspx?Aid1=140985&Aid2=815420&Aid3=733440&Aid4=767984'></iframe></td>
</tr>
<tr>
<td height='30' align='left'
Set vDoc = Form2.WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "checkbox" Then
Select Case vTag.Name
Case "Answer2"
if vtag.value=true then
'执行下一步骤
end if
End Select
End If
End If
Next i
没有试验过，不知道正确不正，不过原理就是这样的恶