Salut a tous, voilà j'explique mon problème. Je suis en train de faire mon petit navigateur internet en suivant le cours sur le VB.NET mais je ne sais pas comment ajuster la taille de l'écran lorsque je clique sur le bouton d'élargissement de la fenêtre. Donc si vous avez une solution...
Je vous laisse mon code si vous voulez, peut être moyen de l'améliorer avec votre aide
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Les 2 lignes suivantes peuvent être remplacées par Me.WB_NAVIGATEUR.Navigate("http://www.google.fr")
Me.TXT_ADRESSE.Text = "http://www.google.fr"
'Simule un clic en passant comme argument nothing (null)
Me.BT_ADRESSE_Click(Nothing, Nothing)
'Au démarrage, pas de possibilité de précédent, suivant, stop
Me.BT_SUIVANT.Enabled = False
Me.BT_PRECEDENT.Enabled = False
Me.BT_STOP.Enabled = False
End Sub
'Lorsque le chargement est fini
Private Sub WB_NAVIGATEUR_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WB_NAVIGATEUR.DocumentCompleted
'Affiche le nouveau statut, désactive le BT stop
Me.LBL_STATUT.Text = WB_NAVIGATEUR.StatusText
Me.BT_STOP.Enabled = False
'on récupère l'adresse de la page et on l'affiche
Me.TXT_ADRESSE.Text = Me.WB_NAVIGATEUR.Url.ToString
End Sub
'Lorsque le chargement commence
Private Sub WB_NAVIGATEUR_Navigating(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WB_NAVIGATEUR.Navigating
'On active le bouton stop
Me.BT_STOP.Enabled = True
'On met le statut à jour
Me.LBL_STATUT.Text = WB_NAVIGATEUR.StatusText
If Me.WB_NAVIGATEUR.CanGoForward Then
Me.BT_SUIVANT.Enabled = True
Else
Me.BT_SUIVANT.Enabled = False
End If
If Me.WB_NAVIGATEUR.CanGoBack Then
Me.BT_PRECEDENT.Enabled = True
Else
Me.BT_PRECEDENT.Enabled = False
End If
End Sub
#Region "Boutons de navigation"
Private Sub BT_ADRESSE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_ADRESSE.Click
'Si il existe une adresse, on y va
If Not Me.TXT_ADRESSE Is Nothing Then
Me.WB_NAVIGATEUR.Navigate(TXT_ADRESSE.Text)
End If
End Sub
Private Sub BT_PRECEDENT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_PRECEDENT.Click
'Va a la page précédente
Me.WB_NAVIGATEUR.GoBack()
End Sub
Private Sub BT_SUIVANT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_SUIVANT.Click
'Va a la page suivante
Me.WB_NAVIGATEUR.GoForward()
End Sub
Private Sub BT_STOP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_STOP.Click
'Desactive le bt stop et arrête le chargement du navigateur
Me.BT_STOP.Enabled = False
Me.WB_NAVIGATEUR.Stop()
End Sub
Private Sub BT_REFRESH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_REFRESH.Click
'Raffraichit le navigateur
Me.WB_NAVIGATEUR.Refresh()
End Sub
#End Region
End Class
× Après avoir cliqué sur "Répondre" vous serez invité à vous connecter pour que votre message soit publié.
× Attention, ce sujet est très ancien. Le déterrer n'est pas forcément approprié. Nous te conseillons de créer un nouveau sujet pour poser ta question.
[ Growing Hack simulateur de piratage en développement ]