VB做一个简单的图片浏览器,谁有代码.docVIP

VB做一个简单的图片浏览器，谁有代码？ 怎么用VB做一个图片浏览器？ 要求做到可以打开图片文件， 可以浏览下一张图片，上一张图片， 可以放大和缩小图片， 最难的是做简略图。 哪个高手有相关代码啊！？ 有多少发多少啊！谢谢了。 我是VB新手啊！不太会，呵呵。大家多多帮助啊！ 最佳答案 我只会做到下面的代码了.其中: Dir1-目录列表控件 Drive1-驱动器列表控件 File1-文件列表控件 Image1-图像控件 Text1-文本框控件 Option1-单选控件(Caption为通过单击浏览) Option2-单选控件(Caption为通过双击浏览) Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub Private Sub Drive1_Change() On Error GoTo DriErr Dir1.Path = Drive1.Drive Exit Sub DriErr: If Err.Number = 68 Then If MsgBox(请问要重试还是取消?, vbRetryCancel + vbCritical, 硬盘不存在或光驱没有插入磁盘!) = vbRetry Then Resume 0 Else Drive1.Drive = C: Resume Next End If End If End Sub Private Sub File1_Click() If Option2.Value = True Then Exit Sub Dim picFile As String If Right(Dir1.Path, 1) = \ Then picFile = Dir1.Path + File1.FileName Else picFile = Dir1.Path + \ + File1.FileName End If Image1.Picture = LoadPicture(picFile) Text1.Text = picFile End Sub Private Sub File1_DblClick() If Option1.Value = True Then Exit Sub Dim picFile As String If Right(Dir1.Path, 1) = \ Then picFile = Dir1.Path + File1.FileName Else picFile = Dir1.Path + \ + File1.FileName End If Image1.Picture = LoadPicture(picFile) Text1.Text = picFile End Sub