• Home
 · 
• Internet/HTML
 · 
• Creates a cool internet page

Creates a cool internet page

Creates a cool internet page

API Declarations


To create the form you need to create the following;
1 textbox Called "Address"
8 Buttons called:-
"Go","CmdBack","CmdForward","CmdStop","Cmdrefresh","CmdHome","CmdMail","CmdEnd".
1 WebBrowser Called "WebBrowser"




Rate Creates a cool internet page

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub tbToolBar_ButtonClick(ByVal Button As MSComctlLib.Button)

End Sub

Private Sub cboAddress_Click()

    webNavigate.Navigate cboAddress.Text

End Sub

Private Sub cmdFavorites_Click()

CboAddress.AddItem CboAddress.Text

End Sub

Private Sub cmdGo_Click()

WebBrowser1.Navigate CboAddress

End Sub


Private Sub CmdEnd_Click()
WebBrowser.Visible = False
Main.Visible = True
End Sub

Private Sub cmdHome_Click()

WebBrowser1.Navigate "http://www.google.com"

cboAdresse = WebBrowser1.LocationURL

End Sub

Private Sub cmdMail_Click()

WebBrowser1.Navigate "http://www.hotmail.com"

End Sub

Private Sub cmdBack_Click()

    On Error GoTo Error
    WebBrowser1.GoBack
Error:
    Exit Sub

End Sub



Private Sub cmdRefresh_Click()

WebBrowser1.Refresh

End Sub

Private Sub cmdStop_Click()

WebBrowser1.Stop

End Sub

Private Sub cmdForward_Click()

    On Error GoTo Error
    WebBrowser1.GoForward
Error:
    Exit Sub

End Sub

Private Sub cboAddress_KeyPress(KeyAscii As Integer)
    
    If KeyAscii = 13 Then
        cmdGo_Click
    End If

End Sub


Private Sub WebBrowser1_TitleChange(ByVal Text As String)

CboAddress = WebBrowser1.LocationURL

End Sub

Private Sub Address_Change()
WebBrowser1.Navigate Text1
End Sub

Private Sub Go_Click()
WebBrowser1.Navigate Address
End Sub