[chung1206]

作者: 劍痞憶秋年

你都已經走到這一步了還不知道怎麼完成
要加油喔 ^_^

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

感謝大大，其實我是看書自學的，也找了幾個VB教學的網站，但都只教到如何製作
開啟舊檔的功能，沒有載入的功能，再次謝過。

PS:請問一下，我把我自己做的那個開啟舊檔的功能刪掉重做了，我如果有加Option Explicit就會出現變數未定義的訊息，
若不加Option Explicit就會直接出現＂您選擇了取消按鈕，故程式不作任何開檔＂，不知道我那裡又做錯了，再請指教。