ResizeGadget

Синтаксис

sub ResizeGadget(ByVal gadget As long, ByVal x As long=FB_ignore, ByVal y As long=FB_ignore, ByVal w As long=FB_ignore,ByVal h As Long=FB_ignore)

Описание

Изменяет расположение и размеры гаджета. Если будет указано FB_ignore , то величины не меняются. По умолчанию все параметры игнорируются, то есть если нужно изменить какой-то один пункт, остальные можно просто пропустить

Параметры

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

x - новая координата X

y - новая координата X

w - новая ширина

h - новая высота

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
OpenWindow("",10,10,300,330)
CalendarGadget(1,15,10,200,200)
ButtonGadget(2,10,230,50,30,"Click!")
Do
  event=WaitEvent()
  If event= eventclose Then End
  If event=EventGadget Then
     ResizeGadget(1,0,0)
     ResizeGadget(2,220,10,,50)
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Write EPub books for the iPad