GadgetHeight

Синтаксис

Function GadgetHeight(ByVal gadget As long) As Long

Описание

Возвращает размер гаджета по высоте.

Параметры

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

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
OpenWindow("",10,10,300,300)
CalendarGadget(1,15,10,200,200)
ButtonGadget(2,220,10,60,10)
? GadgetWidth(1)
? GadgetHeight(1)
? GadgetWidth(2)
? GadgetHeight(2)
Do
  event=WaitEvent()
  If event= eventclose Then End
Loop

Результат

200
200
60
10

Created with the Personal Edition of HelpNDoc: Free Web Help generator