DisableGadget

Синтаксис

Sub DisableGadget(ByVal gadget As long, ByVal state As long)

Описание

Данная функция предоставляет возможность делать гаджет неактивным (активным)

Параметры

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

state - флаг , может быть:
1 - неактивный гаджет
0 - активный гаджет

Платформы

Windows , Linux

Пример

#Include "window9.bi"
Dim As Integer event
OpenWindow("",10,10,400,300)
ButtonGadget(1,15,10,220,220, "click!")
ButtonGadget(2,250,10,100,20,"disable")
ButtonGadget(3,250,40,100,20,"enable")
Do
  event=WaitEvent()
  If event= eventclose Then End
  If event=eventgadget Then
     Select Case eventnumber
        Case 2
           DisableGadget(1,1)
        Case 3
           DisableGadget(1,0)
     End Select
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Single source CHM, PDF, DOC and HTML Help creation