史萊姆論壇 - VB6.0如何將圖載入PictureBox

史萊姆論壇 (http://forum.slime.com.tw/)

- 程式語言討論區 (http://forum.slime.com.tw/f76.html)

- - VB6.0如何將圖載入PictureBox (http://forum.slime.com.tw/thread250824.html)

VB6.0如何將圖載入PictureBox

各位先進們好，我在from表單裡做了一個開啟舊檔的功能，跟拉了一個PictureBox的物件，例如我今天要選擇桌面的kk.jpg放到PictureBox裡不知要怎麼做才好？謝謝。

PictureBox1.Picture = LoadPicture("x:\kk.jpg")

引用:

作者: mini (文章 2178209)

PictureBox1.Picture = LoadPicture("x:\kk.jpg")

感謝大大，但我希望我可以自選想載入的圖片，不知該怎麼做？我有利用Dialog做了一個開啟檔案的動作了，但不知怎麼讓它載入我選定的圖，謝謝。

引用:

作者: chung1206 (文章 2178303)

感謝大大，但我希望我可以自選想載入的圖片，不知該怎麼做？我有利用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

引用:

作者: 劍痞憶秋年 (文章 2178310)

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

語法:

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就會直接出現＂您選擇了取消按鈕，故程式不作任何開檔＂，不知道我那裡又做錯了，再請指教。

那目前的程式碼除了我列的之外還有嗎??
有的話,
可否列一份最完整的程式碼

另外若你是延用上列的程式碼,相關的物件有沒有改名

引用:

作者: 劍痞憶秋年 (文章 2178453)

那目前的程式碼除了我列的之外還有嗎??
有的話,
可否列一份最完整的程式碼

另外若你是延用上列的程式碼,相關的物件有沒有改名

已用其它方式解決了，感謝大大，我重做後物件都與大大的名稱相同了
所以沒有改名的問題，謝謝。