problème avec TabControl & WebBrowserRésolu

Question

Salut,

           J'ai crée un bouton et quand on cliques dessus il ajoute un nouveau TabPage à mon TabControl et dans ce TabPage, il ajoute un nouveau WebBrowser et j'indique à celui-ci qui est son parent. On arrive à mon problème, comment pouvoir modifier l'url du WebBrowser contenu dans le TabPage sélectionné et pas un autre qui se trouve dans un autre TabPage.

        Pour mieux voir la chose, on peut prendre les onglets de Firefox : Quand il y a plusieurs onglets d'ouverts et qu'on tapes une nouvelle url, il y a le WebBrowser de l'onglet sélectionné qui change et je voudrais faire pareil.

         Est ce qu'il est possible de faire cà en VB 2005 ? J'utilises Microsoft Visual Basic 2005 Express Edition

Merci

Utilisateur anonyme · Accepted Answer

Faut que tu class tes webbrowsers dans une collection.



Private Browsers As New System.Collections.Generic.List(Of WebBrowser)()

' Dans la fonciton d'ajout
Dim w As New WebBrowser()
w.Dock = DockStyle.Fill
Dim Tab As New TabPage("Blank")
Tab.Controls.Add(w)
TabControl1.SelectedTab = Tab
TabControl1.TabPages.Add(Tab)
Browsers.Add(w)

' Pour la modification
Browsers(TabControl1.SelectedIndex).Navigate("http://nouvel/url.com"),

----

(Coloration syntaxique automatique par Kenji)



Il faudras pas que t'oubli de supprimer le webbrowser de la collection quand tu supprimera un onglet






__________
Kenji

Utilisateur anonyme · Answer

Salut,

De quel maniére l'ajoute tu ?






__________
Kenji

cs_fauve · Answer

Salut, Voici la manière dont je le rajoute :





Dim



 w 

As



New
 WebBrowser
Dim index As Integer = 0


TabControl1.TabPages.Add(1)
TabControl1.SelectedIndex = index
TabControl1.SelectedTab.Text = 

"Blank"

w.Parent = 

Me
.TabControl1.SelectedTab
w.Dock = DockStyle.Fill
index = index + 1

Et je voudrais que pour la WebBrowser associé au TabPage sélectionné change si on entre une autre url ou si on clique sur un lien.

Est ce que tu voit comment on pourrait faire cà ?

Merci

cs_fauve · Answer

Ca marche très bien sauf que pour pouvoir modifier le webbrowser il remplacer :

Browsers(TabControl1.SelectedIndex).Navigate("http://nouvel/url.com")

par 

Browsers(TabControl1.SelectedIndex).Url = 

New Uri(
"http://" + ToolStripTextBox1.Text)@+ et merci à toi Charles

fabiendeloye · Answer

bonjour, je sais que je relance une discussion qui n'a pas etait mis a jour depuis plusieurs années mais autant prendre un sujet existant au lieu d'en créer un autre .

pouvez-vous me dire comment ajouter un evenement a chacun de ses webbrowser de facon a leur ajouter une progressbar svp?
merci d'avance

cs_fauve · Answer

Salut,

Je te fais un petit exemple très simple : :)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' On déclare un nouveau bouton
        Dim MyButton As New Button

        ' On ajoute le bouton crée dans la form
        Me.Controls.Add(MyButton)

        ' On positionne le bouton
        MyButton.Location = New System.Drawing.Point(10, 10)

        ' On affiche un texte sur le bouton
        MyButton.Text = "Mon Bouton"

        ' On crée un événement dynamique
        ' AddHandler [événement], AdressOf [procédure]
        ' [événement] = MyButton.Click, MyButton.MouseOver, MyButton.LocationChanged, ...
        ' [procédure] = Nom de la procédure à appeler lorsque l'événement s'est déclenché.
        AddHandler MyButton.Click, AddressOf Click_Button
    End Sub

    Private Sub Click_Button(ByVal sender As System.Object, ByVal e As System.EventArgs)
        MsgBox("Vous avez cliqué sur le bouton")
    End Sub

Pensez : Réponse Acceptée

Problème avec TabControl & WebBrowser

6 réponses

Votre réponse

Discussions similaires