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

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

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

¤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

µ{¦¡½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«×ªºµ{§Ç
ÁÂÁ¡ã

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

TOP

¥»©«³Ì«á¥Ñ ciboybj ©ó 2018-2-28 21:29 ½s¿è

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

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD