Узнать текущий курсор мыши (его вид) - VB

Узнай цену своей работы

Формулировка задачи:

Здравствуйте) возникла такая задача, поместить текущий курсор мыши в picturebox, всё никак не пойму как это сделать. То есть чтобы на форме можно было увидеть значок текущего курсора. Можно конечно сделать скриншот экрана вместе с курсором, а потом убрать лишнее и тогда уже кинуть его в Picturebox, но на скриншоте курсора к сожалению не видно( хотя например кейлоггеры обычно делают скрин с курсором...вобщем если кто знает как это сделать буду рад помощи)

Решение задачи: «Узнать текущий курсор мыши (его вид)»

textual
Листинг программы
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
 
Dim cr1, cr2 As Long
 
Private Sub Command1_Click()
Timer1.Enabled = True
call GetCursor
cr1 = Getcursor ()
End Sub
 
Private Sub Timer1_Timer()
call GetCursor
cr2 = GetCursor ()
if cr1<>cr2 then MsgBox "Change"
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 3.875 из 5
Похожие ответы