返回列表 上一主題 發帖

[發問] 依照textbox名稱找出資料夾裡圖片並貼上

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-6-28 14:19 | 只看該作者

[發問] 依照textbox名稱找出資料夾裡圖片並貼上

請教各位高手，

我在userform裡面有兩個Image分別為Image1 及 Image2

我希望按下button後能夠並將圖檔po上，

假如圖片兩張稱為"加工後1" 及 "加工後2"

Userform裡有個textbox1輸入"加工後"能夠顯示圖片

【請問需要判斷有無圖片嗎？假使沒有圖檔，會不會出現錯誤？】

小弟愚昧，遇到些問題請高手指教，謝謝！

Private Sub CommandButton1_Click()
Image1.Picture = LoadPicture(ThisWorkbook.Path & "圖檔名稱")
End Sub
↓
Image1.Picture = LoadPicture(ThisWorkbook.Path & textbox1.value & 1&.jpg)
Image2.Picture = LoadPicture(ThisWorkbook.Path & textbox1.value & 2&.jpg)
請問該怎麼寫呢？
收藏 分享

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
5#
發表於 2013-6-28 16:29 | 只看該作者
回復 4# stillfish00


小弟正是這個意思
謝謝 stillfish00大大的幫忙！

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
4#
發表於 2013-6-28 16:18 | 只看該作者
本帖最後由 stillfish00 於 2013-6-28 16:24 編輯

回復 3# lifedidi
不懂，Worksheet裡的"新增資料夾"是甚麼意思？？
這個嗎...
s = ThisWorkbook.Path & "\新增資料夾\" & TextBox1.Value & "1.jpg"  '圖片路徑

TOP

lifedidi

帖子
104 
主題
32 
精華
0 
積分
144 
點名
0  
作業系統
windowsXP 
軟體版本
2007 
閱讀權限
20 
性別
男 
註冊時間
2013-2-25 
最後登錄
2022-9-2 

論壇贊助勳章
3#
發表於 2013-6-28 15:16 | 只看該作者
回復 2# stillfish00

stillfish00大大感謝您！

不好意思，請問假如圖片路徑再該Worksheet裡的"新增資料夾"裡該如何修改？

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2013-6-28 14:55 | 只看該作者
  1. Private Sub CommandButton1_Click()
  2.   Dim s As String
  3.   Image1.Picture = LoadPicture("")  '清空
  4.   Image2.Picture = LoadPicture("")  '清空
  5.   
  6.   s = ThisWorkbook.Path & "\" & TextBox1.Value & "1.jpg"  '圖片路徑
  7.   If Dir(s) <> "" Then Image1.Picture = LoadPicture(s)  '存在檔案才載入圖片
  8.   
  9.   s = ThisWorkbook.Path & "\" & TextBox1.Value & "2.jpg" '圖片路徑
  10.   If Dir(s) <> "" Then Image2.Picture = LoadPicture(s)  '存在檔案才載入圖片
  11. End Sub
複製代碼
回復 1# lifedidi

TOP

        靜思自在 : 人生最大的成就是從失敗中站起來。
返回列表 上一主題