Maxplorer double (2 fenetres + 2 barres de recherche)

Télécharger le projet
Commenter

Description

Mettre sa résolution d'écran en 800 X 600 et l'ouverture de chacune des 2 pages se fait.

Source / Exemple : 


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

Conclusion :


Le principe est simple. Vous avez un esploreur mais en faitte vous en avez 2. Vous pouvez rechercher 2 sites en même temps.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.