by Mr. Pay Per View (1 Submission)
Category: Internet/HTML
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 14th November 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Very simple web browser!!!!!!!
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