PaintDesktop

指定の領域をデスクトップと同じパターン・壁紙で塗りつぶす

Declare Function PaintDesktop Lib "user32.dll" _

        (ByVal hdc As Long) As Long

Declare Function PaintDesktop Lib "user32.dll" _

        (ByVal hdc As Integer) As Integer

BOOL WINAPI PaintDesktop(
HDC hdc
);
引数
hdc

表示する領域のデバイスコンテキストのハンドル

正常終了のとき                      0以外

エラーのとき                        0

ダウンロード(PaintDesktop.lzh 1.02KB)

'指定の領域をデスクトップと同じパターン・壁紙で塗りつぶす
Private Declare Function PaintDesktop Lib "user32.dll" (ByVal hdc As Long) As Long


Private Sub Command1_Click()
MsgBox "どうかな？"
End Sub


Private Sub Form_Load()
Me.Caption = "PaintDesktop()関数の実験"
End Sub


Private Sub Form_Paint()
Call PaintDesktop(Me.hdc)
End Sub