Hsieh

¦^´_ 8# yangjie
³oÀ³¸Ó¬Oªí³æ¼Ò²Õªºµ{¦¡

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

½Æ»s¥N½X

¦pªG­nÅý¨ä¥L¼Ò²Õ¤]¯à¦@¥Î¦¹¨ç¼Æ
´N¦b¤@¯ë¼Ò²Õ¤º³]¦¨¦@¥Î¨ç¼Æ
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

yangjie

¦^´_ 10# GBKEE
¨ü±Ð¤F    ÁÂÁÂ

yangjie

¦^´_ 11# Hsieh
      DoEvents   
      Sleep 100
¤Ó¯«©_¤F   ÁÂÁ Hsiehª©¤j
¦A½Ð±Ð
1.DoEvents ¬O¦ó§@¥Î?
2.²{¬°office2003®ÄªG«Ü¦n¥Î¡A¤£ª¾¦boffice2010¤§¤U
     Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
    ¥i¥H²£¥Í§@¥Î¶Ü?

Hsieh

¦^´_ 13# yangjie

DoEvents±N±±¨îÅv¥æÁÙÀ³¥Îµ{¦¡
½Õ¥ÎAPI¨ç¼Æ»PWindows¦ì¤¸ª©¥»¦³Ãö¡A¦Ó«DÃöOFFICEªº·sÂÂ
­Y§Aªº¬OOFFICE 2010 for 64¦ì¤¸ª©¥»½Ð°Ñ¦Ò
   http://forum.twbts.com/thread-10506-1-1.html

yangjie

¦^´_ 14# Hsieh

ÁÂÁ«ü¾É
¨ü¥Î¤F