Discussion :

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[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.

[Gurdil le nain]

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.

[bonagad1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

j'ai trouvé plus simple a faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

tabControl.SelectedIndex = 0

[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

[nasty]

Bonjour

On peut voir le code du load?

Nasty

[bonagad1]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Invité]

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

j'ai refait mon code le voila:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 quelle folle aventure la programmation