1,502
社区成员
发帖
与我相关
我的任务
分享
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Debug.Print WebBrowser1.Document.getelementbyid("HasCheck").Value
End Sub
'---------------------------------------------------------------------------------------
' 过程名 : ShowValue
' 时间 : 2010-3-1 13:24
' 作者 : 杨过.网狐.cn
' 功能 : 显示IFrame内某元素的值
'---------------------------------------------------------------------------------------
'
Sub ShowValue()
MsgBox WebBrowser1.Document.frames("TicketForm").Document.getelementbyid("HasCheck").Value
End Sub
<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gbk" />
<title> new document </title>
<meta name="generator" content="notepad">
<meta name="author" content="">
<meta name="keywords" content="">
<meta name="description" content="">
</head>
<body>
<TABLE>
<tr bordercolor="#00BF00">
<td height="27" class="style2"> 线路: </td>
<td align="left"> <input name="Line" type="text" class="input_3" id="Line2" size="20" readonly="true"> </td>
<td align="right" class="style2">售出: </td>
<td> <input name="HasSell" type="text" class="input_3" id="HasSell" size="5" readonly="true"> </td>
<td align="right" class="style2">已检: </td>
<td>
<input name="HasCheck" type="text" class="input_3" id="HasCheck" size="5" maxlength="5" value="ok"> </td>
<td align="right" class="style2">未检: </td>
<td> <input name="NotCheck" type="text" class="input_3" id="NotCheck" size="5" maxlength="5" readonly="true"> </td>
<td align="right" class="style2">班车状态: </td>
<td width="122"> <input name="Status" type="text" class="input_3" id="Status" size="10" maxlength="10" readonly="true"> </td>
</TR>
</TABLE>
</body>
</html>