ab.com コミュニティ

コード: 全て選択

'-----------------------------------------------------------------------------
' ここから下は、イベントプロシージャを記述するための領域になります。

Sub CWnd1_Create(ByRef CreateStruct As CREATESTRUCT)
    Dim OldStyle As DWord
    Dim rect As RECT
    Dim width As Long , hight As Long

    OldStyle = GetWindowLong(hCWnd1,GWL_STYLE)
    'ウィンドウスタイルの変更
    SetWindowLong(hCWnd1,GWL_STYLE,WS_CHILD or OldStyle)
    '親ウィンドウを指定する
    SetParent(hCWnd1,hMainWnd)

'子ウィンドウの表示位置とサイズの指定
    '親ウィンドウのサイズ取得
    GetClientRect(hMainWnd , rect)
    With rect
        width = (.right - .left)-10
        hight = (.bottom - .top)-30
    SetWindowPos(hCWnd1,NULL,5,20,width,hight,SWP_SHOWWINDOW)
    End With

End Sub

'テスト用(子ウィンドウに文字を書く)
Sub CWnd1_Paint(hDC As HDC)
    Dim lptStr As String
    Dim hdc As HDC

    lptStr = "Hello Active Basic!"
    hdc = GetDC(hCWnd1)
    '文字を書く
    TextOut(hdc , 10 , 10 , lptStr , lstrlen(lptStr))
    ReleaseDC(hCWnd1 , hdc)

End Sub