史萊姆論壇

返回   史萊姆論壇 > 專業主討論區 > 程式語言討論區
忘記密碼?
論壇說明 標記討論區已讀

歡迎您來到『史萊姆論壇』 ^___^

您目前正以訪客的身份瀏覽本論壇,訪客所擁有的權限將受到限制,您可以瀏覽本論壇大部份的版區與文章,但您將無法參與任何討論或是使用私人訊息與其他會員交流。若您希望擁有完整的使用權限,請註冊成為我們的一份子,註冊的程序十分簡單、快速,而且最重要的是--註冊是完全免費的!

請點擊這裡:『註冊成為我們的一份子!』

Google 提供的廣告


發文 回覆
 
主題工具 顯示模式
舊 2009-07-23, 03:37 PM   #1
chung1206 帥哥
註冊會員
 
chung1206 的頭像
榮譽勳章
UID - 322141
在線等級: 級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時
註冊日期: 2009-04-14
住址: Kaohsiung
文章: 192
精華: 0
現金: 121 金幣
資產: 521 金幣
預設 疑問 - VB6.0如何將圖載入PictureBox



各位先進們好,我在from表單裡做了一個開啟舊檔的功能,跟拉了一個PictureBox的物件,例如我今天要選擇桌面的kk.jpg放到PictureBox裡不知要怎麼做才好?謝謝。
chung1206 目前離線  
送花文章: 25, 收花文章: 108 篇, 收花: 261 次
回覆時引用此帖
舊 2009-07-23, 07:38 PM   #2 (permalink)
管理版主
 
mini 的頭像
榮譽勳章
UID - 4144
在線等級: 級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時級別:96 | 在線時長:9729小時 | 升級還需:68小時
註冊日期: 2002-12-07
文章: 13276
精華: 0
現金: 26303 金幣
資產: 3024113 金幣
預設

PictureBox1.Picture = LoadPicture("x:\kk.jpg")
mini 目前離線  
送花文章: 2003, 收花文章: 7966 篇, 收花: 26761 次
回覆時引用此帖
舊 2009-07-23, 10:57 PM   #3 (permalink)
註冊會員
 
chung1206 的頭像
榮譽勳章
UID - 322141
在線等級: 級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時
註冊日期: 2009-04-14
住址: Kaohsiung
文章: 192
精華: 0
現金: 121 金幣
資產: 521 金幣
預設

引用:
作者: mini 查看文章
PictureBox1.Picture = LoadPicture("x:\kk.jpg")
感謝大大,但我希望我可以自選想載入的圖片,不知該怎麼做?我有利用Dialog做了一個開啟檔案的動作了,但不知怎麼讓它載入我選定的圖,謝謝。
chung1206 目前離線  
送花文章: 25, 收花文章: 108 篇, 收花: 261 次
回覆時引用此帖
舊 2009-07-24, 12:35 AM   #4 (permalink)
長老會員
 
劍痞憶秋年 的頭像
榮譽勳章
UID - 15
在線等級: 級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時
註冊日期: 2002-12-06
住址: 步雲崖
文章: 280
精華: 0
現金: 15847 金幣
資產: 20867 金幣
預設

引用:
作者: 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
__________________
一切有為法 如夢幻泡影
如露亦如電 應作如是觀
劍痞憶秋年 目前離線  
送花文章: 150, 收花文章: 33 篇, 收花: 130 次
回覆時引用此帖
舊 2009-07-24, 08:59 AM   #5 (permalink)
註冊會員
 
chung1206 的頭像
榮譽勳章
UID - 322141
在線等級: 級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時
註冊日期: 2009-04-14
住址: Kaohsiung
文章: 192
精華: 0
現金: 121 金幣
資產: 521 金幣
預設

引用:
作者: 劍痞憶秋年 查看文章
你都已經走到這一步了還不知道怎麼完成
要加油喔 ^_^

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

此帖於 2009-07-24 11:03 AM 被 chung1206 編輯.
chung1206 目前離線  
送花文章: 25, 收花文章: 108 篇, 收花: 261 次
回覆時引用此帖
舊 2009-07-24, 03:14 PM   #6 (permalink)
長老會員
 
劍痞憶秋年 的頭像
榮譽勳章
UID - 15
在線等級: 級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時級別:31 | 在線時長:1096小時 | 升級還需:56小時
註冊日期: 2002-12-06
住址: 步雲崖
文章: 280
精華: 0
現金: 15847 金幣
資產: 20867 金幣
預設

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

另外若你是延用上列的程式碼,相關的物件有沒有改名
劍痞憶秋年 目前離線  
送花文章: 150, 收花文章: 33 篇, 收花: 130 次
回覆時引用此帖
舊 2009-07-24, 03:33 PM   #7 (permalink)
註冊會員
 
chung1206 的頭像
榮譽勳章
UID - 322141
在線等級: 級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時級別:9 | 在線時長:134小時 | 升級還需:6小時
註冊日期: 2009-04-14
住址: Kaohsiung
文章: 192
精華: 0
現金: 121 金幣
資產: 521 金幣
預設

引用:
作者: 劍痞憶秋年 查看文章
那目前的程式碼除了我列的之外還有嗎??
有的話,
可否列一份最完整的程式碼

另外若你是延用上列的程式碼,相關的物件有沒有改名
已用其它方式解決了,感謝大大,我重做後物件都與大大的名稱相同了
所以沒有改名的問題,謝謝。
chung1206 目前離線  
送花文章: 25, 收花文章: 108 篇, 收花: 261 次
回覆時引用此帖
發文 回覆


主題工具
顯示模式

發表規則
不可以發文
不可以回覆主題
不可以上傳附加檔案
不可以編輯您的文章

論壇啟用 BB 語法
論壇啟用 表情符號
論壇啟用 [IMG] 語法
論壇禁用 HTML 語法
Trackbacks are 禁用
Pingbacks are 禁用
Refbacks are 禁用

相似的主題
主題 主題作者 討論區 回覆 最後發表
教學 - 請問如何將圖片便成想要的動畫 jkms12345 一般電腦疑難討論區 2 2007-03-13 11:59 AM
請問如何將PDF文件堛漱憒r擷取出來成WORD文件 jerryfuang 軟體應用問題討論區 5 2006-01-03 06:38 AM
如何將圖片透明化 LOST 軟體應用問題討論區 4 2005-04-20 08:43 PM
請問如何將圖片加入影片的開頭 u7001793 一般電腦疑難討論區 1 2003-12-18 08:31 AM
有人知道如何將圖片加上密碼才能看的方法嗎? donlyhun 一般電腦疑難討論區 5 2003-10-05 12:23 PM


所有時間均為台北時間。現在的時間是 06:23 AM


Powered by vBulletin® 版本 3.6.8
版權所有 ©2000 - 2024, Jelsoft Enterprises Ltd.


SEO by vBSEO 3.6.1