引用:
作者: chung1206
感謝大大,但我希望我可以自選想載入的圖片,不知該怎麼做?我有利用Dialog做了一個開啟檔案的動作了,但不知怎麼讓它載入我選定的圖,謝謝。
|
你都已經走到這一步了還不知道怎麼完成
要加油喔 ^_^
語法:
Option Explicit
Private Sub Command1_Click()
' 出現錯誤時跳到下一語句
'On Error Resume Next
On Error GoTo NextRtn
Dim JetFile_Temp As String
Dim JetTrue_User_Cancel As Boolean
Err.Clear
With CDL
'
.CancelError = True
'屬性DialogTitle是要彈出的對話方塊的標題
.DialogTitle = "選擇路徑及檔名"
'缺省的檔案名為空
'.Filename = ""
'.FileName = JetDefault_FileName
.InitDir = App.Path
' 屬性Filter是文件濾器,返回或設置在對話方塊的類型列表框中所顯示的篩檢程式。
' 語法object.Filter [= 文件類型描述1 |filter1 |文件類型描述2 |filter2...]
.Filter = "所有檔案(*.*)|*.*|圖檔(*.BMP,*.JPG,*.GIF)|*.BMP;*.JPG;*.GIF|點陣圖(*.BMP)|*.BMP|點陣圖(*.JPG)|*.JPG|點陣圖(*.GIF)|*.GIF"
.FilterIndex = 2
.ShowOpen
JetFile_Temp = .FileName
End With
If Dir(JetFile_Temp) <> "" Then
PictureBox1.Picture = LoadPicture(JetFile_Temp)
End If
Exit Sub
'◎當 (1) .CancelError = True
' (2) 使用者取消選取檔案動作
' (3) On Error Resume Next
NextRtn:
MsgBox "您選擇了取消按鈕,故程式不作任何開檔!", , Me.Caption
JetTrue_User_Cancel = True
End Sub