[for] consult everybody the teacher WebBrowser1 problem-CodePudding

Unit network I want to make a WebBrowser1 control to enter the page dialog content, but in the input id, gender and date of birth does not automatically generate
Don't know is what reason, to use the mouse to point the page id box can be automatically generated gender and date of birth, hope the teacher have a look, with a network source,

Source:

Id="numTip" & gt;

& nbsp; * & lt;/span>

Date of birth & lt;/td>
& nbsp; (YYYY - MM - DD) & lt;/td>

CodePudding user response:

Their top and have a look

CodePudding user response:

When the input id js news function calls,
Such as id card input box is

 & lt; Input type="text" onchange="parseID ();">

Then this call

 webBrowser1. Navigate (" javascript: parseID ();" );

CodePudding user response:

refer to the second floor Tiger_Zhao response:

js news when the input id function calls,
Such as id card input box is
 & lt; Input type="text" onchange="parseID ();"> 
Then this call
 webBrowser1. Navigate (" javascript: parseID ();" ); 

How embarrassed I am new teacher, in this section of the statement to add?
Private Sub Text2_Change ()
Dim vDoc, vTag '
Dim As Integer I
The Set vDoc=WebBrowser1. Document
For I=0 To vDoc. All. The length - 1
If UCase (vDoc. All (I). TagName)="INPUT" Then
The Set vTag=vDoc. All (I)
If vTag. Type="text" Then
If vTag. ID="cardno" Then vTag. Value=https://bbs.csdn.net/topics/Text2
End the If
End the If
Next I
End Sub

CodePudding user response:

 Private Sub Text2_Change () 
Dim vDoc, vTag '
Dim As Integer I 
The Set vDoc=webBrowser1. Document 
For I=0 To vDoc. All. The length - 1 
If UCase (vDoc. All (I). TagName)="INPUT" Then 
The Set vTag=vDoc. All (I) 
If vTag. Type="text" Then 
If vTag. ID="cardno" Then 
VTag. Value=https://bbs.csdn.net/topics/Text2 
WebBrowser1. Navigate (" javascript: parseID ();" ) 
End the If 
End the If 
End the If 
Next I 
End Sub

CodePudding user response:

The

reference 4 floor Tiger_Zhao reply:

 Private Sub Text2_Change () 
Dim vDoc, vTag '
Dim As Integer I 
The Set vDoc=webBrowser1. Document 
For I=0 To vDoc. All. The length - 1 
If UCase (vDoc. All (I). TagName)="INPUT" Then 
The Set vTag=vDoc. All (I) 
If vTag. Type="text" Then 
If vTag. ID="cardno" Then 
VTag. Value=https://bbs.csdn.net/topics/Text2 
WebBrowser1. Navigate (" javascript: parseID ();" ) 
End the If 
End the If 
End the If 
Next I 
End Sub

Thanks for the teacher's reply, but run error: attribute "parseID" value is null, undefined or is not a function object

CodePudding user response:

reference 5 floor lzl874100 reply:

thanks to the teacher's reply, but run error: attribute "parseID" value is null, undefined or is not a function object

Didn't see my reply on the second floor?
Is such as assume !
What is your function won't change!