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

yangjie

請教大大
      在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
應如何寫法?      謝謝

yen956

回復 1# yangjie
'試試看, 停留時間依CPU而異
Sub test()
   '讓畫面停留0.1秒
   
   [A1].Select
   For i = 1 To 50000000
   Next
   [IV1].Select
   For i = 1 To 50000000
   Next
   [A1].Select
End Sub

yangjie

回復 2# yen956
謝謝
有無辦法 使用
    類似Application.OnTime Now+value("00.00.01"),-----
    將使空轉0.1秒  再繼續------的方式作處理
請賜教

Hsieh

回復 3# yangjie

調用API的sleep函數
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sleep 100 ’停止0.1秒

GBKEE

回復 1# yangjie

1. Option Explicit
   
2. Private Sub UserForm_Click()
   
3.     Dim J
   
4.     For J = 1 To 4  '4個 TextBox 控制項
   
5.         With Controls("TextBox" & J)
   
6.             .BackColor = IIf(.BackColor = vbRed, vbYellow, vbRed)
   
7.             .Text = Val(.Text) + J
   
8.         End With
   
9.         Application.Wait Time + #12:00:01 AM# ' 讓畫面停留 1秒
   
10.     Next
    
11. End Sub

複製代碼

yen956

回復 4# Hsieh
真博學, 收下啦, 謝謝!!

yangjie

回復 5# GBKEE
謝了  學到兩招 感激

yangjie

回復 4# Hsieh
請教 Hsieh版大
        Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        此行應放在哪裡??

yangjie

回復 5# GBKEE
請教GBKEE版大
        Application.Wait Time + #12:00:01 AM# '
       12:00:01 應是讓畫面停留1秒 ，那0.1秒應如何表示?
    Application.Wait Time + (#12:00:01 AM#)/10  是行不通  應如何修正??

GBKEE

回復 9# yangjie
API函數 Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
需置於一般模阻的頂端

Application.Wait 的時間最小是秒數, 0.1不接受的.