SetTrackBarMaxPos

Синтаксис

Sub SetTrackBarMaxPos(ByVal gadget As Long, ByVal maxPos As Long,ByVal flag As Long=0)

Описание

Устанавливает максимальную позицию TrackBarGadget

Параметры

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

maxPos - новая максимальная позиция

flag - (только для windows) флаг, управляющий перерисовкой гаджета сразу после обработки данного сообщения. По умолчанию 0(не перерисовывать). Если будет 1, то гаджет сразу перерисуется в соответствии с заданным параметром maxpos. В Linux всегда перерисовывается.

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,300,300)
ButtonGadget(1,20,20,60,25,"MAX 5")
TrackBarGadget(2,20,70,100,40,0,10)
TextGadget(3,200,20,30,20)
Dim event As integer
Do
  event=WaitEvent()
  If event=EventGadget Then
     Select case EventNumber
        Case 2
           SetGadgetText(3,Str(GetTrackBarPos(2)))
        Case 1
           SetTrackBarMaxPos(2,5,1)
     End Select
  EndIf
Loop Until event=EventClose

Результат

Created with the Personal Edition of HelpNDoc: Full featured Kindle eBooks generator