マウスカーソルの画像を取得して描画するには？

解決

Toshihiko 2005-01-10 07:49:10 No: 87713

題名の通りですが、現在表示されている
マウスカーソル（普段のやじるしや砂時計など）を取得し、
それをPictureBoxに描画する方法を探しています。
なんとか、マウスのハンドルを取得する方法はわかりましたが、
これをどう使えばいいのかがよくわかりません。

  この時点で間違っていたら最初からだめですが、ご教授願います。
  開発環境は、WinXP,Visual Basic6.0です。
  よろしくお願いします。

'標準モジュール
Public Declare Function GetCursor Lib "USER32" () As Long

'Form
Private Sub Command1_Click()

Dim Ret As Long

Ret = GetCursor
MsgBox Ret

End Sub

花ちゃん 2005-01-10 21:25:37 No: 87714

別途、APIは宣言して下さい。

Private Sub Command1_Click()
    With Picture1
        .AutoRedraw = True
        DrawIcon .hdc, 0, 0, GetCursor()
        .Refresh
    End With
End Sub

花ちゃん 2005-01-10 21:36:32 No: 87715

あちゃー
レスが付いていないと思ってレスしたら、2重投稿だったのですね。

#元質問者殿 2重投稿したら、削除依頼するなり、その旨書いて置くなり
こちらにも解決報告しておくなりしておいて下さいね。

管理人様削除の程お願いします。

Toshihiko 2005-01-11 00:37:15 No: 87716

すみません。
でも、参考にさせていただきます。
ありがとうございます。