Control page InternetExplorer

[k7l2010]

Please Help

How this code works


Dim WithEvents Web As SHDocVw.InternetExplorer
Dim WithEvents HTMLdoc As HTMLDocument


Private Sub Command1_Click()

Set Web = CreateObject("InternetExplorer.Application")

Web.Visible = True
Web.navigate App.Path & "\index.htm"

End Sub
Private Function HTMLdoc_onclick() As Boolean
On Error Resume Next

If HTMLdoc.activeElement.id = "mo" Then
MsgBox ""
Else

End If

End Function

Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next
If Not Web.document Is Nothing Then

Set HTMLdoc = Web.document

Else

End If
End Sub

[Spooman]

K

Two suggestions:

1. When you post code, use the CODE wrapper .. it is the # on the menu bar

Dim WithEvents Web As SHDocVw.InternetExplorer
Dim WithEvents HTMLdoc As HTMLDocument


Private Sub Command1_Click()
    Set Web = CreateObject("InternetExplorer.Application")
    Web.Visible = True
    Web.navigate App.Path & "\index.htm"
End Sub

Private Function HTMLdoc_onclick() As Boolean
    On Error Resume Next
    If HTMLdoc.activeElement.id = "mo" Then
        MsgBox ""
    Else
        '
    End If
End Function

Private Sub Web_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    On Error Resume Next
    If Not Web.document Is Nothing Then
        Set HTMLdoc = Web.document
    Else
        '
    End If
End Sub

.. and provide indents to make it easier to read,

2. Could you expand your question a bit more

• what don't you understand?
• what is it that you want to accomplish?

Spoo

[k7l2010]

The button "mo" is required when you open the Web page

[Spooman]

K

Sorry, I'm lost.

1. I did not try your code in a project, I just repeated it in post #2 for display purposes
2. Your post #2 is a statement, not a question.

• What have you tried?
• What parts work?
• What parts don't work?

Maybe you could include a screen-shot.

Spoo

[k7l2010]

This does not work

Private Function HTMLdoc_onclick() As Boolean
    On Error Resume Next
    If HTMLdoc.activeElement.id = "mo" Then
        MsgBox ""
    Else
        '
    End If
End Function

[Code Dummy]

Your code works exactly as is if you

1) add Microsoft HTML Object Library to your project

2) add Microsoft Internet Controls to your project

and

3) index.htm has a button with an id="mo"

[k7l2010]

Yes there is a button mo in index.htm

[westconn1]

are you clicking on the page?
does the on_click event fire at all?
do you get the message box?
if the on_click fires and no message box, has an error occurred? or what is supposed to happen?
can you tell if an error has occurred?
is mo likely to be the active element or is some focus change occurring?

remove oern to see if that changes anything

[Code Dummy]

OP shouldn't have a problem. I already said in post 5 all he has to do is to add the references and make sure his document contains a button with id of "mo"