如何实现图片缩略显示

肖枭 
2001年 37期

　　相信大家都用过ACDSee这款经典的看图软件吧，或许有许多人对它里面的缩略图预览功能感到神秘。它到底是如何判断文件夹下有多少图片文件呢？又是怎样生成缩略图的呢？想到这儿，可能许多VB迷们早就想把这个技术加入到自己的软件当中去了，下面，我就介绍一种简易的方法给大家，VB Fans不妨一试。
　　　　坐下来仔细想想，生成缩略图主要有三个难点：1.判断该生成多少个图片框控件；2.如何不重复地把图片载入到图片框控件中；3.把所有这些图片框控件按顺序排列好。只要把这些问题解决了，其它的技术就不难了，对此我会在此文中一一介绍。
　　　　说了那么多，现在来制作一个实例。新建一个工程，把Form1的Caption属性设置为”缩略图片浏览器”；BorderStyle属性设置为3-Fixed Dialog；WindowState属性设置为2-Maximized。再在其上分别放置一个PictureBox，一个DriveListBox，一个DirListBox，一个FileListBox，两个CommandButton控件和一个Image控件。
　　　　源程序如下：
　　　　Private Sub Command1_Click　
　　　　＇以下是”:预览”的代码
　　　　On Error Resume Next
　　　　Dim i As Integer
　　　　Dim j As Integer
　　　　j = File1.ListCount + 1
　　　　If Image12　.Visible = True Then
　　　　Call Command2_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 Command2_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
　　　　Private Sub Dir1_Change（）
　　　　File1.Path = Dir1.Path
　　　　End Sub
　　　　Private Sub Drive1_Change（）
　　　　Dir1.Path = Drive1.Drive
　　　　End Sub
　　　　Private Sub Form_Load（）
　　　　Image1（0）.Picture = LoadPicture（“”）
　　　　End Sub
　　　　Private Sub VScroll1_Change（）
　　　　Picture2.Top = -VScroll1.Value
　　　　End Sub
　　　　以上就是整个软件的源程序，重要的部分在于Command1_Click下的生成数组控件，请大家细看，好了，你可以生成你漂亮的软件了。 
 