[發問] (已解答，G大謝謝)如何讓自訂表單關閉後暫存，開啟後繼續作業？

av8d

一般自訂表單關閉後~重新開啟~資料都會消失~
如何讓他可以暫存~該如何寫?

GBKEE

回復 1# av8d
表單.Hide   
Hide 方法   隱藏一個物件但不載出。

dafa

回復 2# GBKEE


  G大您好
  如果我想要我的表單以及表單內的按鈕、的Picture圖，在Excel關閉後再開啟，所有的Picture圖都還在
  請問要如何解決?

GBKEE

回復 3# dafa
Picture 須是已存檔
是這樣嗎?

1. 'Initialize 事件 發生在一個物件載入後，但尚未顯示的時候。
   
2. Private Sub UserForm_Initialize()   'UserForm的預設事件
   
3.     UserForm1.Picture = LoadPicture("D:\EX1.GIF")
   
4.     CommandButton1.Picture = LoadPicture("D:\EX2.GIF")
   
5.     'CommandButton2.Picture = LoadPicture("D:\EX3.GIF")
   
6.     'CommandButton3.Picture = LoadPicture("D:\EX4.GIF")
   
7. End Sub

複製代碼

dafa

回復 4# GBKEE


    G大我也是用這個方法
   但還是不行附上我拼裝的檔案看有沒有其他的方法
   麻煩妳了

GBKEE

回復 5# dafa
按下表單按鈕 執行 sub 植物() 讀取 圖檔 正常
可以啊,為何不行!!

dafa

回復 6# GBKEE


    很抱歉可能是我解釋的不清楚(不擅表達)
          我讀檔都OK但只要Excel關閉，在次打開Excel我在按鈕挑選的圖就都變不見了
          我想要我再次打開Excel時能保留所有上次在按鈕上挑的圖
                                                                     再麻煩您了...........乾恩喔 ^^||

c_c_lai

回復 6# GBKEE
回復 1# av8d
回復 5# dafa
GBKEE 版大， 早安！
他們指的會是？

1. Private Sub Workbook_Open()
   
2.     '  For example purpose only.
   
3. End Sub
   
4. 
   
5. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
6.     '  For example purpose only.
   
7. 
   
8.     Me.Save
   
9. End Sub

複製代碼

GBKEE

回復 7# dafa
為何要那麼多的CommandButton?用何邏輯建立?

dafa

回復 9# GBKEE


    我的目的是要依Userform做底圖CommandButton點時可以挑選某些特定圖檔來拚出底圖
    CommandButton本身是一個一個貼上去的沒有跑程式
    如果那麼多的CommandButton做到一半沒做完不能存檔會很困擾
    我找了很久好像沒什麼方法可以存檔
    好像除非把所有CommandButton對應儲存格再存入對應的檔名才能解決