GetHeightRebarGadget

Синтаксис

Function GetHeightRebarGadget(ByVal gadget As Long) As Integer

Описание

Получает высоту RebarGadget

Параметры

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

Платформы

Windows

Пример

#Include "window9.bi"
Dim As Integer event
Dim as HWND hwnd
hwnd=OpenWindow("Привет",10,10,300,300) : CenterWindow(hwnd)
TextGadget(1,10,10,100,20,"Text")
ButtonGadget(2,10,10,100,20,"Button")
RebarGadget(3)
AddRebarTab(3,2)
AddRebarTab(3,1)
? GetHeightRebarGadget(3)
Do
  event=WaitEvent()
  If Event=EventClose Then End
Loop

Результат

24

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