Discussion :

[Theoask]

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

[wallace1]

Bonsoir,

Parfois je ne saisie pas très bien ce qu'il peut passer par la tête des gens .....
Il existe un forum sur le site d'ou tu tires tes enseignements.

Je vais quand même prendre un peu de mon temps pour résumer ton problème :

Logiquement google.com devrait s'afficher au chargement, mais il n'y a rien au démarrage.

Reprends les cours depuis le début, c'est un conseil !

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??

Ils n'existent même pas ces noms de contrôles dans le code que tu nous montres !

Bref besoin d'aide, car je penjse 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.

Un code peut être 100% de quelqu'un mais si tu n'en saisi pas le contenu alors cela veut dire que tu as certainement grillé des étapes dans ton apprentissage !

Et aussi question annexe: comment sauvegarder mon programme et l'exécuter depuis un autre PC?? Ca ne marche pas..

Bizarre d'avoir choisi un langage de programmation + 1 environnement de développement et de ne pas avoir consacré au moins quelques jours à la prise en main de l'EDI !

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??

Tu veux envoyés du code qui n'est pas de toi à tes amis....

En somme, un simple copier/coller de code ne suffit pas à faire fonctionner un programme !!!

Si tu veux débuter dans ce langage de programmation (eg : VbNet) je te suggère de débuter par le commencement, de bien suivre et assimiler les étapes jusqu'à la toute fin.
Au chapitre 6 de ton apprentissage tu trouveras comment diffuser une application et finalement comment fonctionne un assembly.

Bon apprentissage mais bon courage avant tout !

[Theoask]

Oui bon c'est vrai que je suis allé un peu trop vite..Désolé..Je vais tout relire...