图片浏览器软件.rar
Private Sub Dir1_Change()
File1.Path = Dir1.Path

End Sub



Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()
If Right(File1.Path, 1) <> "\" Then
FileName = File1.Path + "\" + File1.FileName
Else
FileName = File1.Path + File1.FileName
End If
Image1.Picture = LoadPicture(FileName)

End Sub

Private Sub Form_Load()
Drive1.Drive = "c:"
Dir1.Path = "c:\Documents and Settings"
File1.Pattern = "*.jpg;*.bmp;*.gif;*.jpeg;*.pcx;*.png;*.gif;*.tif;*.swf"
End Sub

压缩包不用下了，只是编译后的程序。

提2点建议。
1、图片区域太小了。最后是能随窗体的变大而变化。
2、图片长宽比例问题。应该是按图片的长宽比进行缩放。

我重写过了一个，你看看。

Option Explicit

Private Sub Dir1_Change()
    File1.Path = Dir1.Path
End Sub
    
Private Sub Drive1_Change()
    Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()
Dim m As String
m = File1.Path & "\" & File1.List(File1.ListIndex)

Image1.Picture = LoadPicture(m)

Dim i1 As Single, i2 As Single
Dim i3 As Single, i4 As Single

Dim i5 As Single
i1 = Image1.Height
i2 = Image1.Width

i3 = Picture1.Height / i1
i4 = Picture1.Width / i2
If i3 > i4 Then    '取i4
    i5 = i4
Else
    i5 = i3
End If

i1 = i5 * i1        '计算新的
i2 = i5 * i2

Picture1.Cls        '清掉旧的
Picture1.PaintPicture Image1.Picture, 0, 0, i2, i1      '缩放绘图上去

End Sub

Private Sub Form_Load()
    File1.Pattern = "*.jpg;*.gif"
End Sub

Private Sub Form_Resize()
    Picture1.Move Picture1.Left, Picture1.Top, Me.ScaleWidth - Picture1.Left - 128, Me.ScaleHeight - Picture1.Top - 128
    File1.Move File1.Left, File1.Top, File1.Width, Me.ScaleHeight - File1.Top - 64
End Sub

没有判断文件，有可能出现根目录下的图片出错的情况，没去测试。

有一个 Image1 控件，图片上看不出来。随便放哪儿，那是不用显示出来的。
只要存在就可以了。

Thank you!