tabcontrols et tabpage

Version imprimable

bonjour

j'ai créé un tabcontrols avec 3 tabpage dessus
dans tabpage 1 il y a une richtextbox 1
dans tabpage 2 je voudrait quand je clique dessus que sa affiche la richtextbox 2
et dans tabpage 3 qu'il affiche la richtextbox 3

voici le début du code que j'ai fait:
Code:

1 2 3 4 Private Sub tabcontrol1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.Click TabPage2.Controls.Add(RichTextBoxFR2) RichTextBoxFR1.Visible = False End Sub
je seul probleme c'est que je sais pas comment faire pour afficher la richtextbox 1 dans tabpage 1 et rich 3 dans tab3
donc en faite c'est très simple je voudrais jongler dans chaque tabpage et que sa afficher les richtextbox, savez vous comment procéder ?

j'ai bien ajouter aussi 3 richtextbox donc il n'y en n'a pas qu'une mais 3

02/11/2010, 12h12
Gurdil le nain

Normalement, si tu as créé ton interface avec la vue designer et que tu as intégré chaque richTextBox dans le bon tabPage, les textbox devraient apparaitre correctement.

Sinon, pourquoi ne gère tu pas le click sur la tabPage ?

Je comprends pas vraiment ton soucis je crois, tu voudrais que lorsque tu es sur la tabPage1, le richTextBox1 soit affiché mais les autres cachés ?
02/11/2010, 14h05
Invité

j'ai voulu écrire le code dans tabpage mais sa ne marchait pas trop bien ou peut etre j'ai mal écrit mon code

en fait j'erait juste voulu quand je clique sur tabpage1 sa affiche rtb1
quand je clique sur tabpage2 sa affiche rtb2 etc...
et les autre juste caché
mon programme est un bloc note et je voullait faire plusieurs page pour pouvoir ouvrir plusieurs fichier par ex.

bonjour Morpheus500,
si je comprends bien ta question tu veux pouvoir afficher les controles RichTextBox dans tes onglets au démarrage du formulaire. si c'est le cas je te suggère de te baser sur ce code et tu auras la solution à ta problématique:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Public Class Form1
    'Private RichTextBox1 = New System.Windows.Forms.RichTextBox
 
    Friend WithEvents RichTextBox1 As New System.Windows.Forms.RichTextBox
    Friend WithEvents RichTextBox2 As New System.Windows.Forms.RichTextBox
    Friend WithEvents RichTextBox3 As New System.Windows.Forms.RichTextBox
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TabPage1.Controls.Add(Me.RichTextBox1)
        TabPage2.Controls.Add(Me.RichTextBox2)
        TabPage3.Controls.Add(Me.RichTextBox3)
 
        'RichTextBox1
        RichTextBox1.Location = New System.Drawing.Point(6, 6)
        RichTextBox1.Name = "RichTextBox1"
        RichTextBox1.Size = New System.Drawing.Size(360, 357)
        RichTextBox1.TabIndex = 0
        RichTextBox1.Text = ""
 
        'RichTextBox2
        RichTextBox2.Location = New System.Drawing.Point(6, 6)
        RichTextBox2.Name = "RichTextBox2"
        RichTextBox2.Size = New System.Drawing.Size(200, 200)
        RichTextBox2.TabIndex = 0
        RichTextBox2.Text = ""
 
        'RichTextBox3
        RichTextBox3.Location = New System.Drawing.Point(6, 6)
        RichTextBox3.Name = "RichTextBox3"
        RichTextBox3.Size = New System.Drawing.Size(200, 200)
        RichTextBox3.TabIndex = 0
        RichTextBox3.Text = ""
    End Sub
End Class

Avec ce code et avec un peu de subtilité tu pourras déposer dans l'évenement Click.

Bonne chance.

02/11/2010, 15h02
Gurdil le nain

Citation:

Envoyé par Morpheus500

j'ai voulu écrire le code dans tabpage mais sa ne marchait pas trop bien ou peut etre j'ai mal écrit mon code

Fait voir ton code stp.

j'ai trouvé plus simple a faire
Code:

