在win10下看一下vb6能不能用；

在設(shè)計界面；在窗體上添加一個Drive控件，一個Dir控件，一個File控件，一個PictureBox控件；

Private Sub Dir1_Change()File1.Path = Dir1.Path End SubPrivate Sub Drive1_Change()Dir1.Path = Drive1.Drive End SubPrivate Sub File1_Click()Picture1.Picture = LoadPicture(Dir1.Path & "\" & File1.FileName) End SubPrivate Sub Form_Load()File1.Pattern = "*.jpg;*.png;*.jpeg;*.gif" End Sub

Drive控件，用于選擇驅(qū)動器；拖到窗體上，控件中就有本機的各個驅(qū)動器；

Dir控件，按上面代碼設(shè)置了以后，顯示當前驅(qū)動器下的目錄，雙擊則展開一個目錄；

File控件，在窗體啟動時設(shè)置過濾模式為Pattern屬性中的后綴名；

按上面代碼設(shè)置了以后，在Dir中選中一個目錄，則File控件顯示此目錄下的按Pattern過濾的文件名；

單擊File控件中的一個條目，PictureBox控件裝載選中的圖片；

如果一個目錄下圖片很多，會在File控件列出；這樣就可單擊任何圖片，然后查看；

這好像是VB的一個特性；其他各種語言，VC++，C#，等，如果要實現(xiàn)把一臺電腦的所有驅(qū)動器裝入一個下拉框，都自己要編一些程；VB是直接有此控件，拖過去本機驅(qū)動器列表就出來；

在Win10下不是很好用；設(shè)計界面時容易退出；

運行一下，結(jié)果如下；

?

?

?

?

總結(jié)

以上是生活随笔為你收集整理的使用vb6绿色版做一个简易图片浏览器的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。