Classe dérivée de TabPageRésolu

Question

Bonjour,
Une fois de plus j'ai besoin de votre aide.
Je souhaiterai créer un "modèle d'onglet" pour le contrôl TabControl,afin de pouvoir directement charger un onglet contenant tout ce dont j'ai besoin.
J'ai pour cela créer une classe "class3" que je voudrai utiliser de la manière suivante :
Private Sub Nouvelle onglet(...)
Dim Tmptab As New Class3
TabControl1.TabPages.Add(Tmptab)
End Sub
Seulement cela ne fonctionne pas,c'est un onglet vide qui se charge.
Je vient tout juste d'apprendre a créer mes classes personnalisée et ne suis pas encore trés a l'aise avec ca alors j'ai dû oublier quelque chose.Voila son contenue :
Public Class Class3
    Inherits System.Windows.Forms.TabPage

    Public Sub New(ByVal container As System.ComponentModel.IContainer)
        MyClass.New()
        If (container IsNot Nothing) Then
            container.Add(Me)
        End If
    End Sub

    Public Sub New()
        MyBase.New()
        InitializeComponent()
    End Sub

    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
        Try
            If disposing AndAlso components IsNot Nothing Then
                components.Dispose()
            End If
        Finally
            MyBase.Dispose(disposing)
        End Try
    End Sub

    Private components As System.ComponentModel.IContainer

    Private Sub InitializeComponent()
        Me.GroupBox1 = New System.Windows.Forms.GroupBox
        Me.CDesc = New System.Windows.Forms.TextBox
        Me.CName = New System.Windows.Forms.TextBox
        Me.Label1 = New System.Windows.Forms.Label
        Me.GroupBox2 = New System.Windows.Forms.GroupBox
        Me.CBody = New System.Windows.Forms.TextBox
        Me.GroupBox1.SuspendLayout()
        Me.GroupBox2.SuspendLayout()
        Me.SuspendLayout()

        'Paramétrage des controls

        Me.Location = New System.Drawing.Point(4, 25)
        Me.Name = "TabPage1"
        Me.Size = New System.Drawing.Size(637, 377)
        Me.TabIndex = 0
        Me.Text = "TabPage1"
        Me.UseVisualStyleBackColor = True
        Me.GroupBox1.ResumeLayout(False)
        Me.GroupBox1.PerformLayout()
        Me.GroupBox2.ResumeLayout(False)
        Me.GroupBox2.PerformLayout()
        Me.ResumeLayout(False)
        Me.PerformLayout()
    End Sub

    Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
    Friend WithEvents CDesc As System.Windows.Forms.TextBox
    Friend WithEvents CName As System.Windows.Forms.TextBox
    Friend WithEvents Label1 As System.Windows.Forms.Label
    Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents CBody As System.Windows.Forms.TextBox
End Class

Est ce que j'aurai oublié quelque chose ?

Vianneyp · Accepted Answer

J'ai honte 
J'ai oublier d'ajouter mes groupboxs :
        Me.Controls.Add(GroupBox1)
        Me.Controls.Add(GroupBox2)
Bon ben merci tout de même a ceux qui aurai cherché ^^.
@+

Classe dérivée de TabPage

1 réponse

Votre réponse

Discussions similaires