Questions about WebBrowser1 click the next page-CodePudding

I wrote a read here in HTML form content to return to the VB inside now encounter this problem I can only to return to the first page how to modify the content of the automatic page after click the second page and then continue to return because more and more how to determine the maximum number of pages?
The following effects:

My current code is as follows:

 
Private Sub cc () 
On the Error Resume Next 

Dim Tables As IHTMLElementCollection 
The Set of Tables=WebBrowser1. Document. GetElementsByTagName (" Table ") 
Dim Table1 As HTMLTable 
Dim Row As HTMLTableRow, Cell As HTMLTableCell 
Call lb 'here is a refresh MS form control code including column names such as 
N=0 
For Each Table1 Tables In 
'Next 
For I=1 To Table1. Rows. Length - 2 'line by line processing 
Set the Row=Table1. Rows (I) 
J=0 
M=0 
For Each Cell In a Row. The cells' per column processing 
If m=0 Then 
MSFlexGrid1. TextMatrix (n + 1, 0)=Trim (Row) cells (j) the innerText) 
ElseIf m=1 Then 
MSFlexGrid1. TextMatrix (n + 1, 1)=Trim (Row) cells (j) the innerText) 
ElseIf m=2 Then 
MSFlexGrid1. TextMatrix (n + 1, 2)=Trim (Row) cells (j) the innerText) 
ElseIf m=3 Then 
If the Trim (Row. Cells (j) the innerText)="pending" Then 
MSFlexGrid1. TextMatrix (n + 1, 3)=Trim (Row) cells (j) the innerText) 
Line MSFlexGrid1. Row=n + 1 '
MSFlexGrid1. Col=3 'column 
MSFlexGrid1. CellForeColor=vbRed 
The Else 
MSFlexGrid1. TextMatrix (n + 1, 3)=Trim (Row) cells (j) the innerText) 
Line MSFlexGrid1. Row=n + 1 '
MSFlexGrid1. Col=3 'column 
MSFlexGrid1. CellForeColor=vbBlack 

End the If 
End the If 
J=j + 1 
M=m + 1 
Next 
N=n + 1 
Next 
Next 
End Sub

Below is a web page out of HTML code

 
 













































 nullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnullnull           

            Page link：https//www.codepudding.com/Softwareengineering/10445.html
          

               Prev:VB controls, same same events, to seek simple method
               Next:Multithreading open the Excel in VB.net, then fill in the contents
          

    
      
        
          
             Tags：  
Network programming               
        
      
    
  

    
      
        
        	
            	Related
            
                       
        
      
    
  

  
    
      
        
           Links：  
          CodePudding

            
      
    
  

  About Us:          Contact Us      Terms of Service      
Privacy Policy
  Copyright © 2010-2023，Powered By CodePudding 
 The serial number & lt;/td> 
 ShenBanRen & lt;/td> 
 The bid time & lt;/td> 
 Processing status & lt;/td> 
 Operation & lt;/td> 
   
1 
  

Shao-hua pan 
  

The 2018-01-22 09:45:55 
 
Shall not accept 

  
& nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; 


 Bidding for the processing & lt;/span> 


 
   
2 
  

Deng Wei 
  

The 2018-01-17 04:04:39 
 
Supplementary material 

  
& nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; 


 Bidding for the processing & lt;/span> 


 
   
3 
  

Zhang Xuan 
  

The 2018-01-16 01:34:32 
 
Supplementary material 

  
& nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; 


 Bidding for the processing & lt;/span> 


 
   
4 
  

Zhang 
  

The 2017-12-22 02:10:24 
 
Supplementary material 

  
& nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; 


 Bidding for the processing & lt;/span> 


 
   
5 
  

Shao-hua pan 
  

The 2017-12-05 08:30:39 
 
Shall not accept 

  
& nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; 


 Bidding for the processing & lt;/span> 


 
   
6 
  

Shao-hua pan 
  

The 2017-12-04 02:44:02

The serial number & lt;/td>	ShenBanRen & lt;/td>	The bid time & lt;/td>	Processing status & lt;/td>	Operation & lt;/td>
1	Shao-hua pan	The 2018-01-22 09:45:55	Shall not accept	& nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; Bidding for the processing & lt;/span>
2	Deng Wei	The 2018-01-17 04:04:39	Supplementary material	& nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; Bidding for the processing & lt;/span>
3	Zhang Xuan	The 2018-01-16 01:34:32	Supplementary material	& nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; Bidding for the processing & lt;/span>
4	Zhang	The 2017-12-22 02:10:24	Supplementary material	& nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; Bidding for the processing & lt;/span>
5	Shao-hua pan	The 2017-12-05 08:30:39	Shall not accept	& nbsp; & nbsp; & nbsp; & nbsp; & nbsp; & nbsp; Bidding for the processing & lt;/span>
6	Shao-hua pan	The 2017-12-04 02:44:02