SetRangeProgressBar

Синтаксис

Sub SetRangeProgressBar(ByVal gadget As Long, ByVal BeginPos As Integer, ByVal EndPos As Integer)

Описание

Устанавливает диапазон отображения для ProgressBarGadget

Параметры

gadget - номер гаджета

BeginPos - начальная позиция диапазона отображения

EndPos - конечная позиция диапазона отображения

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
Dim As hwnd hwnd
hwnd=OpenWindow("Window",10,10,350,100) : CenterWindow(hwnd)
Var dd=ProgressBarGadget(1,10,10,300,20)
SetRangeProgressBar(1,0,100)
SetGadgetColor(1,50000,0,3)
SetTimer(hwnd,1,1000,0)
Var a=0:Var b=70000
Do
  event=WaitEvent()
  If Event=EventClose Then
     End
  ElseIf Event=EventTimer Then
     a+=20
     If a=120 Then
        a=0
        SetGadgetColor(1,b,b+20000,3)
        b+=20000
     EndIf
     SetGadgetState(1,a)
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator