- 帖子
- 471
- 主題
- 121
- 精華
- 0
- 積分
- 579
- 點名
- 0
- 作業系統
- WIN10
- 軟體版本
- OFFICE2019
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2015-4-16
- 最後登錄
- 2023-1-17
|
[發問] 開啟表單插入動畫後,如何可讓設定時間到自動關閉呢?
本帖最後由 starry1314 於 2015-6-4 23:43 編輯
如何讓他設定時間到即自動關閉好執行下一個呢?
想要 在執行程式過程中 一開始出現動畫表單,時間到關閉動畫表單繼續執行下一個動畫表單,直到程式結束跑完為止
或是 運算時開啟動畫,運算結束關閉動畫,剛突然想到 因我的巨集會一直切換畫面,那這樣做表單動畫會不會無法運作呢? 明天上班再來試試看
插入動畫.rar (13.54 KB)
- Private Sub UserForm_Initialize()
- Application.Wait Now() + TimeValue("00:00:02") ' 暫停2秒
- unload userform1
- Me.ShockwaveFlash1.Movie = "http://www.san-x.co.jp/charageki/flash/1005_rlk.swf"
- Me.ShockwaveFlash1.Movie = "http://www.san-x.co.jp/charageki/flash/1003_rlk.swf"
- End Sub
複製代碼 |
|