[µo°Ý] ¦Û»s¶i«×±ø(¤£¥ÎProgressBar)

ciboybj

¤j®a¦n
¥Ñ©óVBA ­ì¥ÍProgressBar ¥²¶·¦b¨Ï¥ÎªÌ¦³¦w¸Ë¬ÛÃö®M¥óªº±¡ªp¤U¤~¯à§e²{¡A©Ò¥H§Ú·Q­n¤£¥Î­ì¥ÍProgressBarªº¤è¦¡¡A¦Û»s¶i«×±ø
§e²{¤è¦¡¤j·§¦p¤U¡G
¥ý¦Û»s¤@­Óªí³æ¡A¨Ã¦bªí³æ¤¤¥[¤J®Ø¬[¡]FRAME¡^¡AµM«á¦b®Ø¬[¤¤¥[¤J¼ÐÅÒ¡]LABEL¡^¡A¤§«áªí³æÅã¥Ü®É¡A§ïÅܼÐÅÒªº¼e«×¡A¥H§e²{¥X¶]¶i«×ªº®ÄªG

¤U¸ü (6.71 KB)

2018-2-28 18:39

µ{¦¡½X¬°¡G

1. Private Sub UserForm_Activate()
   
2.     Dim A As Integer
   
3.     Dim Q As LongLong
   
4.     Dim TIME As String
   
5.     TIME = Timer
   
6.             Q = 100000000
   
7.     For A = 0 To 300 Step 30
   
8.         Label2.Width = A
   
9.          wait (0.5)
   
10.          DoEvents
    
11.             Do While Q > 0
    
12.                 Q = Q - 1
    
13.             Loop
    
14.             If Q < 0 Then Unload UserForm1
    
15.     Next
    
16.     MsgBox "DONE" & Timer - TIME & "Q=" & Q
    
17. End Sub
    
18. Function wait(S As Single)
    
19. Dim PauseTime, Start
    
20. PauseTime = S
    
21. Start = Timer
    
22. Do While Timer < Start + PauseTime
    
23.     DoEvents
    
24. Loop
    
25. End Function

½Æ»s¥N½X

§Ú¹w´Áªº®ÄªG¬O¡A¹q¸£¦b³B²zQ»¼´î1ªºµ{§Ç¤¤¡A¦P¨B§ïÅÜLABLEªº¼e«×
¦ý¤W­±ªºµ{¦¡¶]¥X¨Óªºµ²ªG¦ü¥G¬O¡A¦b¶]§¹Q»¼´î1ªºµ{§Ç«á¡A¤~¶]§ïÅÜLABELªº¼e«×µ{¦¡
·Q½Ð°Ý¤j®a¡A¤W­±µ{¦¡­n«ç»ò§ï¤~·|¬O¡A¦P®É¶]Q»¼´î1µ{§Ç¤Î§ïÅÜLABELªº¼e«×ªºµ{§Ç
ÁÂÁ¡ã

ciboybj

TO jackyq
·PÁ§Aªº¦^ÂÐ
§Ú¦A¬ã¨s¤@¤U

jackyq

Private Sub UserForm_Activate()
        Dim A As Integer
        Dim Q As Long
        Dim TIME As String
        TIME = Timer
            ' Q = 100000000  error
        For A = 0 To 300 Step 30
            Label2.Width = A
            Q = 100000000  'right
             'wait (0.5)
             DoEvents
                Do While Q > 0
                    If Q Mod 1000000 = 0 Then
                       DoEvents
                    End If
                    Q = Q - 1
                Loop
                If Q < 0 Then Unload UserForm1
        Next
        MsgBox "DONE" & Timer - TIME & "Q=" & Q
    End Sub