[Visual Basic 6.0] CommonDialog 結合 LoadPicture 實作瀏覽開啟圖片預覽

2013-11-15

摘要:[Visual Basic 6.0] CommonDialog 結合 LoadPicture 實作瀏覽開啟圖片預覽

Step1 :

進入 [設定使用元件] => 找到 [Microsoft Common Dialog Control 6.0] 打勾並點 [確定]

Step2 :

完成 Step1 後工具列會出現 CommonDialog 的圖示

Step3:

在表單上拉一個 Picture1 與 CommonDialog1

Step4 :

填上 Code 後執行就會出現開啟選單

Step 5

當選擇的檔案支援預覽 (VB6.0 支持的圖片格式) 即會顯示圖片！

(此程式碼包含智能判斷錯誤！不必擔心選擇檔案格式不符合)

'# [Visual Basic 6.0] CommonDialog 結合 LoadPicture 實作 瀏覽開啟圖片預覽
'# 0xDe

Private Sub Form_Activate()
On Error GoTo Error ' 當發生錯誤時移動到指定位置 Error

CommonDialog1.ShowOpen ' 顯示開啟
Caption = CommonDialog1.FileName ' 表單名稱改為 選擇的檔案路徑
Picture1.Picture = LoadPicture(Caption) ' 顯示圖片
Error: ' 發生錯誤時就結束程序
End Sub

[Visual Basic 6.0] CommonDialog 結合 LoadPicture 實作瀏覽開啟圖片預覽.rar

#0xDe 從分享中學習

#Facebook：ProgrammerDe (https://www.facebook.com/MicrosoftDes) 有問題歡迎提問

回首頁