Ajoute de controleRésolu

Question

Bonjour,

Voila j'ai un probléme.

Je cherche deseperement le moyen de faire apparaitre une toolstrip et un webbrowser dans un onglet recament crée mais je ne vois pas comment faire :

        TabControl1.TabPages.Add(ongletcounter + 1)
        ongletcounter += 1
        Dim tstrip As New ToolStrip()
        tstrip.Name = "navigbar"
        tstrip.Parent = ????
        Controls.Add(tstrip)

Je ne sais pas quoi mettre pour que la toolstrip se mette dans l'onglet tous juste creer.

Merci de votre aide

Salut

Matrux

cs_casy · Accepted Answer

TabControl1.TabPages.Add(ongletcounter + 1) ongletcounter += 1 Dim tstrip As New ToolStrip() tstrip.Name = "navigbar" tstrip.Parent = TabControl1.TabPages(ongletcounter-1) ~~Controls.Add(tstrip)~~ ---- Sevyc64 (alias Casy) ----

# LE PARTAGE EST NOTRE FORCE # http://aide-office-vba.monforum.com/index.php

matrux · Answer

Merci beaucoup de ta réponse.
J'ai une autre question comment je fais pour ajouter des boutons et le code pour ces boutons dans le toolstrip.

Merci de vos reponses

Matrux

cs_casy · Answer

tu passe par la collection d'items du toolstrip. Exemple pour un bouton :

        Dim titi As New ToolStripButton
        titi.Text =   "calimero"
        tstrip.Items.Add(titi)

Ensuite il faut abonner l'évènement désiré de ton bouton à une procédure de ton code capable de traiter cet évènement : 
        AddHandler titi.Click, AddressOf titi_Click

avec la procédure :
    Private Sub titi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        .............
    End Sub

  ---- Sevyc64  (alias Casy) ----  <hr size  ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

matrux · Answer

Merci beaucoup.
Si j'ai beacoin d'aide je reviendrai.

Merci

Salut

Matrux

matrux · Answer

Me revoila j'ai un probléme.
J'ai un webbrowser qui se nomme navig.
j'ai donc ceci

Public Sub OngletNouveauToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OngletNouveauToolStripMenuItem.Click
[...]
Dim Navig As New WebBrowser()
Navig.Name = "webnavig"
Navig.Dock = DockStyle.Fill
Navig.Parent = TabControl1.TabPages(ongletcounter - 1)
[...]
end sub

et ensuite j'ai ceci

    Private Sub titi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        navig.goback
    End Sub

Le probléme est qu'il ne trouve pas navig.
Et je ne peux pas declarer Navig en dehors de OngletNouveauToolStripMenuItem_Click sinon je n'ai qu'un seul webbrowser qui va sur le nouvel onglet en supprimant l'ancien webbrowser.

cs_casy · Answer

Effectivement en sortant de la fonction tu perds la réféence sur les controles créés.

Il faut donc qu'en tu en as à nouveau besoin, récupérer une référence sur ces controles.

Ici, tu en a besoin dans la procédure titi_click. en faisant un peu de bricolage, on peut retrouver cette référence.

Dans titi, tu as sender qui représente le bouton qui a été cliké. Ce bouton est contenu dans un ToolStrip, lui même contenu dans une TabPage. Donc en remontant la parenté du bouton, on peut retourver la TabPage (avec les subtilités des différents controles).
Le WebBrowser étant posé sur cettemême TabPage, il fait partie de sa collection de controles. 9a donne un code comme ceci :

 Private Sub titi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
       Dim tmpnavig As WebBrowser

        Dim tbpage As TabPage =   CType(sender, ToolStripButton).GetCurrentParent.Parent

        tmpnavig = tbpage.Controls("webnavig")
        tmpnavig.GoBack()
End Sub 

  ---- Sevyc64  (alias Casy) ----  <hr size  ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

matrux · Answer

Merci beaucoup.
Ca marche du tonner de dieu.
Merci de ton aide casy ainsi que pour ta rapidité de réponses.
Si j'ai besoin d'aide je reviendrais.

Merci

Salut

Matrux

matrux · Answer

J'ai encore un probléme (j'espere que c'est le dernier je dois etre soulant a la fin....)

Voila je voudrais changer le nom de l'onglet sur lequelle le webrowser et activer j'ai donc ceci

Public Sub OngletNouveauToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OngletNouveauToolStripMenuItem.Click

        Navig.Name = "webnavig"
        Navig.Dock = DockStyle.Fill
        Navig.Parent = TabControl1.TabPages(ongletcounter - 1)
        AddHandler Navig.DocumentTitleChanged, AddressOf Navig_cmpl

