来看看这个代码哪里有错误，怎么都是返回的false啊，快进来看看，在线等待！！！！！！！

Question

我加了一个webbrowse的控件，名字为WebB，现在我导入一个html业面 ，下面的方法是检查这个html业面里面是否有button这个标签
Public Function Check() As Boolean
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 = "button" Then 
Check = True
EXIT FUNCTION
End If
End If
Next i
check=false
End Function
但是执行的时候，不管有没有返回的都是false，请问这是怎么回事啊？？
能帮我改一下吗？？？

Answer 1

我加了一个webbrowse的控件，名字为WebB，现在我导入一个html业面 ，下面的方法是检查这个html业面里面是否有button这个标签
Public Function Check() As Boolean
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 = "button" Then 
Check = True
EXIT FUNCTION
End If
End If
Next i
check=false
End Function
但是执行的时候，不管有没有返回的都是false，请问这是怎么回事啊？？
能帮我改一下吗？？？

Answer 2

下面是我用这个方法的代码，哪里有错吗
Private Sub menuFile_Open_Click()
Dim Ch As Boolean
m_strFileName = "about:blank"
On Error GoTo Errhandler1
CdlgFile.Filter = "all files(*.*)|*.*|htm files(*.htm)|*.htm|html files(*.html)|*.html"
CdlgFile.FilterIndex = 2
CdlgFile.ShowOpen
m_strFileName = CdlgFile.FileName
WebB.Navigate m_strFileName
Ch = Check()
web_form.Caption = Ch
If Ch = True Then
Flag = True
Exit Sub
Errhandler1:
m_strFileName = "about:blank"
End Sub

Answer 3

下面是我用这个方法的代码，哪里有错吗
Private Sub menuFile_Open_Click()
Dim Ch As Boolean
m_strFileName = "about:blank"
On Error GoTo Errhandler1
CdlgFile.Filter = "all files(*.*)|*.*|htm files(*.htm)|*.htm|html files(*.html)|*.html"
CdlgFile.FilterIndex = 2
CdlgFile.ShowOpen
m_strFileName = CdlgFile.FileName
WebB.Navigate m_strFileName
Ch = Check()
If Ch = True Then
Flag = True
Else
Flag = False
End If
Exit Sub
Errhandler1:
m_strFileName = "about:blank"
End Sub

Answer 4

Check要等NavigateComplete事件发生后才能用

Answer 5

supergreenbean(超级绿豆) 
能不能帮我写一下，非常感谢啊

Answer 6

'DocumentComplete事件：Private Sub Command1_Click()WebBrowser1.Navigate "http://www.csdn.net/member/s_zcxy.shtm"
End SubPublic Function Check() As Boolean
Check = False
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 = "button" Then
Check = True
Exit Function
End If
End If
Next iEnd Function
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox Check
End Sub