Problème avec Navigateur Web en VB.net
Bonjour,
Je suis le cours de VB.net d'un autre site et je dois créer un navigateur Web simple. Pour tester j'ai copié collé le code du cours dans mon Visual Studio 10 Express et j'ai lancé? Sauf qu'il ne se passe rien quand je rentre un URL et que j'appuie sur "Envoyer".
Logiquement google.com devrait s'afficher au chargement, mais il n'y a rien au démarrage.
Je me demande si c'est parce que j'ai confondu BT_TEXT avec LBM_TEXT? La barre d'URL, je l'ai nommée BT_TEXT. Mais alors LBL_TEXT c'est quoi??
Bref besoin d'aide, car je pense que c'est dans le nommage des TxtBox ou autres que j'ai *erdé...Le code est 100% celui d'open classrooms car je voulais voir ce que ça donne..Pas de bug au lancement.
Et aussi question annexe: comment sauvegarder mon programme et l'exécuter depuis un autre PC?? Ca ne marche pas..
Et aussi impossible d'envoyer le programme .vb par Gmail! C'est bloqué! Et même zippé c'est bloqué aussi par Gmail! Par sécurité je suppose, mais alors comment l'envoyer à des amis??
Ou même à vous??
Code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Les deux 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 bouton « 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
'S'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 à 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 à 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
'Désactive le bouton « 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
'Rafraîchit le navigateur
Me.WB_NAVIGATEUR.Refresh()
End Sub
#End Region
Private Sub QuitterToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles QuitterToolStripMenuItem.Click
If MsgBox("Souhaitez-vous vraiment quitter ce magnifique programme ?", 36, "Quitter") = MsgBoxResult.Yes Then
End
End If
End Sub
End Class |
