|
Dynamické vytváření ovládacích prvků se tady již řešilo několikrát, stačí hledat.
Public Class Form1
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim picture As New PictureBox
picture.Image = New Bitmap("C:\WINDOWS\winnt.bmp")
picture.Location = New Point(8, 8)
Me.Controls.Add(picture)
AddHandler picture.Click, AddressOf picture_Click
End Sub
Private Sub picture_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'Ošetřit událost klepnutí na obrázek
End Sub
End Class
|