图片调整的问题

Question

大家好，我想问一下怎么实现图片调整，就是原来的图片都调整成90*120像素，位数是24的，能够实现批量调整，并且调整后各图片能够显示占空间大小，界面是这样
选择文件夹名称或文件名称（jpg,gif）的文件：
   
  原图片显示              处理后图片显示 
   111KB                        4KB
  上一张   下一张   单独替换    全部替换     大家帮帮忙，上下张都显示了，就是替换那一块，还有怎么计算该图占空间的大小显示出来，我用的是image框显示的图片，谢谢大家

Answer 1

使用Image控件显示照片，并将它按比例缩放到一个尺寸内。
Sub ShowPicture(PcitureName As String)
Dim ZX As Single
Dim ZY As Single
With Image1
   .Stretch = False
   .Visible = False
   .Picture = LoadPicture(PictureName)
   ZX = .Width / 155     '假设目标宽度为155像素
   ZY = .Height / 165    '假设目标高度为165像素      
   If ZX > ZY Then
      ZY = ZX
   Else
      ZX = ZY
   End If
   .Stretch = True
   .Width = Int(.Width / ZX)
   .Height = Int(.Height / ZY)
   .Visible = Ture
End With
End Sub