Organiser une paire de label-textbox dans un FlowLayoutPanel

Question

J'essaye d'organiser par programme de haut en bas une paire de label-textbox en utilisant un flowlayoutpanel. Ce que je suis en train de faire est similaire à l'image suivante:

modscan example

donc je l'ai mis en œuvre sous le code (je dois créer 254 paires label textbox):

Dim lbl As Label 
Dim txt As TextBox 
Dim flowLayout As FlowLayoutPanel 

For i As Integer = 0 To 253 
    lbl = New Label 
    lbl.Text = i.ToString("000") + ":" 
    lbl.Padding = New Padding(0) 
    lbl.Margin = New Padding(0) 

    txt = New TextBox 
    txt.Text = "<" + i.ToString.PadLeft(3, " ") + ">" 
    txt.MaxLength = 5 
    txt.Margin = New Padding(0) 
    txt.Size = New Size(39, 20) 

    flowLayout = New FlowLayoutPanel 
    flowLayout.FlowDirection = FlowDirection.LeftToRight 
    flowLayout.Controls.Add(lbl) 
    flowLayout.Controls.Add(txt) 
    flowLayout.Padding = New Padding(0) 
    flowLayout.Margin = New Padding(0) 

    Me.FlowLayoutPnl.Controls.Add(flowLayout) 
Next 

mais en utilisant au-dessus Je reçois le code ci-dessous:

my flowlayoutpanel

Toutes les idées?

Answer 1

Si je comprends ce que vous cherchez, ce code devrait vous donner le résultat escompté.

Dim flowLayout As New FlowLayoutPanel 
    flowLayout.AutoScroll = True 

    For i = 0 To 253 
     Dim label As New Label 
     label.AutoSize = True 
     label.Padding = New Padding(10, 5, 5, 10) 
     label.Text = i.ToString("000 ") + ":" 

     Dim txt As New TextBox 
     txt.Text = "Input " + i.ToString 
     txt.MaxLength = 5 

     flowLayout.Controls.Add(label) 
     flowLayout.Controls.Add(txt) 
    Next 

    Controls.Add(flowLayout) 
    flowLayout.Dock= DockStyle.Fill 

C'est ce que je reçois quand je lance ce code:

Par ailleurs, l'image de votre choix que vous avez affichée montre une paire d'étiquettes, pas l'étiquette/TextBox. A propos du code, vous devez d'abord créer le conteneur principal (FlowLayoutPanel), puis pendant que vous faites l'itération, vous devez ajouter chaque élément à votre conteneur. Enfin, vous devez ajouter le FlowLayoutPanel à vos contrôles de formulaire pour être affiché sur le formulaire.

Answer 2

Je l'ai résolu en utilisant ci-dessous le code:

Private Sub PopupForm_Load(ByVal sender As Object, ByVal e As System.EventArgs) _ 
Handles Me.Load 
    Dim lbl As Label 
    Dim txt As TextBox 
    Dim flowLayout As FlowLayoutPanel 
    Dim g As Graphics 


    For i As Integer = 0 To 253 
     lbl = New Label 
     lbl.Text = i.ToString("000") + ":" 
     lbl.Anchor = AnchorStyles.None 
     lbl.AutoSize = True 


     txt = New TextBox 
     txt.Text = "<" + i.ToString.PadLeft(3, " ") + ">" 
     txt.MaxLength = 5 
     txt.Anchor = AnchorStyles.None 
     txt.ReadOnly = True 
     g = txt.CreateGraphics 
     txt.Width = g.MeasureString(txt.Text, txt.Font).Width + 5 
     g.Dispose() 

     flowLayout = New FlowLayoutPanel 
     flowLayout.FlowDirection = FlowDirection.LeftToRight 
     flowLayout.AutoSize = True 
     flowLayout.Anchor = AnchorStyles.None 
     flowLayout.Margin = New Padding(0) 
     flowLayout.Padding = New Padding(0) 

     flowLayout.Controls.Add(lbl) 
     flowLayout.Controls.Add(txt) 

     Me.FlowLayoutPnl.Controls.Add(flowLayout) 
    Next 
End Sub 

et le résultat est this

Notes:

Mon FlowLayoutPnl est créé dans le temps de conception avec des propriétés ci-dessous (les autres à défaut) :

• AutoSize à true
• AutoScroll true
• Dock pour remplir
• FlowDirection à TopDown