Saisie dans une TextBox et essai du WebBrowser

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:

---

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

Bonsoir,

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

Code:

---

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:

---

1 2 3 4

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

---

... :D

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 :
Pièce jointe 589323

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 !

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 :D

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 ! :)

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:

---

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 ... :D

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

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 ... :D

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,

Citation:

---

Envoyé par Phil Rob

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

---

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

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

Je ferme ce post.