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

名前

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

本文 GetCursorInfo って初めて知った。 おいらのMSDNにはないのね・・ 検索してもあまり出てこないし というわけで勉強がてら作ってみました。 Private Declare Function GetCursorInfo Lib "user32" _ (pci As CURSORINFO) As Boolean Private Type POINTAPI x As Long y As Long End Type Private Type CURSORINFO cbSize As Long flags As Long hCursor As Long ptScreenPos As POINTAPI End Type Private Sub Command1_Click() Dim a As POINTAPI Dim b As CURSORINFO b.cbSize = Len(b) GetCursorInfo b Text1.Text = "hCursor:" & b.hCursor & vbCrLf & "ScreenPos: " & b.ptScreenPos.x & "," & b.ptScreenPos.y End Sub