sleep°ÝÃD¡H

joey0415

¥H«e¦bµ{¦¡«e®a¤W
'«Å§iwin api¨ç¼Æ
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

¤§¥Îµ{¦¡¨Ó½Õ¥Î¥¦³£¨S¦³°ÝÃD

²{¦b¦]¬°ª@¯Å¦¨win7 64¦ì¤¸¡Aoffice 2010¤]¬O64¦ì¤¸«á¡A¥´¶}Àɮ׫á´N·|¦³°ÝÃD



¤£ª¾¹D«ç»ò­×§ï©O¡H

ÁÂÁÂ

joey0415

¦^´_  joey0415
¸Õ¸Õ¬Ý¡I
®t§O¦b©ó Long ¤Î LongLong ªº«Å§i«¬ºA¡C
c_c_lai µoªí©ó 2012-8-15 21:20

·PÁ¤j¤jªº¦^À³¡A¤£¹LÁÙ¬O¦³¨Ç¿ù»~¡A½Ð°Ý«ç»ò­×§ï©O¡H

joey0415

¦^´_ 5# c_c_lai

¦n¹³¦³¦n¤@ÂI¡I¤£¹Lµe­±·|¥X²{¤U­±¦p¹Ï

============================
---------------------------
Microsoft Visual Basic for Applications
---------------------------
½sĶ¿ù»~:

¨S¦³©w¸q³o­Ó Sub ©Î Function
===============================

¤U¸ü (28.78 KB)

2012-8-16 16:01

joey0415

§ä¨ì¤èªk¤F¡I32»P64¦ì¤¸³£¥i¥H¥Îªº®@¡I

1. '«Å§iwin api¨ç¼Æ  , ¥H¤U¤èªk¬O64»P32¦ì¤¸³£¥i¥H¥Îªº¤è¦¡®@¡I
   
2. 'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
3. 
   
4. [code]'«Å§iwin api¨ç¼Æ  , ¥H¤U¤èªk¬O64»P32¦ì¤¸³£¥i¥H¥Îªº¤è¦¡®@¡I
   
5. 'Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
   
6. 
   
7. #If VBA7 Then
   
8. Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr)
   
9. #Else
   
10. Private Declare Sub Sleep Lib "kernel32" (ByVal ms as Long)
    
11. #End If

½Æ»s¥N½X

¤U¸ü (14.13 KB)

2012-8-16 16:28