單位的內網我想制作一個WebBrowser1控制元件來輸入網頁對話框內容，但是在輸入身份證的時候，性別和出生日期不能自動生成
不知道是什么原因，要用滑鼠點下網頁中身份證框內 才能自動生成性別和出生日期，希望老師看看，附帶內網原始碼。
部分原始碼：
id="numTip" class="txt_red"></span> <!-- #bug3125:人口管理-人口資訊-人口管理-新增/編輯“證件號碼”的為空校驗“*”問題. -->
<span class="txt_red">*</span></td>
</tr>
<tr>
<td class="shover" >性別</td>
<td class="td_last" style="width: 250px;" ><select name="sex", id="sex" class="select_normal"><option value="">--請選擇</option><option value="https://bbs.csdn.net/topics/1">男性</option><option value="https://bbs.csdn.net/topics/9">未說明的性別</option><option value="https://bbs.csdn.net/topics/0">未知的性別</option><option value="https://bbs.csdn.net/topics/2">女性</option></select> <span
class="txt_red">*</span></td>
<td class="shover" style="width: 100px;">出生日期</td>
<td class="td_last" style="width: 200px;"><input type="text" id="birthday" name="birthday" class="input_middclassle" maxlength="10" value="" onkeypress="addYearMonthDay(this)"/> <span class="txt_red">*</span> (YYYY-MM-DD)</td></tr>
<tr>
uj5u.com熱心網友回復：
自己頂個看看uj5u.com熱心網友回復：
把輸入身份證時的js訊息函式呼叫一下。比如身份證輸入框是這樣的
<input type="text" onchange="parseID();">
那么就這樣呼叫
webBrowser1.Navigate("javascript:parseID();");
uj5u.com熱心網友回復：
不好意思老師 我是個新手，該怎么在這段陳述句中加呢？
Private Sub Text2_Change()
Dim vDoc, vTag '
Dim i As Integer
Set vDoc = 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 = "text" Then
If vTag.ID = "cardno" Then vTag.Value = Text2
End If
End If
Next i
End Sub
uj5u.com熱心網友回復：
Private Sub Text2_Change()
Dim vDoc, vTag '
Dim i As Integer
Set vDoc = 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 = "text" Then
If vTag.ID = "cardno" Then
vTag.Value = Text2
webBrowser1.Navigate ("javascript:parseID();")
End If
End If
End If
Next i
End Sub
uj5u.com熱心網友回復：
謝謝老師的回復，但是運行出錯：屬性“parseID”的值為null、未定義或不是function物件
uj5u.com熱心網友回復：
沒看我2樓的回復嗎？
比如就是假定的意思！
你自己是什么函式不會自己換！
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/118100.html
標籤：VBA
上一篇：VB的msflexgrid表格控制元件的滾輪滾動后，在頁面上是第四行，實際上它已經是第10行了，我單擊這行將這行資訊顯示在text中，顯示的是滾輪沒滾動前的第四行，