Gadget ›› DisableGadget

DisableGadget

構文

DisableGadget (gadget , state)

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

http://mneniya.ucoz.ru/