9 labels in een rij

Status
Niet open voor verdere reacties.

Pilchaar

Gebruiker
Lid geworden
10 nov 2006
Berichten
42
hallo ik zou graag 9 labels in 1 kolom willen steken en zo dit 3 keer doen.
For x = 0 To aantal - 1
labels(x) = New Label
labels(x).BackColor = Color.Blue
labels(x).ForeColor = Color.Yellow
labels(x).Name = "lbl(" & x & ")"
labels(x).Tag = x
labels(x).Text = "test"
labels(x).Height = 25
labels(x).Width = 100
Controls.Add(labels(x))
labels(x).Location = New Point(10, 35 * x)
next
zo staan ze onderelkaar

moet ik werken met behulp van
If (teller + 1) Mod 6 <> 0 Then
x = x + 50
Else
y = y + 30
x = 15
End If
dit???

kan iemand me hierbij helpen?
 
Dus je wilt gewoon 3 kolommen van die 9 rijen? Maak het nie moeilijk voor jezelf en doe verder zoals je deed:

Code:
For y = 0 To kolommen - 1

            For x = 0 To rijen - 1

                labels(x) = New Label
                labels(x).BackColor = Color.Blue
                labels(x).ForeColor = Color.Yellow
                labels(x).Name = "lbl(" & x & ")"
                labels(x).Tag = x
                labels(x).Text = "test"
                labels(x).Height = 25
                labels(x).Width = 100
                Controls.Add(labels(x))
                labels(x).Location = New Point((110 * y) + 10, (35 * x) + 10)

            Next

        Next
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan