Question

VB 如何把PictureBox 的图片随机显示在窗体上，要求随机同时显示多个

添加一个picturebox 里面加了一张图片，要求同时打印多个这张图片，随机分布在窗体内

Answer 1

添加一个picturebox ，添加一个command
Private Sub Command1_Click()
Me.AutoRedraw = True
Randomize
Me.PaintPicture Me.Picture1.Picture, Rnd * Me.Width, Rnd * Me.Height
End Sub

Answer 2

Private Sub Form_click()
Form1.Show
For i = 1 To 10
Form1.PaintPicture Picture1.Picture, Rnd * Form1.Width, Rnd * Form1.Height
Next
End Sub