Function GetTrackBarPos(ByVal gadget As long) As Integer
Позволяет получить позицию TrackBarGadget
gadget - номер гаджета
Windows , Linux
#Include "window9.bi"
OpenWindow("",10,10,300,300)
ButtonGadget(1,20,20,60,25,"End")
TrackBarGadget(2,20,70,100,40,0,10)
TextGadget(3,200,20,30,25)
Do
var event=WaitEvent()
If event=EventGadget Then
Select case EventNumber
Case 2
SetGadgetText(3,Str(GetTrackBarPos(2)))
Case 1
end
End Select
EndIf
Loop
Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator