• Home
 · 
• Internet/HTML
 · 
• Very simple web browser!!!!!!!

Very simple web browser!!!!!!!

Very simple web browser!!!!!!!

Rate Very simple web browser!!!!!!!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    webNavigateur.Navigate cboAdresse.Text

End Sub

Private Sub cmdFavoris_Click()

cboAdresse.AddItem cboAdresse.Text

End Sub

Private Sub cmdGo_Click()

webNavigateur.Navigate cboAdresse

End Sub

Private Sub cmdHome_Click()

webNavigateur.Navigate "http://www.1wrestling.com"

cboAdresse = webNavigateur.LocationURL

End Sub

Private Sub cmdMail_Click()

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

End Sub

Private Sub cmdPrecedent_Click()

    On Error GoTo Erreur
    webNavigateur.GoBack
Erreur:
    Exit Sub

End Sub

Private Sub cmdRafraichir_Click()

webNavigateur.Refresh

End Sub

Private Sub cmdStop_Click()

webNavigateur.Stop

End Sub

Private Sub cmdSuivant_Click()

    On Error GoTo Erreur
    webNavigateur.GoForward
Erreur:
    Exit Sub

End Sub

Private Sub Form_Load()

webNavigateur.Navigate "http://www.1wrestling.com"

cboAdresse = webNavigateur.LocationURL

End Sub

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

End Sub


Private Sub webNavigateur_TitleChange(ByVal Text As String)

cboAdresse = webNavigateur.LocationURL

End Sub