HideGadget

Синтаксис

sub HideGadget(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, "")
ButtonGadget(2,250,10,100,20,"Hide")
ButtonGadget(3,250,40,100,20,"Show")
Do
  event=WaitEvent()
  If event= eventclose Then End
  If event=eventgadget Then
     Select Case eventnumber
        Case 2
           HideGadget(1,1)
        Case 3
           HideGadget(1,0)
     End Select
  EndIf
Loop

Результат

Created with the Personal Edition of HelpNDoc: Easy to use tool to create HTML Help files and Help web sites