モノクロビットマップの作り方 (ID:91361)

名前

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

本文 モノクロビットマップを作り、そこに文字や絵を書き、ビットマップデータを取得しようとしています。 しかし、テスト段階でうまくいきません。 確認の段階でフォームに文字表示されません。 vb.net2003です。 win32クラスはAPIの呼び出しを定義したクラスです。 Dim PaperWidth As Integer = Me.ClientSize.Width Dim PaperHeight As Integer = Me.ClientSize.Height 'モノクロDIBを作る Dim bmi As win32.BITMAPINFO With bmi.bmiHeader .biSize = Marshal.SizeOf(bmi.bmiHeader) .biWidth = PaperWidth .biHeight = PaperHeight .biPlanes = 1 .biBitCount = 8 .biCompression = win32.BI_RGB End With Dim adr As IntPtr Dim hDC As IntPtr = win32.CreateCompatibleDC(IntPtr.Zero) Dim hDIB As IntPtr = win32.CreateDIBSection(hDC, bmi, win32.DIB_RGB_COLORS, adr, IntPtr.Zero, 0) Dim holdbmp As IntPtr = win32.SelectObject(hDC, hDIB) '文字を書く Dim msg As String = "test" win32.TextOut(hDC, 0, 0, msg, Len(msg)) '確認 win32.BitBlt(Me.Handle, 0, 0, Me.ClientSize.Width, Me.ClientSize.Height, hDC, 0, 0, win32.SRCCOPY) win32.SelectObject(hDC, holdbmp) win32.DeleteDC(hDC) win32.DeleteObject(hDC)