メモリデバイスコンテキスト

CreateCompatibleBitmap(関連するDC , xサイズ , yサイズ) As HBITMAP

BitBlt( _
    受け側DC , 左上x , 左上y , 幅 , 高さ , _
    送り側DC , 左上x , 左上y ,合成モード) As Long

作る

'-----------------------------------------------------------------------------
'  イベント プロシージャ
'-----------------------------------------------------------------------------
' このファイルには、ウィンドウ [MainWnd] に関するイベントをコーディングします。
' ウィンドウ ハンドル: hMainWnd

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。
#include<vcrt71.sbp>
Dim hImgDC As HDC'イメージボックスのDC
Dim hMemDC As HDC'メモリDC
Dim hBmp As HBITMAP'メモリDC用ビットマップ
'-----------------------------------------------------------------------------
' ウィンドウメッセージを処理するためのコールバック関数

Function MainWndProc(hWnd As HWND, dwMsg As DWord, wParam As WPARAM, lParam As LPARAM) As DWord
    ' TODO: この位置にウィンドウメッセージを処理するためのコードを記述します。

    ' イベントプロシージャの呼び出しを行います。
    MainWndProc=EventCall_MainWnd(hWnd,dwMsg,wParam,lParam)
End Function


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

'これは終了時に呼ばれます。ここで作ったものを開放します。
Sub MainWnd_Destroy()
    DeleteObject(hMemDC)
    DeleteObject(hBmp)
    ReleaseDC(GetDlgItem(hMainWnd , ImageBox1) , hImgDC)
    test_DestroyObjects()
    PostQuitMessage(0)
End Sub

'WM_PAINTの部分
Sub MainWnd_Paint(hDC As HDC)
BitBlt(hImgDC , 0 , 0,200 ,200 ,hMemDC , 0 , 0, SRCCOPY)
End Sub

'ウインドウが作られた時
Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
'コントロールは子ウインドウなので、GetDlgItem関数で
'ウインドウハンドルを取得します。
hImgDC = GetDC(GetDlgItem(hMainWnd , ImageBox1))

'メモリDCの初期設定
hMemDC = CreateCompatibleDC(hImgDC)
hBmp = CreateCompatibleBitmap(hImgDC , 200 , 200)
SelectObject(hMemDC , hBmp)

'乱数を初期化
srand(time(NULL))

'エラーのとき終了
If hImgDC = NULL or hMemDC = NULL or hBmp = NULL Then
    MessageBox(hMainWnd , "初期化失敗" , "エラー" , MB_OK)
    ExitProcess(0)
End If     
End Sub

'ボタンクリック
Sub MainWnd_IMAGE_Click()
'ここでメモリDCにお絵かきします。今回は乱数で点を打ちます。
Dim n As Long
Dim x As Long,y As Long
Dim col As Long

For n = 0 To 1000
    x = rand() Mod 200
    y = rand() Mod 200
    col = RGB(rand() Mod 255 , rand() Mod 255 , rand() Mod 255)
    SetPixel(hMemDC , x , y , col)
Next

'実際にWM_PAINTメッセージを送る。
SendMessage(hMainWnd , WM_PAINT , 0 , 0)
End Sub