Question

VB 课程设计图像浏览器 怎么做的啊 谢谢

Answer 1

Private Sub Combo1_Click()

   File1.Pattern = Combo1.Text

End Sub

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 fpath As String

   If Right(File1.Path, 1) <> "\" Then fpath = File1.Path + "\"

     Label5.Caption = fpath + File1.FileName

     Image1.Picture = LoadPicture(Label5.Caption)

End Sub

Private Sub Form_Load()

   Combo1.AddItem "*.bmp"

   Combo1.AddItem "*.ico"

   Combo1.AddItem "*.gif"

   Combo1.AddItem "*.jpg"

End Sub

Answer 2

窗体上放dirvelistbox控件dirlistbox控件filelistbox控件image控件 label控件各一个
然后在窗体下写如下代码 程序运行后选择图片所在路径就可以在image内显示
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

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

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