返回列表 上一主題 發帖

如何在自定表單中開啟JPG檔案

hbjang

帖子
9 
主題
4 
精華
0 
積分
13 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
10 
註冊時間
2012-3-14 
最後登錄
2012-5-14 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-5-11 21:59 | 只看該作者

如何在自定表單中開啟JPG檔案

各位大大,
我在自訂表單中建立一個CommandButton,希望按下CommandButton後,能開啟固定路徑中的JPG檔案,請問該用哪一個指令或函式?謝謝
收藏 分享

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2012-5-12 10:19 | 只看該作者
請說清楚固定路徑中的JPG檔案是要直接開啟還是引用到表單中？

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
3#
發表於 2012-5-12 10:21 | 只看該作者
回復 1# hbjang


   不知你的做法是不是跟我做的一樣

我的是這樣
1:表單上有一個  Image1 (用來顯示JPG檔的圖像用)
2:在commandbutton 內寫上

Private Sub CommandButton4_Click()
  mypic = "C:\Users\user\Desktop\XXX.jpg" '原始圖像路徑及檔名 XXX是圖像檔名
       Image1.Picture = LoadPicture(mypic) '載入原始設定圖像檔
end sub

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2012-5-12 10:29 | 只看該作者
若你只是要打開圖檔用Shell指令最容易
Shell "cmd /c start d:\splash.jpg"

TOP

hbjang

帖子
9 
主題
4 
精華
0 
積分
13 
點名
0  
作業系統
windows xp 
軟體版本
sp3 
閱讀權限
10 
註冊時間
2012-3-14 
最後登錄
2012-5-14 
5#
發表於 2012-5-12 18:59 | 只看該作者
解決了,本來我只想要開啟檔案,可是發現icestormer 大的方法更好,所以就改了方式,謝謝
我程式如下:
Private Sub CommandButton6_Click()

If UserForm1.ComboBox3.Value <> "" Then
mypic = "C:\Documents and Settings\Administrator\桌面\利達型錄\" & ComboBox1.Value & "\" & ComboBox2.Value & "\" & ComboBox3.Value & ".jpg"
UserForm3.Image1.Picture = LoadPicture(mypic)
UserForm3.Show
Else
MsgBox "請選擇產品!!"
End If

End Sub

TOP

icestormer

帖子
127 
主題
28 
精華
0 
積分
160 
點名
0  
作業系統
W7 
軟體版本
2003 
閱讀權限
20 
性別
男 
註冊時間
2010-11-1 
最後登錄
2017-5-20 
6#
發表於 2012-5-12 20:05 | 只看該作者
回復 5# hbjang


  很高興有幫助到你.不過別叫我大大..我也是VBA新手一枚..

TOP

        靜思自在 : 一個人的快樂．不是因為他擁有得多，而是因為他計較得少。
返回列表 上一主題