QProgress Composant

QProgress Proprietés

Champs	Type	L/E	Défaut
Handle	INTEGER	LE
Height	INTEGER	LE
Left	INTEGER	LE	0
Parent	Handle QFORM/QPANEL/QTABCONTROL	LE
Top	INTEGER	LE	0
Width	INTEGER	LE
Visible	INTEGER	LE	True
Value	INTEGER	LE
	Valeur de progression.

QProgress Methods

Methode	Type	Description	Parametres

QProgress Events

Evenement	Type	Declenchement	Parametres

QProgress Examples

$TYPECHECK ON
$Include "Rapidq.inc"
$include "Object\QProgress.inc"

Declare Sub Start
Declare Sub Display

dim pourcent as integer
dim tempo as QTIMER
tempo.interval=100
tempo.enabled=False
tempo.OnTimer=Display
dim Bar as QProgress

CREATE Form AS QFORM
    Caption = "Progress Bar"
    Width = 350
    Height = 180
    Center
    CREATE Button1 AS QBUTTON
        Caption = "Start"
        Left = 125
        Top = 100
        OnClick=Start
    END CREATE
END CREATE
Bar.parent=form.handle
Bar.left=10
Bar.Top=40
Bar.Width=305
Bar.Height=25
Form.ShowModal

Sub Display
  if pourcent<100 then
    pourcent=pourcent+1
    Bar.Value=pourcent
  else
    tempo.enabled=False
  end if
End Sub

Sub Start
  pourcent=0
  Bar.Value=0
  tempo.enabled=True
End Sub