返回列表 上一主題 發帖

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

vpower

帖子
155 
主題
56 
精華
0 
積分
242 
點名
0  
作業系統
WinXP 
軟體版本
專業版2002 
閱讀權限
0 
註冊時間
2010-5-29 
最後登錄
2011-7-18 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-5-30 09:11 | 只看該作者

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

本帖最後由 vpower 於 2011-5-31 08:58 編輯

測試2.rar (36.14 KB)
引用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
複製代碼
以上是讓一組程式碼每?秒或每?分或每?時，自動執行一次。
收藏 分享

        靜思自在 : 有智慧才能分辨善惡邪正；有謙虛才能建立美滿人生。
返回列表 上一主題