[表示 : 全て 最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 2chのread.cgiへ]
Update time : 02/22 21:23 / Filesize : 217 KB / Number-of Response : 848
[このスレッドの書き込みを削除する]
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧] [類似スレッド一覧]

↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

VB.NET質問スレ(Part26)

513 名前：デフォルトの名無しさん mailto:sage [2008/08/07(木) 14:00:00 ]
ピクチャーボックスの1から2に画像をBitBltで転送したいのだけど2に何も表示されません、どこが間違ってますか？

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Image = System.Drawing.Image.FromFile("C:\WINDOWS\大草原の風.bmp")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim g As Graphics
Dim hDC As IntPtr
Dim hDC2 As IntPtr
Dim re As IntPtr
Dim bmp As New Bitmap(256, 256)
g = Graphics.FromImage(bmp)

hDC = g.GetHdc()
hDC2 = GetDC(PictureBox1.Handle)

re = BitBlt(hDC, 0, 0, bmp.Width, bmp.Height, hDC2, 0, 0, SRCCOPY)

PictureBox2.Image = bmp
PictureBox2.Refresh()

g.ReleaseHdc(hDC)
g.Dispose()
bmp.Dispose()
End Sub




[ 続きを読む ] / [ 携帯版 ]
全部読む 前100 次100 最新50 ▲ [ このスレをブックマーク！ 携帯に送る ] 2chのread.cgiへ
[＋板 最近立ったスレ＆熱いスレ一覧 : ＋板 最近立ったスレ／記者別一覧]（ ´∀｀）＜217KB

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef