- 529 名前：デフォルトの名無しさん mailto:sage [2008/08/07(木) 19:51:33 ]
- 連続で質問して申し訳ないのですが、さっきのを一歩進めて
こんどはBitmapからPictureBox2に転送してみました
あってると思うのだけど何故表示されないのでしょうか？
Dim g As Graphics
Dim g2 As Graphics
Dim hDC As IntPtr
Dim hDC2 As IntPtr
Dim re As Integer
Dim srcimg As Image = Image.FromFile("C:\WINDOWS\大草原の風.bmp")
Dim bmp2 As New Bitmap(srcimg.Size.Width, srcimg.Size.Height)
g2 = Graphics.FromImage(bmp2)
g2.DrawImage(srcimg, 0, 0)
Dim bmp As New Bitmap(bmp2.Width, bmp2.Height)
g = Graphics.FromImage(bmp)
hDC = g.GetHdc()
hDC2 = g2.GetHdc()
re = BitBlt(hDC, 0, 0, bmp.Width, bmp.Height, hDC2, 0, 0, SRCCOPY)
PicMap.Image = bmp
PicMap.Invalidate()
g.ReleaseHdc(hDC)
g.Dispose()
g2.ReleaseHdc(hDC2)
g2.Dispose()
|
 |
