ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] Åýµ{§Çµe­±°±¯d0.1¬í?

[µo°Ý] Åýµ{§Çµe­±°±¯d0.1¬í?

½Ð±Ð¤j¤j
      ¦bVBA¤U
      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
                Åýµe­±°±¯d0.1¬í
       Next
À³¦p¦ó¼gªk?      ÁÂÁÂ

¦^´_ 14# Hsieh

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

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2014-4-13 13:09 ½s¿è

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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²£¥Í§@¥Î¶Ü?

TOP

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

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2014-4-11 17:08 ½s¿è

¦^´_ 8# yangjie
³oÀ³¸Ó¬Oªí³æ¼Ò²Õªºµ{¦¡
  1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

  2. Private Sub CommandButton1_Click()
  3.   For repeat1 = 1 To 4
  4.                 n1 = CLng(TextBox75) + 1
  5.                 For j = 74 To 23 Step -1
  6.                     Controls("TextBox" & j) = Controls("TextBox" & j - 13)
  7.                     Controls("TextBox" & j).BackColor = Controls("TextBox" & j - 13).BackColor
  8.                 Next
  9.                 TextBox75 = n1
  10.                 DoEvents
  11.                 Sleep 100
  12.        Next
  13. End Sub
½Æ»s¥N½X
¦pªG­nÅý¨ä¥L¼Ò²Õ¤]¯à¦@¥Î¦¹¨ç¼Æ
´N¦b¤@¯ë¼Ò²Õ¤º³]¦¨¦@¥Î¨ç¼Æ
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 9# yangjie
API
¨ç¼Æ Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
»Ý¸m©ó¤@¯ë¼Òªýªº³»ºÝ

Application.Wait ªº®É¶¡³Ì¤p¬O¬í¼Æ, 0.1¤£±µ¨üªº.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 5# GBKEE
½Ð±ÐGBKEEª©¤j
        Application.Wait Time + #12:00:01 AM# '
       12:00:01 À³¬OÅýµe­±°±¯d1¬í ¡A¨º0.1¬íÀ³¦p¦óªí¥Ü?
    Application.Wait Time + (#12:00:01 AM#)/10  ¬O¦æ¤£³q  À³¦p¦ó­×¥¿??

TOP

¦^´_ 4# Hsieh
½Ð±Ð Hsiehª©¤j
        Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
        ¦¹¦æÀ³©ñ¦b­þ¸Ì??

TOP

¦^´_ 5# GBKEE
Á¤F  ¾Ç¨ì¨â©Û ·P¿E

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD