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: 8 Rank: 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

中學生 Rank: 2

帖子: 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: 8 Rank: 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

小學生 Rank: 1

帖子: 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

中學生 Rank: 2

帖子: 127
主題: 28
精華: 0
積分: 160
點名: 0
作業系統: W7
軟體版本: 2003
閱讀權限: 20
性別: 男
註冊時間: 2010-11-1
最後登錄: 2017-5-20

6^#

發表於 2012-5-12 20:05 | 只看該作者

回復 5# hbjang

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

TOP