source: trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Form.ab@ 551

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

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

Namespace ActiveBasic
Namespace Windows
Namespace UI

/*!
@date 2008/07/13
@brief  トップレベルウィンドウを表すクラス。
@author Egtra
*/

Class Form
    Inherits Control
Public
    Sub Form()
        AddMessageEvent(WM_COMMAND, AddressOf (OnCommand))
    End Sub

Protected
    Override Sub GetCreateStruct(ByRef cs As CREATESTRUCT)
        cs.style = WS_OVERLAPPEDWINDOW
    End Sub

    Sub OnCommand(sender As Object, e As MessageArgs)
        Dim id = e.WParam And &hffff 'LOWORD(e.WParam)
        Dim cmd = (e.WParam >> 16) And &hffff 'HIWORD(e.WParam)
        Dim hwnd = e.LParam As HWND
        If cmd = BN_CLICKED And hwnd <> 0 Then
            Dim c = Control.FromHWnd(hwnd)
            If IsNothing(c) = False Then
                Dim b = c As Button
                b.RaiseClick()
            End If
        End If
    End Sub

#include "FormEvent.sbp"
End Class

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

'----------
'テスト実行用

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

Imports ActiveBasic.Windows.UI

'OleInitialize()
Control.Initialize(GetModuleHandle(0))

Sub Paint(sender As Object, e As PaintDCArgs)
    TextOut(e.Handle, 10, 10, "Hello world!", 12)
End Sub

Class MyForm
    Inherits Form
Public
    Sub MyForm()
        AddPaintDC(AddressOf (Paint))
        AddMouseClick(AddressOf (Mouse))
        s = "aaa"
    End Sub

'   Sub Paint(sender As Object, e As PaintDCArgs)
'       TextOut(e.Handle, 10, 10, ToTCStr(s), s.Length)
'   End Sub

    Sub Mouse(sender As Object, e As MouseArgs)
        Invalidate()
    End Sub

    Sub OnClick(sender As Object, e As Args)
        OutputDebugString(Ex"====OnClick====\r\n")
    End Sub

    s As String
End Class

Dim f = New MyForm
f.Create()
f.Text = "Hello"

Dim b = New Button
b.Create(f)
b.Move(50, 50, 100, 100)
b.Text = "Ok"
b.AddClick(AddressOf(f.OnClick))

Application.Run(f)
f = Nothing
System.GC.Collect()

Control.Uninitialize()
'OleUninitialize()

End