source: trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Button.ab@ 561

'Classes/ActiveBasic/Windows/UI/Button.ab

#require <Classes/ActiveBasic/Windows/UI/Control.ab>

Namespace ActiveBasic
Namespace Windows
Namespace UI

/*!
@date 2008/07/13
@brief  ボタンを表すクラス。
@author Egtra
*/
Class Button
    Inherits Control
Protected
    Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
        With cs
            .lpszClass = "BUTTON"
            .style Or= BS_PUSHBUTTON
        End With
    End Sub
Public
    Sub RaiseClick()
        OnClick(Args.Empty)
    End Sub

End Class

End Namespace 'UI
End Namespace 'Widnows
End Namespace 'ActiveBasic