- 帖子
- 9
- 主題
- 4
- 精華
- 0
- 積分
- 13
- 點名
- 0
- 作業系統
- windows xp
- 軟體版本
- sp3
- 閱讀權限
- 10
- 註冊時間
- 2012-3-14
- 最後登錄
- 2012-5-14
|
解決了,本來我只想要開啟檔案,可是發現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 |
|
發表於 2012-5-11 21:59
| 
