如题
请给点代码参考！谢谢！
我用CommonDialog1选择了多张图片，想在一个控件里显示选中的N张图片的缩略图

[ 本帖最后由 wxflw 于 2012-11-3 19:49 编辑 ]

要自己 写代码。

自己把这些图片，按一定的大小 ，贴到 图片框 中去就达到你的目的。

一个隐藏的 图片框 ，加入图像，开自动大小。然后计算 定高，定宽，换算出 图像的大小，然后 复制到指定位置，指定大小。
循环处理。

这么麻烦啊！网上找了找，很少有这样的一类代码！好像很麻烦啊！
网上查了一段代码，有些看不明白！脑子都有点昏了！囊帮注释一下吗？
特别是在Image1.Visible 的Image1上和Image1(i)上，后者好像是个数组类的！可是那前者是什么？请指教一下
Private Sub Command2_Click() '多图片显示
  On Error Resume Next
  Dim i As Integer
  Dim j As Integer
  j = File1.ListCount + 1
  If Image1.Visible = True Then
  Call Command3_Click
  End If
  For i = 1 To j
  Load Image1(i)
  Image1(i).Visible = True
  Image1(i).Left = Image1(i - 1).Left + 1400
  Image1(i).Top = Image1(i - 1).Top
  Image1(i - 1).Picture = LoadPicture(dir1.Path + "\" + File1.List(i - 1))
  DoEvents
  If Image1(i).Left >= 10000 Then
  Image1(i).Top = Image1(i - 1).Top + 1200
  Image1(i).Left = Image1(0).Left
  End If
  Next
  '判断是否有Image1控件被picture1遮挡了
  If (Image1(j - 3).Top + Image1(j - 3).Height) > frame1.Height Then
  frame1.Height = (Image1(j - 3).Top + Image1(j - 3).Height) + 100
  End If
  VScroll1.Max = frame1.Height - Picture1.Height
End Sub
  
Private Sub Command3_Click()
Dim i As Integer
For i = 1 To Image1.Count - 1
Unload Image1(i)
Next
Image1(0).Picture = LoadPicture("")
VScroll1.Max = 0
End Sub

http://zhidao.baidu.com/question/135606838
百度的连结你们应该不会挡吧～
它的方法是说很简单～您试试～

关键是Image控件中的Stretch属性会自动帮您做缩图～

要不是你问～我去找～
不然我还没发现有这东西～