- Код: Выделить всё
val = 32
Dim mDirInfo As DirectoryInfo, mFileInfo As FileInfo
Dim n, n2 As Integer
n = 0
n2 = 0
mDirInfo = New DirectoryInfo(Application.StartupPath + "\images\")
For Each mFileInfo In mDirInfo.GetFiles("*.png")
mpb = New System.Windows.Forms.PictureBox
With mpb
.Visible = True
.Left = n * pSize
.Top = n2 * pSize
.Width = pSize
.Height = pSize
.Image = System.Drawing.Image.FromFile("images\" + mFileInfo.Name)
.SizeMode = PictureBoxSizeMode.StretchImage
.Name = mFileInfo.Name
End With
AddHandler mpb.Click, AddressOf mpbClick
pTools.Controls.Add(mpb)
n += 1
Next
У меня такой вопрос, а есть другие варианты. Просто увидел прогу написанную на C++, там вообще почти нет косяков хотя выводится куча вот таких картинок.
P.S. На досуге занимаюсь созданием редакторов для J2me игр, поэтому и спрашиваю как можно сделать еще.