デスクトップ画像を取得するには (ID:88930)

名前

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

本文 早速の回答ありがとうございます。 RXhatiです。 030さんの通りに作成してみました。 ですが、どうもうまくデスクトップの画像が取得できません。 どこが悪いのかご指摘願います。 Dim nhWnd As Long 'ウインドウのハンドル Dim DC As Long 'デバイスコンテキストハンドル Dim MDC As Long 'メモリデバイスコンテキスト Dim BMPDC As Long 'ビットマップ '１）GetDesktopWindowでデスクトップのウィンドウハンドルを取得 nhWnd = GetDesktopWindow '２）GetDCで取得したウィンドウハンドルのデバイスコンテキストを取得 DC = GetDC(nhWnd) '３）CreateCompatibleDCで２）で取得したデバイスコンテキストと同じメモリデバイスコンテキストを作成 MDC = CreateCompatibleDC(DC) '４）CreateCompatibleBitmapで２）で取得したデバイスコンテキストとと関連するデバイスと互換性のあるビットマップを作成 BMPDC = CreateCompatibleBitmap(DC, Screen.Width, Screen.Height) '５）３）で作成したデバイスコンテキストに４）で作成したデバイスコンテキストを割り当てる Call SelectObject(MDC, BMPDC) '６）BitBltで画像を転送 Call BitBlt(Picture1.hdc, 0, 0, Screen.Width, Screen.Height, MDC, 0, 0, SRCCOPY)