Board logo

標題: [發問] 提取"userform"里使用的圖片文件 [打印本頁]
作者: mhl9mhl9    時間: 2014-9-28 01:45     標題: 提取"userform"里使用的圖片文件

求教:請教老師教教我如何才能提取"userform"里使用的圖片文件.
我自己找的"點陳圖"size太大,我的userform用multypage(有5頁),用了5張大size圖片做背景,結果74k的文件變成1074k.羅命.
找到一個userform的背景圖,size不大,但我不知道如何提取那個userform的背景圖文件.
謝謝幫忙!!!
作者: GBKEE    時間: 2014-10-1 20:31

回復 1# mhl9mhl9
  1. Option Explicit
  2. Private Sub UserForm_Initialize() '表單初始化時的程式
  3. Me.Picture = LoadPicture(pathname) '提取那個userform的背景圖文件
  4. End Sub
  5. '** Picture 屬性
  6. '** 語法
  7. '** Object.Picture = LoadPicture(pathname)
  8. '** Picture 屬性的語法具有以下幾個單元:
  9. '** 單元 說明
  10. '** object 必要的引數。指一個有效物件。
  11. '** pathname 必要的引數。圖形檔的完整路徑。
複製代碼
作者: mhl9mhl9    時間: 2014-10-21 01:10

回復 2# GBKEE

可能我沒有把自己的要求講清楚,我有一個文件里有一userform,它的背景圖很好,我想取出用在其他userform里,我沒有圖片文件,用你的方法試了,取不出圖片.
還是要謝謝你.
作者: GBKEE    時間: 2014-10-21 11:10

回復 3# mhl9mhl9
要高手幫忙了,因我也取不出圖片.



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)