僕は Visual Basic .NET を使って色々とプログラムを組んでる。
んで、目標(?)として、RPGを作ることを目指してたりする。

んで、VBの、Graphicsクラスの、DrawImageメソッドを使って
描画してるんだけど、それよりも、
Win32APIの「BitBlt」が、描画の速度が速いらしい。

前から使いたいなと思ってたけれど、なかなかうまく行かなかった…


やりたいこと


「Graphics1」, 「Graphics2」と、「Graphics」オブジェクトを作って、

「Graphics1」に、ゲームで使う画像
（地面となる画像とか、キャラクターの画像とか、いろいろ）を順番に描画していって、

「Graphics2」に 描画が終わった「Graphics1」の画像を 描画したい。

つまりは ダブルバッファリングってやつ。

んで、この描画に「BitBlt」を使いたかったんだけど なぜかうまく出来なかった。

できなかった時のコード↓

'定数などの宣言
Public Const SRCCOPY As Integer = &HCC0020
Public Declare Function BitBlt Lib "gdi32" _
    (ByVal hdcDest As IntPtr, _
     ByVal nXDest As Integer, _
     ByVal nYDest As Integer, _
     ByVal nWidth As Integer, _
     ByVal nHeight As Integer, _
     ByVal hdcSrc As IntPtr, _
     ByVal nXSrc As Integer, _
     ByVal nYSrc As Integer, _
     ByVal dwRop As Integer) As Boolean

'画像
Dim srcImage, destImage As System.Drawing.Bitmap

'BitBlt実行
Sub Draw()
    BitBlt(Graphics2.GetHdc, 0, 0, 640, 480, Graphics1.GetHdc, 0, 0, SRCCOPY)
    Graphics2.ReleaseHdc()
    Graphics1.ReleaseHdc()
End Sub

これで実行しても 何も変わらなかった。

多分分かる方はここでもう分かるんだろうけど…
僕は答えを知ってもなぜかがよくわかんない＾＾；

とりあえず、成功した時のコード↓

'定数などの宣言
Public Const SRCCOPY As Integer = &HCC0020
Public Declare Function BitBlt Lib "gdi32" _
    (ByVal hdcDest As IntPtr, _
     ByVal nXDest As Integer, _
     ByVal nYDest As Integer, _
     ByVal nWidth As Integer, _
     ByVal nHeight As Integer, _
     ByVal hdcSrc As IntPtr, _
     ByVal nXSrc As Integer, _
     ByVal nYSrc As Integer, _
     ByVal dwRop As Integer) As Boolean

Declare Function SelectObject Lib "gdi32" _
    (ByVal hdc As IntPtr, ByVal hgdiobj As IntPtr) As IntPtr
Declare Function DeleteObject Lib "gdi32" _
    (ByVal hgdiobj As IntPtr) As Boolean

'画像
Dim srcImage, destImage As System.Drawing.Bitmap

'BitBlt実行
Sub Draw()
    Dim dest As Graphics = Graphics.FromImage(destImage)

    Dim src As Graphics = Graphics.FromImage(srcImage)

    Dim destHdc As IntPtr = grDest.GetHdc()

    Dim srcHdc As IntPtr = grSrc.GetHdc()

    Dim hBitmap As IntPtr = srcImage.GetHbitmap()

    Dim oldBitmap As IntPtr = SelectObject(srcHdc, hBitmap)

    BitBlt(dest, 0, 0, srcImage.Width, srcImage.Height, srcHdc, 0, 0, SRCCOPY)

    SelectObject(srcHdc, oldBitmap)

    DeleteObject(hBitmap)

    src.ReleaseHdc(srcHdc)

    dest.ReleaseHdc(destHdc)
End Sub

どうやら、「SelectObject」と「DeleteObject」をやらないとダメっぽい。

これをしないとダメな理由が本当にわからない＾＾；

やっぱりWin32APIって難しいなぁ…

「DeleteObject」は「SelectObject」してるから戻すためなんだろうけど

その「SelectObject」はなんだ…？

知っている人いたら教えてくださ～いm(_ _)m