1 2 3 4 5 6 Private Sub tabcontrol1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.Click TabPage1.Controls.Add(RichTextBoxFR1) TabPage2.Controls.Add(RichTextBoxFR2) TabPage3.Controls.Add(RichTextBoxFR3) End Sub
j'ai bien mes 3 rtb sur les 3 tabpage
le seul soucis que je rencontre c'est que des a l'execution du programme
il faut que je clique sur la tabpage1 pour commencer a écrire
il charge toujours la tabpage2 au démarrage
j'ai éssayer de faire tabpage1.focus au chargement de ma form principale
mais sa ne fonctionne pas

02/11/2010, 15h15
Gurdil le nain

C'est quand même plus propre d''ajouter tes box à tes containers dans un New ou un Load...

Après pour afficher le tabPage1 au lancement tu dois pouvoir faire (toujours dans un New ou Load) :

Code:

tabControl.SelectedIndex = 0
02/11/2010, 15h49
Invité

j'ai éssayer le code mais il ne sélection pas la page1
je l'est bien mi dans ma form principale load mais le programme se lance toujours sur la 2eme page
02/11/2010, 16h02
nasty

Bonjour

On peut voir le code du load?

Nasty

voila le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBoxFR1.Visible = True
        WebBrowser1.Visible = False
        ToolStripStatusLabel1.Text = DateTime.Now.ToLongDateString
        ToolStripStatusLabel5.Text = DateTime.Now.ToLongTimeString
        ToolStripStatusLabel2.ForeColor = Color.Blue
        ToolStripStatusLabel3.ForeColor = Color.Blue
        ToolStripStatusLabel4.ForeColor = Color.Blue
 
 
    End Sub

bien sur j'ai enlever le code que Gurdil le nain ma donner je l'avait mis en premiere ligne

frmMain est ma form de démarrage du prog.

Essaie de t'inspirer de la première réponse que je t'ai envoyée.
tu verras que pour ce cas le chargement des controles RichTextBox se font lors de l'évenement Form.load. A ton tour d'enlever le code de là bas et de le mettre dans les événements Click.

d'abords tu déclare tes controles dans Class Form1 par exemple:
Code:

1 2 3 Friend WithEvents RichTextBox1 As New System.Windows.Forms.RichTextBox Friend WithEvents RichTextBox2 As New System.Windows.Forms.RichTextBox Friend WithEvents RichTextBox3 As New System.Windows.Forms.RichTextBox
ensuite dans l'évenement Enter de ton Tabpage1:
Code:

1 2 3 4 5 6 7 TabPage1.Controls.Add(Me.RichTextBox1) 'RichTextBox1 RichTextBox1.Location = New System.Drawing.Point(6, 6) RichTextBox1.Name = "RichTextBox1" RichTextBox1.Size = New System.Drawing.Size(360, 357) RichTextBox1.TabIndex = 0 RichTextBox1.Text = ""
et Enfin tu feras de même pour les 2 autres tabpages.

merci pour ta réponse
éffectivement c'est un peu plus clair comme sa ;)

j'ai refait mon code le voila:

Code:

1
2
3
4
Public Class frmMain
    Friend WithEvents RichTextbox1 As New System.Windows.Forms.RichTextBox
    Friend WithEvents RichTextBox2 As New System.Windows.Forms.RichTextBox
    Friend WithEvents RichTextBox3 As New System.Windows.Forms.RichTextBox

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TabPage1.Controls.Add(RichTextBoxFR1)
        TabPage2.Controls.Add(RichTextBoxFR2)
        TabPage3.Controls.Add(RichTextBoxFR3)
        RichTextBoxFR1.Visible = True
        WebBrowser1.Visible = False
        ToolStripStatusLabel1.Text = DateTime.Now.ToLongDateString
        ToolStripStatusLabel5.Text = DateTime.Now.ToLongTimeString
        ToolStripStatusLabel2.ForeColor = Color.Blue
        ToolStripStatusLabel3.ForeColor = Color.Blue
        ToolStripStatusLabel4.ForeColor = Color.Blue
 
 
    End Sub

et la sa marche quand j'ouvre le prog. il se lance sur tabpage1
je vient de penser a une chose il va falloir tout refaire !
tout se que j'ai fait sur la rtb1 il faudra que je le fasse aussi sur rtb2 et rtb3
oulalla :cry: quelle folle aventure la programmation