SetTrackBarMinPos

Синтаксис

Sub SetTrackBarMinPos(ByVal gadget As Long, ByVal minPos As Long,ByVal flag As Long=0)

Описание

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

Параметры

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

minPos - новая минимальная позиция

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
OpenWindow("",10,10,300,300)
ButtonGadget(1,20,20,60,25,"Min 2")
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
           SetTrackBarMinPos(2,2,1)
     End Select
  EndIf
Loop Until event=EventClose

Результат

Created with the Personal Edition of HelpNDoc: Free EBook and documentation generator