[發問] 是否有辦法改寫成另一種近似的功能?

vpower

測試2.rar (36.14 KB)

下載次數: 2

2011-5-30 08:57

引用GBKEE 版主所製作的，檔案如上，網址如下：
http://forum.twbts.com/viewthrea ... a=pageD3&page=3

是否有辦法改寫成如下：
1.判斷時間欄的超過多少時間和還有多久時間判定取消，更改成只要時間到,就發出音樂。
2.當我修改時間欄後,依然會發出音樂呢？
--------------------------------------------------------------------------------------
我知道的持續執行程式的做法如下:
1.製作一個按鈕CommandButton1

1. Private Sub CommandButton1_Click()
   
2.     Call my_Procedure2                     '指向所建立的Module1的Sub my_Procedure()
   
3. End Sub

複製代碼

2.建立一個Module1，然後輸入如下：

1. Public dTime As Date
   
2. Sub my_Procedure()
   
3. dTime = Now + TimeValue("00:00:01")                   '自行設定時間，目前設定為每秒鐘執行所放入的程式碼。
   
4. Application.OnTime dTime, "my_Procedure"
   
5. '放入自動執行的程式碼
   
6. End Sub

複製代碼

以上是讓一組程式碼每?秒或每?分或每?時，自動執行一次。