Formitem loop

Status
Niet open voor verdere reacties.

The Lion93

Gebruiker
Lid geworden
12 jul 2007
Berichten
189
Hallo,

Ik ben opzoek naar een manier om door een aantal pictureboxitems te loopen
Ik doe het op dit moment op de volgende manier:
Code:
HomeLogo1.ImageLocation = "http://...."
HomeLogo2.ImageLocation = "http://...."
HomeLogo3.ImageLocation = "http://...."
HomeLogo4.ImageLocation = "http://...."
HomeLogo5.ImageLocation = "http://...."
HomeLogo6.ImageLocation = "http://...."
HomeLogo7.ImageLocation = "http://...."
HomeLogo8.ImageLocation = "http://...."

Kan dit op een gemakkelijkere manier? Het moet dus zoiets worden als:
Code:
For i = 0 To 31
HomeLogo &i.Imagelocation = "http://...."
Next
 
Zo iets?
Code:
For i = 0 To 31
controls("HomeLogo" &i).Imagelocation = "http://...."
Next
 
Waarom wil je 31 PictureBoxen met hetzelfde logo hebben? :confused:
 
Haha het is niet 31 keer hetzelfde logo, maar steeds een verschillende.

Bedankt ik ga bovenstaande code proberen.
 
Waarvoor heb je dan 31 logo's nodig? :P

OT: De code van paulva gebruik je - met meerdere logo's - dan i.c.m. met een array.
 
Ik ben bezig met een programma dat het makkelijker moet maken om mijn website vanaf een tablet bij te werken, ik schrijf het nu in Visual Studio 2010 in Visual Basic aangezien Visual Studio 2012 voor Metro applicaties alleen op Windows 8 draait. Ik bedacht me dat ik dan alvast alle achterliggende code heb en dat ik alleen de interface hoef aan te passen.....blijkt dat Microsoft de hele structuur van metro-applicaties heeft omgegooid t.o.v. reguliere Windows applicaties:(

Maar dan nog, waarom 31 logo's? Mijn site heeft met voetbal te maken, vandaar 18 eredivisie clubs. Dus 32 wedstrijden per jaar.

OT:
Code:
'Imagelocation' is not a member of 'System.Windows.Forms.Control
 
Uit de losse pols:

[CPP]Dim linkArray = {"http://...","http://...","http://...", ........ , "http://...")
Dim i As Integer = 0
For Each ctrl As Control In Me.Controls
i += 1
If TypeOf Control Is PictureBox Then
Dim pb As PictureBox = ctrl
pb.ImageLocation = linkArray(i)
End If
Next[/CPP]

Deze warning:
'Imagelocation' is not a member of 'System.Windows.Forms.Control
maakt op zich niet zo veel uit.

Maar ik heb het toch verholpen in bovenstaande code.
 
Laatst bewerkt:
Het was geen warning, het was een error.

Ook nu krijg ik weer een error:
Code:
Error	1	'Control' is a type and cannot be used as an expression.
 
Probeer dit eens, ik denk dat Joz1 een foutje heeft gemaakt :P:

[CPP]Dim linkArray = {"http://...","http://...","http://...", ........ , "http://...")
Dim i As Integer = 0
For Each ctrl As Control In Me.Controls
i += 1
If TypeOf ctrl Is PictureBox Then
Dim pb As PictureBox = ctrl
pb.ImageLocation = linkArray(i)
End If
Next[/CPP]
 
Oeps. Inderdaad :o

If TypeOf Control Is PictureBox Then

Moet natuurlijk:

If TypeOf ctrl Is PictureBox Then

zijn, zoals MartinJM terecht opmerkt ;)
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan