source: trunk/ab5.0/ablib/TestCase/UI_Sample/step5_DayTimeCheck.ab@ 559

'「Win32プログラミング講座 ～ Step5. ボタン コントロールを使う ～」のAB5移植版
'http://www.activebasic.com/help_center/articles/win32/step05/

'2008/07/20 Egtra

#require <Classes/ActiveBasic/Windows/UI/Form.ab>
#require <Classes/ActiveBasic/Windows/UI/Application.ab>
#require <Classes/ActiveBasic/Windows/UI/Button.ab>

Imports ActiveBasic.Windows.UI
Imports System

Class DayTimeCheckForm
    Inherits Form
Public
    Sub DayTimeCheckForm()
        AddCreate(AddressOf(OnCreate))
    End Sub

Protected
    Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
        Super.GetCreateStruct(cs)
        With cs
            .style = WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_DLGFRAME Or WS_MINIMIZEBOX
            .cx = 140
            .cy = 130
        End With
    End Sub

Private
    Sub OnCreate(sender As Object, e As CreateArgs)
        buttonDate = New Button
        buttonTime = New Button
        Dim wpHFontControl = GetStockObject(DEFAULT_GUI_FONT) As WPARAM
        With buttonDate
            .Create(This)
            .Text = "今日は何日？"
            .Move(30, 20, 80, 30)
            .AddClick(AddressOf(ButtonDate_Click))
            .SendMessage(WM_SETFONT, wpHFontControl, 0)
        End With

        With buttonTime
            .Create(This)
            .Text = "今何時？"
            .Move(30, 60, 80, 30)
            .AddClick(AddressOf(ButtonTime_Click))
            .SendMessage(WM_SETFONT, wpHFontControl, 0)
        End With
    End Sub

    Sub ButtonDate_Click(sender As Object, e As Args)
        MessageBox(This, ToTCStr(DateTime.Today.GetDateTimeFormats("yyyy/MM/dd")), "今日の日付", MB_OK)
    End Sub

    Sub ButtonTime_Click(sender As Object, e As Args)
        MessageBox(This, ToTCStr(DateTime.Now.GetDateTimeFormats("H:mm:ss")), "今日の日付", MB_OK)
    End Sub

    buttonDate As Button
    buttonTime As Button
End Class

Control.Initialize(GetModuleHandle(0))
Dim f = New DayTimeCheckForm
f.Create()
Application.Run(f)