ich habs mit der variante von krusty gelöst -> for each c as controll in me.controlls...
klappt im grunde auch, sieht so aus:
Code:
Dim a As Integer
Dim arr As New List(Of PictureBox)
arr.Add(PictureBox1)
arr.Add(PictureBox2)
arr.Add(PictureBox3)
arr.Add(PictureBox4)
arr.Add(PictureBox5)
arr.Add(PictureBox6)
arr.Add(PictureBox7)
arr.Add(PictureBox8)
arr.Add(PictureBox9)
arr.Add(PictureBox10)
arr.Add(PictureBox11)
arr.Add(PictureBox12)
usw....
arr.Add(PictureBox30)
For Each i As PictureBox In arr
a = a + 1
aa.OpenDb()
vGraphics = i.CreateGraphics
If a < 10 Then vGraphics.DrawString((aa.SearchDates(lUser, CDate("0" & a & ".01." & year) & " 10:10:10")), vFont, vBrush, vPoint)
If a >= 10 Then vGraphics.DrawString((aa.SearchDates(lUser, CDate(a & ".01." & year) & " 10:10:10")), vFont, vBrush, vPoint)
aa.CloseDb()
Next
ich muss die if-auswahl teffen weil das datum ab dem 10. keine 0 mehr davor gesetzt werden kann. aus irgendeinen grund werden aber in diesem besipiel nur die picturebox1 und die 10. beschrieben.
im ersten versuch als ich in jede das selbe datum eingetragen hab hat es funktioniert, es kann hier also nur an den if anweisungen hängen.