UN NAVIGATEUR INTERNET EN VB.NET
dheroux
Messages postés
52
Date d'inscription
vendredi 20 octobre 2006
Statut
Membre
Dernière intervention
11 juin 2014
-
21 oct. 2011 à 07:16
Azrti Messages postés 23 Date d'inscription jeudi 23 décembre 2010 Statut Membre Dernière intervention 4 décembre 2012 - 19 févr. 2012 à 08:41
Azrti Messages postés 23 Date d'inscription jeudi 23 décembre 2010 Statut Membre Dernière intervention 4 décembre 2012 - 19 févr. 2012 à 08:41
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/53695-un-navigateur-internet-en-vb-net
https://codes-sources.commentcamarche.net/source/53695-un-navigateur-internet-en-vb-net
19 févr. 2012 à 08:41
Le zip à été réalisé sous Windows XP, je prévoi de le refaire sous Windows 7 pour régler les éventuels problèmes de compatibilité !
15 févr. 2012 à 19:12
2 nov. 2011 à 09:38
29 oct. 2011 à 09:38
Sinon trés bien l'idée de faire un site avec des tutos !
C'est du boulot, pas facile et souvent ingrat. De plus il faut que son code soit béton pour que les débutant commence sur de bonne bas (nommage bouton, réflexe de nommage des variables, etc...) Tu peux aussi, pour bien faire comprendre, donner des exemples d'optimisations :
EXEMPLE :
If WebBrowser1.CanGoBack = True Then
BackButton.Enabled = True
' Si l'on peut effectuer un retour en arriere, on active le boutton
Else
BackButton.Enabled = False
' Sinon on désactive, on grise le boutton
End If
9a c'est lourd à lire, ça prends de la place et si tu regarde bien le code tu t’aperçois vite qu'en fait le Backbouton est enable si si webbrowser.cangoback est vrai, dit comme cela ton code devient simplement :
' Si l'on peut effectuer un retour en arriere, on active le boutton
BackButton.Enabled = WebBrowser1.CanGoBack ' et voila une ligne simple est clair !
bon courage pour la suite, kenavo
28 oct. 2011 à 19:59
En réponse au commentaire de ADN56, c'est un site de tutoriels pour débutants !
24 oct. 2011 à 11:36
If Navigate = False Then
devient même
If Not Navigate Then
Mais surtout, autant inverser, ca évite de faire 1 Not pour rien !
If Navigate Then
WebBrowser1.Stop()
Else
WebBrowser1.Navigate(TextBox1.Text)
End If
Sinon, c'est préférable de nommer tous les contrôles utilisés
Et apparemment, il ne semble pas y avoir de TableLayoutPanel (4 colonnes (seule la 3e à 100%, le reste en fixe), 2 lignes, ColumnSpan=4 pour le WB, puis utiliser Anchor ou Dock selon les contrôles (TLP compris).
Bonne journée.
24 oct. 2011 à 09:29
25. If Navigate = False Then
26. WebBrowser1.Navigate(TextBox1.Text)
27. ElseIf Navigate = True Then
28. WebBrowser1.Stop()
29. End If
Moi je dis respect ! parcequ'un booleén qui n'est pas false n'est pas forcément true LOL
25. If Navigate = False Then
26. WebBrowser1.Navigate(TextBox1.Text)
27. Else
28. WebBrowser1.Stop()
29. End If
24 oct. 2011 à 09:24
Ps : C'est avec Kapersky que tu as la détection ? c'est pas un heuristique par hasard ? du style : HEUR:Trojan-Downloader.Script.Generic
Il est probable (si oui) que cela soit un faux positif, en tout cas chez moi avec IE ça plante à chaque ouverture du site.... Rien que pour ça pas sympa ^^
Même si IE ne sert qu'a télécharger FireFox lol
21 oct. 2011 à 07:16
Attention Trojan !!!!
Dans le site que vous mentionnez http://www.webantoine.com/vb-web-browser il y a le Trojan Downloader.Script.Generic
Voilà c'est dit.