How To Use BeforeNavigate2 in VB to Get an Event from HTML

MORE INFORMATION

1. Create a Standard EXE project from Visual Basic. Form1 is created by default. Add Microsoft Internet Controls to your Project Components.
2. Add a WebBrowser Control from to Form1.
3. Add code for Form1 Load event as follows:

         Private Sub Form_Load()
             WebBrowser1.Navigate "c:\mytest.htm"
         End Sub
   
   						

4. Add code for WebBrowser1 BeforeNavigate2 event as follows:

         Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, _
              URL As Variant, Flags As Variant, _
              TargetFrameName As Variant, PostData As Variant, _
              Headers As Variant, Cancel As Boolean)
   
             Dim Ev As String
   
             If UCase$(Left$(URL, 6)) = "EVENT:" Then
                 'this is our event, process it and cancel navigation
                 Ev = UCase$(Mid$(URL, 7))
                 Select Case Ev
                     Case "HELLO"
                         MsgBox "Hello from VB App"
                         'set a field on HTML page
                         WebBrowser1.Document.All("field1").Value = _
                             "Hello from VB"
   
                     Case "CLOSE"
                         If MsgBox("Are you sure you want to exit?", _
                     vbYesNo) = vbYes Then
                             End
                         End If
                 End Select
                 Cancel = True
             End If
         End Sub
   
   						

5. From Notepad, type in the following text and save it as c:\mytest.htm or another location (be sure to use the same location in step 3):

       <HTML><BODY>
   
         <INPUT type=text name=field1><p>
         <INPUT type=button name=Hello value="Hello World">
         <INPUT type=button name=Close value="Close App">
   
         <SCRIPT LANGUAGE="VBScript">
         Sub Close_OnClick()
            location.href = "Event:Close"
         End Sub
   
         Sub Hello_OnClick()
            location.href = "Event:Hello"
         End Sub
         </SCRIPT>
         </BODY></HTML>
   
   						

6. Run your project from Visual Basic.