返回列表 上一主題 發帖

[發問] 讓程序畫面停留0.1秒?

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-4-9 11:43 | 顯示全部帖子

[發問] 讓程序畫面停留0.1秒?

請教大大
      在VBA下
      For repeat1 = 1 To 4
                n1 = CLng(TextBox75) + 1
                For j = 74 To 23 Step -1
                    Controls("TextBox" & j) = Controls("TextBox" & j - 13)
                    Controls("TextBox" & j).BackColor = Controls("TextBox" & j - 13).BackColor
                Next
                Controls("TextBox" & 75) = n1
                讓畫面停留0.1秒
       Next
應如何寫法?      謝謝
收藏 分享

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
2#
發表於 2014-4-9 17:14 | 顯示全部帖子
回復 2# yen956
謝謝
有無辦法 使用
    類似Application.OnTime Now+value("00.00.01"),-----
    將使空轉0.1秒  再繼續------的方式作處理
請賜教

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
3#
發表於 2014-4-10 00:15 | 顯示全部帖子
回復 5# GBKEE
謝了  學到兩招 感激

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
4#
發表於 2014-4-10 22:48 | 顯示全部帖子
回復 4# Hsieh
請教 Hsieh版大
        Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        此行應放在哪裡??

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
5#
發表於 2014-4-10 22:53 | 顯示全部帖子
回復 5# GBKEE
請教GBKEE版大
        Application.Wait Time + #12:00:01 AM# '
       12:00:01 應是讓畫面停留1秒 ，那0.1秒應如何表示?
    Application.Wait Time + (#12:00:01 AM#)/10  是行不通  應如何修正??

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
6#
發表於 2014-4-12 18:25 | 顯示全部帖子
回復 10# GBKEE
受教了    謝謝

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
7#
發表於 2014-4-12 23:13 | 顯示全部帖子
回復 11# Hsieh
      DoEvents   
      Sleep 100
太神奇了   謝謝 Hsieh版大
再請教
1.DoEvents 是何作用?
2.現為office2003效果很好用，不知在office2010之下
     Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    可以產生作用嗎?

TOP

yangjie

帖子
258 
主題
77 
精華
0 
積分
385 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-8-8 
最後登錄
2021-1-25 
8#
發表於 2014-4-13 16:55 | 顯示全部帖子
回復 14# Hsieh

謝謝指導
受用了

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題