FProgressbar

 Progressbar mit der zusätzlichen Möglichkeit Text darzustellen

Property Datentyp(Read/Write) Hinweise
Left Integer (R/W) Linke Position
Top Integer (R/W) Obere Position
Width Integer (R/W) Weite
Height Integer (R/W) Höhe
ClientHeight Integer (R) Höhe des Clientbereiches
ClientWidth Integer (R) Breite des Clientbereiches
Caption String (R/W) Text innerhalb des Control
Visible Integer (R/W) TRUE = sichtbar (voreingestellt) ; FALSE = nicht sichtbar
Pos Integer (R/W) Aktuelle Position innerhalb des mit SetRange angegebenen Bereiches
Border Integer (R/W) 0 = ohne, 1 =sunken(voreingestellt)
Color Uinteger(R/W) Hintergrundfarbe
ProgressColor Uinteger(R/W) Farbe desProgress-Balken
TextColor
Uinteger(R/W) TextFarbe
Sub/Function Argumente Hinweise
SUB Create (ByVal hParent As HWND, ByVal x As Integer,ByVal y As Integer,ByVal w As Integer,ByVal h As Integer ) Handle des Elternfenster, Dimensione x,y,Weite,Höhe
SUB DeltaPos (ByVal value As integer) Erweitert die Anzeige um die angegebene Weite
SUB Stepit ohne Erweitert die Anzeige um eine Stufe (in SetStep angegebene)
SUB SetStep (ByVal value As integer ) Schrittweite mit der die Anzeige erweitert wird ( voreingestellt ist 10 )
Sub SetRange (ByVal min As USHORT ,ByVal max As USHORT ) Setzt den Bereich der Anzeige des Progress
Sub setFont (Face As String,
ByVal size As Integer,
ByVal bold As Integer,
ByVal italic As Integer,
ByVal underlin As Integer)
Schrift-Name
Schriftgröße
1=bold,0=normal
1=italic,0=normal
1=underlin,0=normal
Event SUBArgumenteHinweis
onLButtondown(ByVal x As Short, ByVal y As Short) Wenn auf dem Control mit der linker Mousetaste geklickt wird
x und y ist dabei die Position des Mousezeigers
onRButtondown(ByVal x As Short, ByVal y As Short) Wenn auf dem Control mit der rechter Mousetaste geklickt wird
x und y ist dabei die Position des Mousezeigers

 

Beispiel :
 #Include "winFBgui.bi"


Dim Shared As FForm form1
Dim Shared As FButton Btn1,Btn2,Btn3
Dim Shared As FProgress progress1

'--------------- EventSub ---------------------
Sub btn1_Click
form1.FormClose
End Sub

Sub btn2_Click
progress1.Stepit
Btn2.Caption = "Step "+Str(progress1.Pos)
End Sub

'------------ Fenter erstellen ----------------
form1.Create("Test 1",90,90,400,300)
form1.Color = &HFFFFFF

' ------------Button erstellen ---------------
Btn1.Create(form1.Handle,"Exit",50,150,100,60)
Btn1.onClick = @btn1_Click

Btn2.Create(form1.Handle,"Step",250,150,100,60)
Btn2.onClick = @btn2_Click


'------------ Progressbar----------------------
progress1.Create(form1.Handle,50,50,300,26)
progress1.SetRange(0,25)
progress1.SetStep(1) ' Schrittweite
progress1.Caption = "C:\Freebasic\examples\..."
progress1.TextColor = &H00f0f0 ' TextFarbe
progress1.Color = &Ha0a0a0 ' Hintergrundfarbe
progress1.SetFont("Arial",9,0,0,0)

'-----------------------------------------------------------
' alles anzeigen
form1.Show
ExitProcess(0)
End

 

So sieht es aus: