デスクトップの画像をフォームに表示 (ID:120663)

名前

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

本文 環境：VB.NET2002 よろしくお願いします。 フォームクリックでデスクトップ画像をフォームのクライアント領域に表示する様にしたいです。 色々調べ、APIを使って以下のようにコードを書きましたが無反応です。 何か見落としているのでしょうか… ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Public Class Form1 Inherits System.Windows.Forms.Form …Windows フォーム デザイナで生成されたコード… Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click Dim hWnd, dWnd, hDesk, dDesk As Long 'フォーカスのあるウィンドウとそのデバイスコンテキストのハンドルを取得 hWnd = GetFocus dWnd = GetDC(hWnd) 'デスクトップウィンドウとそのデバイスコンテキストのハンドルを取得 hDesk = GetDesktopWindow dDesk = GetDC(hDesk) 'コピー BitBlt(dWnd, 0, 0, 100, 100, dDesk, 0, 0, &HCC0020) 'フォームを再描画 Me.Refresh() 'ハンドルを解放 ReleaseDC(hWnd, dWnd) ReleaseDC(hDesk, dDesk) End Sub End Class ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Module Module1 Declare Function GetDesktopWindow Lib "user32" () As Long Declare Function GetFocus Lib "user32.dll" () As Long Declare Function ReleaseDC Lib "user32.dll" _ (ByVal hWnd As Long, ByVal hdc As Long) As Long Declare Function GetDC Lib "user32.dll" (ByVal hWnd As Long) As Long Declare Function BitBlt Lib "gdi32" _ (ByVal hDestDC As Long, _ ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, _ ByVal hSrcDC As Long, _ ByVal xSrc As Long, ByVal ySrc As Long, _ ByVal dwRop As Long) As Long End Module