它是一个图片框,可以随时放进一个图片（好比一个相框）,如需要可以任意换一张,操作方便好用!
偶想到的是：
1、要在一个窗体上，放上多个这样的图片框；能做到吗？
2、图片框大小可以任意调整；可以实现吗？
3、图片框的位置也可以任意摆放；这个也许比较难，但应该也能实现；
各位大侠帮帮忙，这是一个很好的电子相册的方案啊！
希望能直接在附件上改进；
下面是该图片框源代码附件：

1xuiFwyK.rar (2.42 KB) 只有想不到..没有做不到..

顶一下

有思想
尽量自己先study,尽量自己尝试写程序遇到;困难大家会鼎立支持

下面是两个段代码,能否与前面代码结合?实现以上功能?
1,控件随窗体大小而变:
Private Sub Form_Load()
'窗体高度等于屏幕高度的六分之一
Form1.Height = Screen.Height / 6
'窗体宽度等于屏幕宽度的六分之一
Form1.Width = Screen.Width / 6
End Sub

Private Sub Form_Resize()
Command1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

2,用鼠标拖动图框:
Dim x1 As Single
Dim y1 As Single
'开始拖动
Const begin_drag = 1

Private Sub Form_Activate()
Label1.Caption = " (" & Image1.Left & "," & Image1.Top & ")"
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Image1.Picture = Source
Form1.Image1.Picture = LoadPicture(App.Path & "\xj7005.jpg")
Image1.Move (X - x1), (Y - y1)
End Sub

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
Image1.Drag begin_drag
Label1.Caption = " (" & Image1.Left & "," & Image1.Top & ")"
End Sub
源代码附件:

O2IzVnDz.rar (2.21 KB) 只有想不到..没有做不到..

6l9jKMy5.rar (2.16 KB) 只有想不到..没有做不到..

那位出手帮一下?