How to make several labels with a counter

[kevin hash]

Hi,

I want to make several linklabels for some links I have in a DB. I want the program make a new linklabel for each link automatically.

I thought of something like this:

static counter as integer
Static point As Point

point.X = 50
point.Y = 70

For Each dtrDatarowDVDs In objdtsAantalPerCategorie.tblCategorieën
Dim linklabel(number of the counter) As New LinkLabel

linklabel(number of the counter).Text = dtrDatarowDVDs.GetChildRows("tblDVDstblLinks").item("hyperlink")
linklabel(number of the counter).Location = New Point(point.X, point.Y + 30)
linklabel(number of the counter).Size = New Size(30, 30)
Me.Controls.Add(linklabel(number of the counter))

Next


So what I want is that all my link stand under eachother. I don't know if I need a different label name for every linklabel.

Maybe someone can help me

[kevin hash]

Hi,

I want to make several linklabels for some links I have in a DB. I want the program make a new linklabel for each link automatically.

I thought of something like this:

static counter as integer
Static point As Point
 
point.X = 50
point.Y = 70
 
For Each dtrDatarowDVDs In objdtsAantalPerCategorie.tblCategorieën
     Dim linklabel(number of the counter) As New LinkLabel
    
     linklabel(number of the counter).Text = dtrDatarowDVDs.GetChildRows("tblDVDstblLinks").item("hyperlink")
     linklabel(number of the counter).Location = New Point(point.X, point.Y + 30)
     linklabel(number of the counter).Size = New Size(30, 30)
     Me.Controls.Add(linklabel(number of the counter))
 
Next

So what I want is that all my link stand under eachother. I don't know if I need a different label name for every linklabel.

Maybe someone can help me

[zxed]

you say you Thought of it... you didnt actually try out the code?

Hi,

I want to make several linklabels for some links I have in a DB. I want the program make a new linklabel for each link automatically.

I thought of something like this:

static counter as integer
Static point As Point
 
point.X = 50
point.Y = 70
 
For Each dtrDatarowDVDs In objdtsAantalPerCategorie.tblCategorieën
     Dim linklabel(number of the counter) As New LinkLabel
    
     linklabel(number of the counter).Text = dtrDatarowDVDs.GetChildRows("tblDVDstblLinks").item("hyperlink")
     linklabel(number of the counter).Location = New Point(point.X, point.Y + 30)
     linklabel(number of the counter).Size = New Size(30, 30)
     Me.Controls.Add(linklabel(number of the counter))
 
Next

So what I want is that all my link stand under eachother. I don't know if I need a different label name for every linklabel.

Maybe someone can help me

[kevin hash]

The problem is I didn't try this code because I know it wont work. I don't know how to ad a number to the text "linklabel" when I declare it and when I use it later on. That is my problem. This is a code of what I want to do

[kevin hash]

Please help, I'm stuck on this. I've searched Google for hours now and still don't got an answer.

[zxed]

Please help, I'm stuck on this. I've searched Google for hours now and still don't got an answer.

you have your concepts all wrong

ill help you out gimme a few mins while i enjoy my icecream

[zxed]

Const POINTX As Integer = 50
        Const POINTY As Integer = 70

        For i As Integer = 0 To 10
            Dim alinklabel As New LinkLabel
            alinklabel.Name = "LinkLabel" & i.ToString
            alinklabel.Text = "tblDVDstblLinks.hyperlink"
            alinklabel.Location = New Point(POINTX, POINTY + 30)
            alinklabel.Size = New Size(30, 30)
            Me.Controls.Add(alinklabel)
        Next

[zxed]

and i you need to find any of the link lables to use later you can do a

Dim LabelIndex as integer = 1
Dim FindMyLinkLabel As LinkLabel = Me.Controls("LinkLabel" & LabelIndex.ToString)