３５.指定の領域をﾃﾞｽｸﾄｯﾌﾟと同じ壁紙で塗りつぶす



＜　使用用途　＞
指定の領域をﾃﾞｽｸﾄｯﾌﾟと同じ壁紙で塗りつぶす

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞ ダウンロード・・・　下に書いてあるサンプルソースと同じです

＜　説明　＞
ＡＰＩ関数のPaintDesktop を使用します。
PaintDesktop＝＞指定の領域をﾃﾞｽｸﾄｯﾌﾟと同じ壁紙で塗りつぶす
　　＜引数＞
　　　　　hdc：デバイスコンテキストのハンドル
　　＠戻り値＠　　
　　　　正常終了0以外

<　ＳＡＭＰＬＥ　＞
'ここではPicture1をデスクトップと同じ壁紙で塗りつぶします。
'標準モジュール
Public Declare Function PaintDesktop Lib "USER32" (ByVal hDC As Long) As Long

'ここからはフォームの処理
Private Sub Command1_Click()
　　Dim Ret As Long
　　　　　Ret = PaintDesktop(Picture1.hDC)
End Sub