End Sub

    Private Sub Navig_cmpl(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim tmpnavig As WebBrowser
        Dim tbpage As TextBox = CType(sender, ToolStripButton).GetCurrentParent.Parent
        tmpnavig = tbpage.Controls("webnavig")
        tbpage.Text = tmpnavig.DocumentTitle
    End Sub

Mais ceci ne fontionne pas.

Merci pour toutes reponses

Bonne journée

Matrux

matrux · Answer

Euhh excuse moi j'ai fais une erreur :

   Private Sub Navig_cmpl(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim tmpnavig As WebBrowser
        Dim tbpage As tabpage = CType(sender, ToolStripButton).GetCurrentParent.Parent
        tmpnavig = tbpage.Controls("webnavig")
        tbpage.Text = tmpnavig.DocumentTitle
    End Sub

cs_casy · Answer

Effectivement ton code n'est pas bon. 

sender représente toujours le controle qui déclenche l'évènement, ici c'est le webbrowser et non plus le bouton du tollstrip.

Sur le même principe que tout à l'heure il te faut remonter la parenté, mais ici que d'un niveau puisque le controle recherché (la tabpage) est directement le parent du controle de départ (sender, donc le webbrowser).

Ca donne ceci :

    Private Sub Navig_cmpl(ByVal sender As Object, ByVal e As System.EventArgs)

        Dim tmpnavig As WebBrowser =   CType(sender, WebBrowser)
        Dim tbpage As TabPage = tmpnavig.Parent
        tbpage.Text = tmpnavig.DocumentTitle

    End Sub

  ---- Sevyc64  (alias Casy) ----  <hr size  ="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

matrux · Answer

Merci beaucoup,
Grace a toi j'ai eu aujourd'hui un vrai cour de VB.net. ;)

Bonne journée
Et encore unefois merci de ton aide

Salut

Matrux

matrux · Answer

Je n'arrive pas a ajouter de Toolstriptextbox a mon toolstrip. voici ce que j'ai comme code :

        Dim AdressBar As New ToolStripTextBox
        AdressBar.Text = ""
        AddHandler AdressBar.KeyPress, AddressOf AdressBar_KeyPress

J'aimerai aussis savoir si ce code la va marcher pour ma textbox :

    Public Sub AdressBar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim tmpnavig As WebBrowser
        Dim AdressBar As ToolStripTextBox
        Dim tbpage As TabPage = CType(sender, ToolStripButton).GetCurrentParent.Parent
        Dim tbpages
        tmpnavig = tbpage.Controls("webnavig")
        tbpages = tmpnavig.Parent
        AdressBar = tbpages.Controls("AdressBar")
        If e.KeyChar = ControlChars.Cr Then
            tmpnavig.Navigate(AdressBar.Text)
        End If
    End Sub

matrux · Answer

J'ai reussi a afficher la textbox mais j'ai un autre probléme :
J'aimerai que quand j'appui sui entrer ceci charge l'adresse web tapé dans la textbox mais ceci ne marche pas :

Voici le code que j'utilise :
    Public Sub AdressBar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim tmpnavig As WebBrowser
        Dim AdressBar As ToolStripTextBox
        Dim tbpage As TabPage = CType(sender, ToolStripButton).GetCurrentParent.Parent
        Dim tbpages
        tmpnavig = tbpage.Controls("webnavig")
        tbpages = tmpnavig.Parent
        AdressBar = tbpages.Controls("AdressBar")
        If e.KeyChar = ControlChars.Cr Then
            tmpnavig.Navigate(AdressBar.Text)
        End If
    End Sub 

Merci de ton aide

Salut

Matrux

matrux · Answer

Merci,

J4ai trouver comment faire : 
J'ai utiliser ce code la :

    Public Sub AdressBar_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Dim tmpnavig As WebBrowser
        Dim AdressBar As ToolStripTextBox
        Dim tbpage As TabPage = CType(sender, ToolStripTextBox).GetCurrentParent.Parent
        Dim tbpages As ToolStrip = CType(sender, ToolStripTextBox).GetCurrentParent
        tmpnavig = tbpage.Controls("webnavig")
        AdressBar = tbpages.Items.Item("adressbar")
        If e.KeyChar = ControlChars.Cr Then
            tmpnavig.Navigate(AdressBar.Text)
        End If
    End Sub

Par contre j'ai un autre probléme :

 Dim AdressBar As New ToolStripTextBox
        AdressBar.Name = "AdressBar"
        AdressBar.Text = ""
        AdressBar.Width = "600"
        AddHandler AdressBar.KeyPress, AddressOf AdressBar_KeyPress
        tstrip.Items.Add(AdressBar)

Ma toolstriptextbox ne veut pas s'afficher avec un taille de 600.

Merci de ton aide

cs_casy · Answer

Ouh là, j'ai du retard dans les réponses.

Dsl, j'ai pas tout lu

Pour la dimention regarde la propriété Dock, par défaut je pense qu'elle est à Top (ancrée en haut du parent), il doit falloir la mettre sur None.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

matrux · Answer

Oui mais si je retire dock top elle ne sera plus en haut, et justement je voudrais la garder en haut
As-tu une idée qui pourrais m'aide rpour ce petit probléme ?

Et aussis au passage pendant que j'y pense, comment tu fais pour supprimer l'onglet actif d'un tabcontrol ?

Merci de ton aide.

Salut

Matrux

matrux · Answer

Et aussis comment faire pour que lorsque je clique sur un menu qui a pour fontion 'Navig.ShowSaveAsDialog()' il enregistre la page de l'onglet actif.

Merci


Matrux

cs_casy · Answer

Alors en bloc
pour la barre d'outil, tu joues sur sa position avec les propriétés .Location.X et .Location.Y

Pour obtenir l'onglet courant, tu l'as avec TabControl1.SelectedTab. A partir de là tu peux accèder à tous ses controles enfants.

Quant à le supprimer un truc comme TabControl1.TabPages.Remove(TabControl1.SelectedTab) devra le faire.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

matrux · Answer

Quand je tape ceci pour enregistrer la page ca ne marche pas. 

        Dim save
        save = TabControl1.SelectedTab.Controls("navig")
        save.ShowSaveAsDialog()

Ou est mon erreur ?

Merci

Salut

Matrux

cs_casy · Answer

essaye avec Dim save as webbrowser peut-etre, chez moi ça marche.

Attention, le nom que tu passe à Controls() doit correspondre à la valeur que tu as donner à la propiété Name de ton controle.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

matrux · Answer

J'ai un probléme avec la textbox en 600 et le dock.top
Si je retire la dock.top elle disparait.
Je ne pas ecrire les valeur location.x et loaction.y

Aurais tu une autre solution ?

Merci

Salut

Matrux

matrux · Answer

Et je n'arrive pas a acceder au Webbrowser qui se trouve dans un tabpages a partir d'un menu ou d'un bouton qui est externe au tabcontrol.
Pourrais tu me donner un exemple ?

Merci de ton aide

Salut

Matrux

cs_casy · Answer

Ben je sais pas, moi ça marche avec le code donné tout à l'heure.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

matrux · Answer

Sinon j'ai un autre probléme. en faite si je supprime un onglet avec : 
TabControl1.TabPages.Remove(TabControl1.SelectedTab)

et que nesuite j'en recreer un j'ai un probléme il me dis :

InvalidArgument=La valeur '2' n'est pas valide pour 'index'.
Nom du paramètre : index

pour cette ligne : Navig.Parent = TabControl1.TabPages(ongletcounter - 1)

J'ai l'impression que le probléme est avec le compteur.
Sais tu comment faire ?

Merci

Matrux

cs_casy · Answer

Quant tu supprime un onglet, pense à décrémenté ton compteur

Tu ne peux pas créer le 3eme onglet si tu n'as pas aupparavent 2 onglets d'existants

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

matrux · Answer

Pour ce qui est de la taille de la toolstriptextbox a 600 meme en retirant le dock la taille ne change pas.

Juste pour rapele (au cas ou, on ne sait jamais...) : voici le code :

        Dim AdressBar As New ToolStripTextBox
        AdressBar.Name = "AdressBar"
        AdressBar.Text = ""
        AdressBar.Width = "600"
        AddHandler AdressBar.KeyPress, AddressOf AdressBar_KeyPress
        tstrip.Items.Add(AdressBar)

En tous cas je te remercie pour ta patience, car je fdois finir par etre lourd avec toutes mes questions......

Merci

Salut

Matrux

cs_casy · Answer

Oupssss, excuse moi, j'avais pas fait gaffe que tu parlait de la textbox, j'étais resté sur la barre d'outil.

Essaye peut-etre alors en mettant la Propriété Autosize de la textbox à False.

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #    http://aide-office-vba.monforum.com/index.php

matrux · Answer

Merci de ton aide.

Bonne Journée

Salut

MatruX

Ajoute de controle

28 réponses

Votre réponse

Discussions similaires