att rita upp ett rutnät genom att använda sig av Load Image(x) är ett mycket enkelt sätt att göra en "plan" för många olika användnings områden, exempelsvis spel.

såhär ser min kod ut i ett av min program i vb6
<code>
'---------------------
Const PictureSize As Integer = 300

XRow = 30
YRow = 20

For X = 1 To XRow
For Y = 1 To YRow
Counte = Counte + 1

Load Image1(Counte)

Image1(Counte).Left = (PictureSize * X)
Image1(Counte).Top = (PictureSize * Y) + 300

Image1(Counte).Visible = True
Next Y
Next X
'---------------------
</code>

mitt problem är när jag ska skriva denhär koden i vb.net... har inte hittat något sätt att kör raden Load Image1(Count)... det andra verkar fungera men just den raden... vad ska man skriva, går det att göra på något enkelt sätt i vb.net eller??

Tack på förhand
/Jesper

VB.Net stödjer ej kontroll arrayer. Använd Controls.New istället

eh ok... jag är liksom välldigt ny att använda vb.net...
hur skulle koden exakt se ut?

ah.. jag löste det nu =)

Berätta gärna hur. ;O)

Såhär löste jag det hela:

<code>
Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim pic As Control
pic = CType(sender, Control)
MsgBox("Tjahapp " & pic.Name, MessageBoxButtons.OK, "Bild Nummer:")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim pic As PictureBox
Const XRow As Short = 30
Const YRow As Short = 20

Dim Counte As Short
Dim X As Short
Dim Y As Short

For X = 1 To XRow
For Y = 1 To YRow
Counte += 1
pic = New PictureBox()
pic.Location = New Drawing.Point(X * 20, Y * 20)
pic.Size = New Drawing.Size(20, 20)
pic.BackColor = System.Drawing.Color.Black
pic.Name = Counte
Me.Controls.Add(pic)
AddHandler pic.Click, AddressOf Pic_Click
Next Y
Next X
End Sub
</code>

Varför? var ju väldigt praktiskt!
Vilket ljushuvud har kommit på den dumma ideen?