各位大师：如何实现在一个图片背景下加入多个小图标？（小图标可拖动）急！！！

Question

如何实现在一个图片背景下加入多个小图标？（小图标可拖动）急！！！！！！！！！！！！！！！！！！！！！！，散分100

Answer 1

一个picturebox1做容器，放背景图，里面放一个picturebox2控件数组，放小图标
代码：
Option Explicit
Dim dx, dy As single
Private Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Source.Left = X - dx
Source.Top = Y - dy
End SubPrivate Sub Picture2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
dx = X
dy = Y
End Sub

Answer 2

记得把picture2的dragmode属性改成1！

Answer 3

我强调的是多个小图标，相当于实时吧，就是想加多少就加多少，怎样控制！谢谢MmMVP！！

Answer 4

For i = 0 To 7
    Load picture2(i)
Next i用这个方法可以生成8个picture2 其余同理

Answer 5

Option Explicit
Dim dx, dy As Single
Dim i As IntegerPrivate Sub Command1_Click()
CommonDialog1.ShowOpen
Load Picture2(i)
Picture2(i).Picture = LoadPicture(CommonDialog1.FileName)
Picture2(i).Left = 0
Picture2(i).Height = 0
Picture2(i).Visible = True
Picture2(i).DragMode = 1
Picture2(i).AutoSize = True
i = i + 1
End SubPrivate Sub Form_Load()
i = 1
End SubPrivate Sub Picture1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
Source.Left = X - dx
Source.Top = Y - dy
End SubPrivate Sub Picture2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
dx = X
dy = Y
End Sub
====================================
完整的代码