Question

在VB中，我该怎么弄才能使我的程序能够多张图片都在image中显现出来？或者用其它方法能够看多张图片？

大概70~3000张图片了，我觉得都用控件是不是太乱了？数组也不太会用
程序现在有一个按钮和一个image控件，代码：
Private Sub Command1_Click()
Static i
i = Format(i + 1, "000")
Image1.Picture = LoadPicture("E:\工作\VB软件\三维重建\新建文件夹\" & i & ".emf")
End Sub
我应该如何弄下去？求高手指教

Answer 1

image可能不行，要用picture可以，而且你显示那么多的图片会浪费很大的内存的。

Answer 2

IMAGE控件数组。

Answer 3

1 先设置一个image控件数组如： image1
2 载入图片时在数组中加载一image控件：Load image1(index)
3 在image控件鼠标事件中设置拖动有关代码，这样就可使每张图片可拖动了。

Private Sub Command1_Click()
Static Index As Integer
Static i
i = Format(i + 1, "000")

Index = Index + 1
Load Image1(Index)
Image1(Index).Picture = LoadPicture("E:\工作\VB软件\三维重建\新建文件夹\" & i & ".emf")
Image1(Index).Visible = True
End Sub
------------------------------------------------------------------------
如果只是简简单单显示多张图片的话，那就改用PictureBox控件，用控件的PaintPicture方法绘制图片。

追问

2 载入图片时在数组中加载一image控件：Load image1(index)
是在控件image1里放一个控件image2吗？若不是，应如何？

追答

不是，它自动生存一个image控件，并加入控件数组的 index指定的下标位。

追问

那就只需要一个image1就可以打开许多张图了？
在image控件鼠标事件中设置拖动有关代码，这样就可使每张图片可拖动了。
代码怎么弄？图片能否重叠？是在Image1_DragOver事件里吗？怎么弄才能让每张图片动的时候像CAD中的3D图像，或者有xyz的的显示图像？

追答

这只是一个例子，要完全满足你要求只有你自己弄了。