VB10! COLOMB TEAM GORILLA BROWSER
Ultrabytes
Messages postés
15
Date d'inscription
dimanche 7 mars 2010
Statut
Membre
Dernière intervention
13 septembre 2010
-
12 août 2010 à 18:54
guimmauve Messages postés 3 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 4 novembre 2010 - 30 oct. 2010 à 18:50
guimmauve Messages postés 3 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 4 novembre 2010 - 30 oct. 2010 à 18:50
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/52167-vb10-colomb-team-gorilla-browser
https://codes-sources.commentcamarche.net/source/52167-vb10-colomb-team-gorilla-browser
30 oct. 2010 à 18:50
STP
30 oct. 2010 à 17:55
14 août 2010 à 14:08
13 août 2010 à 18:34
Enfin j'me comprends.
13 août 2010 à 14:32
Coller un contrôle WebBrowser dans un form, 3 boutons et 10 lignes de codes et hop !
Non sérieusement, regardez les sources existantes avant de poster les vôtres
ADN: Je crois qu'on va être obligé de recommencer à noter, on dirais que ca décourrage pas mal...
13 août 2010 à 13:17
13 août 2010 à 08:18
avancé ? ou ça ?
s'il n'a rien de trop spécial pourquoi le poster ici alors ?
"J'espère que ce Browser vous sera utile. "
bah non j'utilise Ie8 ^^
"Le prochain arrive très bientôt, indice: Ce cera une calculatrice spéciale"
Ah ben tiens ça tombe bien, humm chouette une calculette ^^
Te souviens tu du but d'un dépot de source ? kenavo.
13 août 2010 à 08:12
Etrange ton code, cela ressemble à la recopie d'un exemple non compris. Regarde par exemple :
faire une sub pour l'écrire qu'une fois, et/ou utiliser le handles lorsque possible.
Tiens au jeux des 7 erreurs tu n'a pas recopier tout à fait la même chose ^^
29.
30. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
31. Dim Browser As New WebBrowser()
32. TabControl1.TabPages.Add("New Page")
33. Browser.Name = "Web Browser"
34. Browser.Dock = DockStyle.Fill
35. TabControl1.SelectedTab.Controls.Add(Browser)
36. AddHandler Browser.ProgressChanged, AddressOf Loading
37. AddHandler Browser.DocumentCompleted, AddressOf Done
38. int = int + 1
39. CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
40.
41. End Sub
42.
43. Private Sub NouvelToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NouvelToolStripMenuItem.Click
44. Dim Browser As New WebBrowser
45. TabControl1.TabPages.Add("New Page")
46. TabControl1.SelectTab(int)
47. Browser.Name = "Web Browser"
48. Browser.Dock = DockStyle.Fill
49. TabControl1.SelectedTab.Controls.Add(Browser)
50. AddHandler Browser.ProgressChanged, AddressOf Loading
51. AddHandler Browser.DocumentCompleted, AddressOf Done
52. int = int + 1
53. CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
54. End Sub
55.
56. Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
57. Dim Browser As New WebBrowser
58. TabControl1.TabPages.Add("New Page")
59. TabControl1.SelectTab(int)
60. Browser.Name = "Web Browser"
61. Browser.Dock = DockStyle.Fill
62. TabControl1.SelectedTab.Controls.Add(Browser)
63. AddHandler Browser.ProgressChanged, AddressOf Loading
64. AddHandler Browser.DocumentCompleted, AddressOf Done
65. int = int + 1
66. CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoHome()
67. End Sub