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 : Sélectionner tout - Visualiser dans une fenêtre à part
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