Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
ProgressBar and processing
Message
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Miscellaneous
Thread ID:
00270971
Message ID:
00271430
Views:
21
>How can I show a progressbar indicating the time left for a process if I have to use Autoyield = .F.
>I have to use the Autoyield because the progressbar makes the process to skip part of it.
>Thank you.
>Eduardo

Eduardo,

Me sorprende el asunto del Autoyield porque no tengo este tipo de problemas. Te doy un ejemplo de como uso un progressbar dentro de un proceso automatizado.
IF lDelete
  this.lblMsg.Caption = "Suppression du jeu de fiches précédent."

  SELECT v_BatchRel28110
  Delete ALL

  lnNext = GETNEXTMODIFIED(0)

  i = 0
  lnStep = MAX(INT( lnMax / 100), 1)

  BEGIN TRANSACTION
  DO WHILE lnNext # 0
    GO (lnNext)
    IF ! TABLEUPDATE()
      llToast = .T.
      EXIT
    ENDIF
    IF MOD ( i , lnStep) = 0
      this.cProgressMeter1.RefreshDisplay(i, lnMax)
    ENDIF
    lnNext = GETNEXTMODIFIED(lnNext)
    i = i + 1
  ENDDO

  this.cProgressMeter1.Reset()

  IF llToast
    ROLLBACK
    TABLEREVERT(.T.)
    ErrorMsg(this.cMsgUpdateFailed)
    RETURN .F.
  ELSE
    END TRANSACTION
  ENDIF
ENDIF
José
Previous
Reply
Map
View

Click here to load this message in the networking platform