• Home
 · 
• Miscellaneous
 · 
• A simple web browser, with capabilities such as source code finder, loading web sites, etc.

A simple web browser, with capabilities such as source code finder, loading web sites, etc.

A simple web browser, with capabilities such as source code finder, loading web sites, etc.

API Declarations


'Create 2 forms----ami.frm and form1.frm
Add Internet common controls, inet, richtextbox, imagecontrol, toolbar control, and create a menu for source code finder.



Rate A simple web browser, with capabilities such as source code finder, loading web sites, etc.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

On Error Resume Next
WebBrowser1.Navigate (Text1.Text)
Text1.Text = Me.Caption
End Sub


Private Sub mnuSource_Click()
On Error GoTo eH
Dim Source1 As String
Dim Source As String
If Len(Text1) > 0 Then
    Source1 = Inet1.OpenURL(Text1.Text)
    If Len(Source1) > 0 Then
      Form1.Text1.Text = Source1
        Me.Inet1.Cancel
        Form1.Show ([vbModal])
    Else
        Source = MsgBox("Source code is not available.", vbInformation, "Source Code")
    End If
End If
Exit Sub

eH:
MsgBox "Critical problem" & vbCr & "Problem " & Err.Number & ": " & Err.Description & vbCr & vbCr & "Please try again", vbCritical, "Problem"

End Sub

Private Sub timTimer_Timer()
    If WebBrowser1.Busy = False Then
        timTimer.Enabled = False
        Me.Caption = WebBrowser1.LocationName
    Else
        Me.Caption = "Working..."
    End If
End Sub

Private Sub Form_Resize()
    Text1.Width = Me.ScaleWidth - 100
    WebBrowser1.Width = Me.ScaleWidth - 100
    WebBrowser1.Height = Me.ScaleHeight - 100
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
On Error Resume Next
WebBrowser1.GoBack
Text1.Text = WebBrowser1.LocationURL
Case 2
On Error Resume Next
WebBrowser1.GoForward
Text1.Text = WebBrowser1.LocationURL
Case 3
On Error Resume Next
WebBrowser1.GoForward
Text1.Text = WebBrowser1.LocationURL
Case 4
On Error Resume Next
WebBrowser1.Refresh
Case 5
On Error Resume Next
WebBrowser1.Stop
Case 6
On Error Resume Next
WebBrowser1.GoSearch
End Select
End Sub