'================================================================
'= ウィンドウが有効か無効か判別
'=    (IsWindowEnabled.bas)
'================================================================
#include "Windows.bi"

' ウィンドウが有効か無効か判別
Declare Function Api_IsWindowEnabled& Lib "user32" Alias "IsWindowEnabled" (ByVal hWnd&)

' 指定されたウィンドウまたはコントロールへのマウス入力およびキーボード入力を有効または無効にする
Declare Function Api_EnableWindow& Lib "user32" Alias "EnableWindow" (ByVal hWnd&, bEnable&)

Var Shared Button1 As Object
Var Shared Button2 As Object

Button1.Attach GetDlgItem("Button1") : Button1.SetFontSize 14
Button2.Attach GetDlgItem("Button2") : Button2.SetFontSize 14

'================================================================
'=
'================================================================
Declare Sub Button2_on edecl ()
Sub Button2_on()
    Var bl As Long
    Var Ret As Long

    bl = Api_IsWindowEnabled(Button1.GethWnd)

    If bl = 0 Then
        A% = MessageBox("", "Button1は現在無効です。" & Chr$(13, 10) & "有効にしますか？", 0, 2)
        Ret = Api_EnableWindow(Button1.GethWnd, 1)
    Else
        A% = MessageBox("", "Button1は現在有効です。" & Chr$(13, 10) & "無効にしますか？", 0, 2)
        Ret = Api_EnableWindow(Button1.GethWnd, ByVal 0)
    End If
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End