Узнать текущий курсор мыши (его вид) - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д