ＢＩＴＢＬＴ後の画像が消えないようにするには？ (ID:121415)

名前

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

本文 ２度目の投稿です。 BITBLTで以下のようにすると Dim Data_g = Graphics.FromImage(DataArea.Image) Data_g.Drawline等 Dim MainPic1DC As Integer Dim api As Boolean MainPic1DC = GetDC(Picture1.Handle) api = BitBlt(MainPic1DC, 100, 100, 150, 150, MainPic1DC, 0, 0, SRCCOPY) 意図した通り表示はされるのですが他のウインドウがかぶると消えてしまいます。そこで以下のようにしたのですがその位置に黒色の箱が描かれる だけです。どこに問題があるのか皆目わかりません。 ＢＩＴＢＬＴ後の画像が消えないようにしたいのです。 どなたかご教示・アドバイスをいただけないでしょうか？ Dim Data_g = Graphics.FromImage(DataArea.Image) Data_g.Drawline等 Dim MainPic1DC As Integer Dim api As Boolean Dim g_MemoryBufferDC As IntPtr = Data_g.GetHdc() MainPic1DC = GetDC(Picture.Handle) api = BitBlt(MainPic1DC, 100, 100, 150, 150, g_MemoryBufferDC.ToInt32, 0, 0, SRCCOPY)