Hsieh

回復 8# yangjie
這應該是表單模組的程式

1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
2. 
   
3. Private Sub CommandButton1_Click()
   
4.   For repeat1 = 1 To 4
   
5.                 n1 = CLng(TextBox75) + 1
   
6.                 For j = 74 To 23 Step -1
   
7.                     Controls("TextBox" & j) = Controls("TextBox" & j - 13)
   
8.                     Controls("TextBox" & j).BackColor = Controls("TextBox" & j - 13).BackColor
   
9.                 Next
   
10.                 TextBox75 = n1
    
11.                 DoEvents
    
12.                 Sleep 100
    
13.        Next
    
14. End Sub

複製代碼

如果要讓其他模組也能共用此函數
就在一般模組內設成共用函數
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

yangjie

回復 10# GBKEE
受教了    謝謝

yangjie

回復 11# Hsieh
      DoEvents   
      Sleep 100
太神奇了   謝謝 Hsieh版大
再請教
1.DoEvents 是何作用?
2.現為office2003效果很好用，不知在office2010之下
     Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    可以產生作用嗎?

Hsieh

回復 13# yangjie

DoEvents將控制權交還應用程式
調用API函數與Windows位元版本有關，而非關OFFICE的新舊
若你的是OFFICE 2010 for 64位元版本請參考
   http://forum.twbts.com/thread-10506-1-1.html

yangjie

回復 14# Hsieh

謝謝指導
受用了