Soyez le premier à donner votre avis sur cette source.
Vue 2 985 fois - Téléchargée 295 fois
Private Sub cboAdresse_Click() Web_Navigator.Navigate cboAdresse.Text End Sub Private Sub cboAdresse2_Click() Web_Navigator2.Navigate cboAdresse2.Text End Sub Private Sub cboAdresse2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdGo2_Click End If End Sub Private Sub cmdAcceuil_Click() Web_Navigator.Navigate "www.altavista.com" End Sub Private Sub cmdArret_Click() On Error GoTo erreur Web_Navigator.Stop erreur: Exit Sub End Sub Private Sub cmdArret2_Click() On Error GoTo erreur Web_Navigator2.Stop erreur: Exit Sub End Sub Private Sub cmdGo_Click() Web_Navigator.Navigate (cboAdresse) cboAdresse.AddItem cboAdresse.Text End Sub Private Sub cmdGo2_Click() Web_Navigator2.Navigate (cboAdresse2) cboAdresse2.AddItem cboAdresse2.Text End Sub Private Sub cmdHotmail_Click() Web_Navigator.Navigate "www.hotmail.com" End Sub Private Sub cmdIcq_Click() Web_Navigator2.Navigate "www.icq.com" End Sub Private Sub cmdMicrosoft_Click() Web_Navigator.Navigate "www.microsoft.com" End Sub Private Sub cmdMsn_Click() Web_Navigator2.Navigate "www.msn.com" End Sub Private Sub cmdPrécédent_Click() On Error GoTo erreur Web_Navigator.GoBack erreur: Exit Sub End Sub Private Sub cmdPrécédent2_Click() On Error GoTo erreur Web_Navigator2.GoBack erreur: Exit Sub End Sub Private Sub cmdRafraichir_Click() On Error GoTo erreur Web_Navigator.Refresh erreur: Exit Sub End Sub Private Sub cmdRafraichir2_Click() On Error GoTo erreur Web_Navigator2.Refresh erreur: Exit Sub End Sub Private Sub cmdSuivant_Click() On Error GoTo erreur Web_Navigator.GoForward erreur: Exit Sub End Sub Private Sub cmdSuivant2_Click() On Error GoTo erreur Web_Navigator2.GoForward erreur: Exit Sub End Sub Private Sub cmdYahoo_Click() Web_Navigator2.Navigate "www.yahoo.com" End Sub Private Sub Form_Activate() cboAdresse.SetFocus End Sub Private Sub Form_Load() Web_Navigator.Navigate "www.altavista.com" Web_Navigator2.Navigate "www.yahoo.com" End Sub Private Sub cboAdresse_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then cmdGo_Click End If End Sub Private Sub Web_Navigator_StatusTextChange(ByVal Text As String) cboAdresse = Web_Navigator.LocationURL End Sub Private Sub Web_Navigator2_StatusTextChange(ByVal Text As String) cboAdresse2 = Web_Navigator2.LocationURL End Sub
16 nov. 2001 à 22:10
16 nov. 2001 à 15:56
16 nov. 2001 à 08:13
16 nov. 2001 à 08:11
16 nov. 2001 à 07:52
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.