Gadget ›› ProgressBarGadget
ProgressBarGadget
構文
ID= ProgressBarGadget(Number, x , y , Width , Height , [beginPos=0] , [endPos=0] , [Style=0] )
Function ProgressBarGadget(ByVal gadget As Long, ByVal x As Long, ByVal y As Long, ByVal w As Long, ByVal h As Long, ByVal BeginPos As Long=0, ByVal EndPos As Long=0, ByVal style As Long=0) As HWND
説明
ガジェットは、任意のアクション(例えば、ダウンロードや、ファイルをコピーする、など)の状況を視覚的に示します。
ガジェットの色を設定する関数 SetGadgetColor(サブシステムGTK2を使用するWindowsおよびLinuxの場合のみ)
ガジェットの色を取得する関数 GetGadgetColor(サブシステムGTK2を使用するWindowsおよびLinuxの場合のみ)
可能な範囲内の現在の位置を取得する関数 GetGadgetState
可能な範囲内の現在の位置を設定する関数 SetGadgetState
オプション
ID - ガジェット・ハンドル
Number - 識別子 (正の整数 1,2,3,4 など)
x,y,Width,Height - 位置とサイズ
beginPos - 表示範囲の開始位置 (既定値 0)
endPos - 表示範囲の終了位置 (既定値 0)
Style - ガジェットのスタイルを指定できます(サブシステムGTK2を備えたWindowsおよびLinuxの場合のみ):
PBS_SMOOTH (1) - 分離しない平滑スケール
PBS_VERTICAL (4) - 垂直方向の表示
PBS_MARQUEE (8) - 区切られた長方形の視覚的なスケール:既定値
プラットホーム
Windows , Linux
例_1:
#Include "window9.bi"
Dim As Integer event
var hwnd=OpenWindow("window",10,10,350,100) : CenterWindow(hwnd)
Var dd=ProgressBarGadget(1,10,10,300,20,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
例_2:
#Include "window9.bi"
Dim As HWND hwnd
Dim As Integer event
#Define colorRgb Bgr(Int(Rnd*255),Int(Rnd*255),Int(Rnd*255))
hwnd=OpenWindow("window",10,10,345,360) : CenterWindow(hwnd)
For event=1 To 10
ProgressBarGadget(event,event*30-10,10,20,300,0,100, PBS_SMOOTH or PBS_VERTICAL)
SetGadgetColor(event,colorRgb,colorRgb,3)
Next
SetTimer(hwnd,1,10,0)
Do
event=WaitEvent()
If Event=EventClose Then
End
ElseIf Event=EventTimer Then
For event=1 To 10
SetGadgetState(event,int(Rnd*100))
Next
EndIf
Loop
http://mneniya.ucoz.ru/
ロシア語オリジナル:https://users.freebasic-portal.de/freebasicru/window9lib/window9.html