Discussion :

[Popaul22]

Bonjour à tous et toutes,
je programme depuis longtemps en VB6 et j'ai décidé de me lancer dans la POO, pour apprendre. J'ai donc installé Visual Studio 2010 express et lu déjà quelques tutos et cours. En lisant celui du site du zéro j'ai eu l'idée d'expérimenter le webbrowser.
J'ai donc créé une form, comprenant une textbox pour la saisie de l'url et un webbrowser :

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
 
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
 
 
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
 
        Me.WebBrowser1.Navigate(TextBox1.Text)
 
    End Sub
 
 
    Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
 
    End Sub
End Class

Ca fonctionne, mais quand je tape l'url elle est envoyée caractère par caractère au webbrowser, d'où des erreurs, bien entendu, jusqu'à ce qu''elle soit complète.
Comment faire pour envoyer le contenu de ma textbox au navigateur seulement quand je tape la touche 'entrée' à la fin de la saisie ? Je ne veux pas mettre de bouton "Envoyer".
De même , quand je tape la touche "entrée" j'ai un bip genre bip d'erreur de saisie. Comment l'éviter ?
Enfin, j'ai essayé avec différents sites, et j'obtiens parfois un message d'erreur de ce genre :

"Une erreur est survenue dans ce script .... "Voulez-vous contiunuer à exécuter les scripts de cette page" et je dois cliquer oui ou non : comment faire pour que le webbrowser ne tienne pas compte de ces erreurs 'ou accepte pour moi)

Merci beaucoup de votre aide !!

[Phil Rob]

Bonsoir,

Tu as choisi le mauvais événement pour placer ton code. L'événement KeyDown convinedra mieux comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
            WebBrowser1.Navigate(TextBox1.Text)
        End If
    End Sub

De cette manière, tu n'envoies la chaine au WebBrowser qu'une fois <Entrer> pressé, ce qui se fiat généralement quand on termine l'encodage.

Une autre façon, serait de pacer un bouton sur ton Form et d'envoyer le contenu du TextBox quand in clique ce bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            WebBrowser1.Navigate(TextBox1.Text)
     End Sub

...

[Popaul22]

Merci Phil,

oui j'avais pensé à cela aussi, comme je faisais en VB6 mais n'avais pas la bonne syntaxe !

Cela fonctionne mais j'ai toujours le désagréable "ding" quand je presse la touche "enter", je n'ai pas trouvé comment l'éviter.

En outre, quid de ces messages d'erreur :


Je dois taper "oui" à chaque fois ... Je pense que ces messages sont dus à une incompatibilité avec le moteur internet explorer du webbrowser mais je voudrais m'affranchir de ces messages et faire en sorte que le webbrowser les ignore.

Merci !

[Phil Rob]

Ce message d'erreur provient de la page que tu charges, je pense que tu 'as pas ce message avec toutes les URL.
Mais je ne peux t'aider sur ce détail, sur le beep du <Enter> non plus d'ailleurs (n'est-ce pas un réglage système, je n'ai pas ce beep sur mon PC).
Désolé ...

Bonne nuit

[Popaul22]

Merci Phil,
oui en effet cela n'arrive pas sur tous les sites mais j'aimerais trouver le moyen de faire ignorer ces erreurs par le webbrowser ...
Quant au "dong" engendré par la touche <Entrée> en fin de saisie dans la textbox j'ai cherché dans les propriétés de cette dernière et n'ai rien trouvé ...

Je suis au début de mon exploration de VB net, je ne désespère pas !

[Phil Rob]

Bonjour,

N'ayant pas ce Beep sur mon PC, je ne peux pas tester ce que je te propose ...

Mais peut-être que e.SuppressKeyPress = True (ou e.Handled = True) pourrait te dépanner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
    Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
        If e.KeyCode = Keys.Enter Then
             e.SuppressKeyPress = True
            WebBrowser1.Navigate(TextBox1.Text)
        End If
    End Sub

Bonne journée ...

[Popaul22]

Merci Phil,

le e.Handled = True n’empêche pas le bip mais le e.SuppressKeyPress = True le fait impeccable !

Voilà un mystère levé, il y en a bien d'autres ...

Accepterais-tu que je te contacte en privé pour te demander d'autres petits trucs et t'exposer mon projet, afin de ne pas polluer le forum, si tu en as le temps et l'envie ?

Je vais continuer mes recherches pour supprimer les messages d'erreur de script :-)

Bonne journée

[Phil Rob]

Oui, tu peux me contacter en privé mais attention, je ne suis pas toujours disponible pour répondre rapidement ..., et puis, je n'ai de réponse pour tout !

Note que je ne pense pas que les messages d'entraides polluent le forum, il est là pour ça.
En m'interrogeant en privé tu recevras seulement mes avis.
Si tu postes sur le forum, d'autres contributeurs peuvent aussi donner leurs avis, parfois forts différents des miens, et tu pourras tenir compte de l'avis qui te convient le mieux.

A toi de voir ...

Pour ce qui est de ces messages d'erreur, il serait peut-être utile de chercher que faire lorsqu'ils se produisent dans un navigateur tel que Explorer ...

A bientôt,

[ProgElecT]

...
Note que je ne pense pas que les messages d'entraides polluent le forum, il est là pour ça
...

Et les réponses pourront servir à d'autres.

[Popaul22]

Ok Phil et ProgElect, je vais faire comme ça !

Je ferme ce post.