[VB.NET] Label per Code einfügen ?

[_set]

Moin ^^,

Ich komme gerade nicht weiter und finde einfach keinen Ansatz für eine Lösung..



Was ich genau machen will ?
Per Code einen Label (bzw 2) dynamisch zu erstellen.. also.. immer wenn man
die Sub aufruft, werden neue Labels (In dem Fall "FUNKTION" und "[OFF]") erstellt.

Ich hoffe mir kann evtl jemand helfen ^^

MFG Oshumar

[Nanoxx™]

Label Test= new Label();
Test.Location = new Point(25, 25);
this.Controls.Add(Test);

Sollte so funktionieren

[_set]

Originally Posted by Nanoxx™

Sollte so funktionieren

Ist nicht Dynamisch ^^

Stell es dir so vor :

Sub LabelAdd()
'Code für das Hinzufügen'
End Sub

Und immer wenn man jetzt LabelAdd aufruft.. wird ein Label erstellt..
Also wenn man den 2mal aufruft hat man 2 mal FUNKTION und 2 mal [OFF] und nach sowas suche ich.

[Shawak]

Sub LabelAdd()
  Label lbl = new Label()
  lbl.Location = new Point(25, 25)
  this.Controls.Add(lbl)
End Sub

Inwiefern ist das jetzt nicht "dynamisch"?

[_set]

Originally Posted by Shawak

Sub LabelAdd()
  Label lbl = new Label()
  lbl.Location = new Point(25, 25)
  this.Controls.Add(lbl)
End Sub

Inwiefern ist das jetzt nicht "dynamisch"?

Also ich hab das vorhin ausprobiert.. und da hat es dann den ersten Label wieder entfernt.. ich schau mal nochmal. Hab glaub den gleichen code ausm Internet.

[warfley]

Verwende die kannst du verwenden um alle Referenzen auf die Labels zu halten

[h4zed]

Hab das kurz mal mit nem TableLayoutPanel getestet und das funktioniert eigentlich recht schön!

Form Load Event:

tPanel.RowStyles.Clear() //Row Style clearen
tPanel.ColumnCount = 2 //Anzahl der Spalten definieren
tPanel.RowCount = 0 //Anzahl der Reigen definieren

Neue Row + Labels adden:

Private Sub AddLabelz()
        //"Function" Label erstellen
        Dim LbFunction As New Label
        LbFunction.Text = "Function"

        //"State" Label erstellen
        Dim LbState As New Label
        LbState.Text = "[OFF]"

        //Row Count raisen & Style definieren
        tPanel.RowCount = tPanel.RowCount + 1
        tPanel.RowStyles.Add(New RowStyle(SizeType.AutoSize, 0))

        //Labels in die zuletzt erstelle Row adden
        tPanel.Controls.Add(LbFunction, 0, tPanel.RowCount - 1) //Column 0 für Function Label
        tPanel.Controls.Add(LbState, 1, tPanel.RowCount - 1) //Column 1 für State Label
    End Sub

Hier noch ein Screen zur Veranschaulichung: