メモリの開放についてです。（ハンドルを取得後開放できなくなってしまいました） (ID：114299)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ＶＢ.ＮＥＴです。
表示しているビットマップを
退避するためにBITBLTを使用しています。
退避後に開放ができなくて困っております。
教えていただければ幸いです。m(__)m

'API宣言(BITBLT)
    Public Const SRCCOPY = &HCC0020     '描画元BMPをコピー
    Private Shared Function BitBlt(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
    End Function

Dim img_imgg As Bitmap
        Dim gggg As Graphics
        Dim img_pct1_hdl As IntPtr
        Dim img_imgg2 As Bitmap
        Dim gggg2 As Graphics
        Dim img_pct1_hdl2 As IntPtr

img_imgg = New Bitmap(1000, 1000)
        gggg = Graphics.FromImage(img_imgg)
        img_pct1_hdl = gggg.GetHdc

img_imgg2 = New Bitmap(1000, 1000)
        gggg2 = Graphics.FromImage(img_imgg2)
        img_pct1_hdl2 = gggg2.GetHdc

Call BitBlt(img_pct1_hdl, 0, 0, 1000, 1000, img_pct1_hdl2, 0, 0, SRCCOPY)

img_imgg.Dispose()
        img_imgg2.Dispose()
        gggg.ReleaseHdc(img_pct1_hdl)
        gggg2.ReleaseHdc(img_pct1_hdl2)
        gggg = Nothing
        gggg2 = Nothing
        img_pct1_hdl = Nothing
        img_pct1_hdl2 = Nothing

とやっているのですが、どれをやってもタスクマネージャーで確認してみると
開放されている様子がありません。

ちなみに
        img_imgg = New Bitmap(1000, 1000)
        img_imgg.Dispose()

とやると開放されているようです。
どうぞよろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る