楕円形を描画          <TOP>


Ellipse 楕円形を描画

GetDC デバイスコンテキストハンドルを取得

ReleaseDC デバイスコンテキストを解放

 

 

'================================================================
'= 楕円形を描画
'=    (Ellipse.bas)
'================================================================
#include "Windows.bi"

' 楕円の描画
Declare Function Api_Ellipse& Lib "gdi32" Alias "Ellipse" (ByVal hDC&, ByVal X1&, ByVal Y1&, ByVal X2&, ByVal Y2&)

' 指定されたウィンドウのクライアント領域または画面全体を表すディスプレイデバイスコンテキストのハンドルを取得
Declare Function Api_GetDC& Lib "user32" Alias "GetDC" (ByVal hWnd&)

' デバイスコンテキストを解放
Declare Function Api_ReleaseDC& Lib "user32" Alias "ReleaseDC" (ByVal hWnd&, ByVal hDC&)

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Var hDC As Long
    Var Ret As Long

    'フォームのデバイスコンテキスト取得
    hDC = Api_GetDC(GethWnd)

    '楕円の表示
    Ret = Api_Ellipse(hDC, 30, 10, 200, 100)
End Sub

'================================================================
'=
'================================================================
Declare Sub MainForm_Qeryclose edecl ()
Sub MainForm_Qeryclose()
    Ret = ReleaseDC(hWnd, hDC)
    End
End Sub

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