-
Using ms internet control, how can i tell if a page is fully loaded b4 i execute the rest of the code.
E.g
Private Sub Form_Load()
Web.Navigate "http://www.riu.com.au/gold/secure/v5i34/contents.htm " 'wait for this page to fully load b4 executing the rest?
selct
copy
pste
Dim objSearch As Collection
Dim varSearch As Variant
Dim intPos As Integer
Set objSearch = New Collection
objSearch.Add "mining"
objSearch.Add "aurora"
objSearch.Add "ccc"
intPos = 0
For Each varSearch In objSearch
intPos = InStr(1, Text1.Text, varSearch)
If intPos > 0 Then
MsgBox varSearch & " was found in (" & _
Text1.Text & ") at position " & intPos
nextsite
Else
MsgBox "no results"
nextsite
End If
Next
End Sub
-
Use the DocumentComplete event of the MS Internet Control. This will only fire when the page is fully loaded.
Hope this helps,
Nathan Liebke
