GetClassGadget

Синтаксис

function GetClassGadget ( iGadget as integer ) as Long

Описание

Функция возвращает числовое значение , которое идентифицирует класс гаджета. Функция может вернуть:

1 - ButtonGadget
2 - EditorGadget
3 - ButtonImageGadget
4 - ImageGadget
5 - TextGadget
6 - StringGadget
7 - SpinGadget
8 - CalendarGadget
9 - CheckBoxGadget
10 - OptionGadget
11 - HyperLinkGadget
12 - TrackBarGadget
13 - ComboBoxGadget
14 - ComboBoxImageGadget
15 - ListBoxGadget
16 - GroupGadget
17 - WebGadget
18 - ProgressBarGadget
19 - ListViewGadget
20 - TreeViewGadget
21 - ContainerGadget
22 - PanelGadget
23 - ScrollBarGadget
24 - GadgetToolTip
25 - SysTray
26 - OpenGlGadget
27 - StatusBarGadget

Параметры

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

Платформы

Linux

Пример

#Include "window9.bi"
Dim As integer event
OpenWindow("1",300,10,100,150)
CheckBoxGadget(1,10,10,90,30,"checkbox")
ButtonGadget(2,10,40,80,25,"button")
TextGadget(3,10,80,60,20,"text")
? GetClassGadget(1)
? GetClassGadget(2)
? GetClassGadget(3)
Do
  event=WaitEvent()
  If event=EventClose Then End
Loop

Результат

9
1
5

Created with the Personal Edition of HelpNDoc: Produce electonic books easily