|
Několikrát se to zde řešilo. Zkuste si projít diskuse: http://www.vbnet.cz/forum-tema--503-nezn... http://www.vbnet.cz/forum-tema--937-pexe... http://www.vbnet.cz/forum-tema--708-36_x... http://www.vbnet.cz/forum-tema--631-udal... http://www.vbnet.cz/forum-tema--331-jak_... Záleží na tom, jak chcete dále s pictureboxy pracovat. Pokud to chcete mít nejpodobnější Vaší představě z VB6, pak si vytvořte pole (nebo kolekci) pictureboxů. Třeba nějak tak:
Public Class Form6
Private obrazky(4) As PictureBox
Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
For i As Integer = 0 To obrazky.Length - 1
obrazky(i) = New PictureBox
With obrazky(i)
.Name = "Picturebox" & i
.Width = 100
.Height = 100
.Left = i * 105
.Top = 10
End With
Next
Me.Controls.AddRange(obrazky)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
obrazky(4).BackColor = Color.AntiqueWhite
obrazky(1).BackColor = Color.Blue
End Sub
End Class
|