マウスカーソルをPictureBoxに描画する

キャプチャソフトで、"マウスを含めてキャプチャ"と言うのがあります。
ここでは僕が使ったマウスカーソルの描画の方法を紹介します。
まず、マウスカーソルを描画するには、GetCursor、DrawIconという
二つのAPIを使用します。
GetCursorはカーソルのハンドルを取得するための関数、
DrawIconは、カーソルのハンドルを使ってデバイスコンテキストにアイコンを描画する関数です。
以下は、PictureBoxをクリックしたときにカーソルを描画するサンプルです。
PictureBoxを一つ配置してください。

'APIの宣言
Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal hIcon As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long

Private Sub Picture1_Click()
Dim hcur As Long
'ハンドルの取得
hcur = GetCursor
Picture1.AutoRedraw = True
'カーソルを描画
DrawIcon Picture1.hdc, 0, 0, hcur
Picture1.Refresh
End Sub

BACK