Label maken

[xHTML]

Beste,

Ik ben bezig met een project voor een school. Hierin moet ik een label maken.

Dim label As New Label
        label.Text = "CP"
        label.Font = New Font(label.Font.FontFamily, 14)
        label.Location = New Point(x(rij), y(kolom))
        label.Name = "CP" + CStr(x(rij))
        Me.Controls.Add(label)

Dit werkt verder prima. Ook wordt na het klikken de nieuwe x en y waardes vastgesteld.
Maar als ik 2 keer op de knop druk, wordt er maar 1 label gemaakt. Ik snap prima waarom, maar ik kom niet uit de oplossing

Nick

[MartinJM]

Inderdaad, dit lijkt niet te werken met labels, maar (gelukkig) werkt dit wel met buttons. En buttons kan je er net zo uit laten zien als labels:

        Btn = New System.Windows.Forms.Button
        Btn.FlatStyle = FlatStyle.Flat
        Btn.FlatAppearance.BorderSize = 0
        Btn.TextAlign = ContentAlignment.MiddleLeft
        Btn.Name = "NAAM"
        Btn.Location = New Point(50, 50)
        Btn.Text = "TEKST"
        Dim g As Graphics = Me.CreateGraphics
        Btn.Size = New Point(g.MeasureString(Btn.Text, New Font(Btn.Font.FontFamily, Btn.Font.Size + 4, Btn.Font.Style)).ToSize.Width, 23)
        Btn.FlatAppearance.MouseDownBackColor = Btn.BackColor
        Btn.FlatAppearance.MouseOverBackColor = Btn.BackColor
        Me.Controls.Add(Btn)

Het is niet de netste code en misschien ook niet de makkelijkste, maar hiermee zou het wel (ongeveer) moeten lukken...

Succes!

MartinJM

[xHTML]

Bedankt voor het antwoord, en sorry dat het zo lang duurde. Hele drukke weken achter de rug. Was ook veel weg.
Het werkt iig.

Is er ook een manier om deze vervolgens weer te verwijderen?

[MartinJM]

Je kan deze code gebruiken:

1
2
3
4
5
For i As Integer = 0 To Me.Controls.Count - 1 Step 1
            If Me.Controls(i).Name = "NAAM" Then
                Me.Controls.RemoveAt(i)
            End If
        Next

Hierbij moet je wel zorgen dat elke 'label' een andere naam heeft... Ook moet je zorgen dat er absoluut geen andere controls zouden kunnen zijn met dezelfde naam. Anders zullen deze ook verwijderd worden.

Als dat niet de bedoeling is, dan moet je dat nog even aangeven, dan zal er een ingewikkeldere code moeten komen....

Succes!

MartinJM

[xHTML]

Het ging vooral om het verwijderen gedeelte. De rest moet ik wel uitkomen

Bedankt!