SetTrackBarPos

Синтаксис

Sub SetTrackBarPos(ByVal gadget As long, ByVal newPos As long)

Описание

Позволяет устанавливать позицию в TrackBarGadget

Параметры

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

newPos - новая позиция, на которую нужно переместить ползунок

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,300,300)
ButtonGadget(1,20,20,100,25,"5 позиция")
TrackBarGadget(2,20,70,100,40,0,10)
TextGadget(3,200,20,30,20)
Do
  var event=WaitEvent()
  If event=EventGadget Then
     Select case EventNumber
        Case 2
           SetGadgetText(3,Str(GetTrackBarPos(2)))
        Case 1
           SetTrackBarPos(2,5)
     End Select
  EndIf
  If event=eventclose Then end
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easy to use tool to create HTML Help files and Help web sites