Помогите погасить указатель мыши - VB

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

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

Необходимо на определённое событие убирать с формы указатель мыши, не просто убирать а гасить его на ней? Люди дайте совет, не будьте редисками

Решение задачи: «Помогите погасить указатель мыши»

textual
Листинг программы
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
 
Private Sub Command1_Click()
 'спрятать  курсор
 ShowCursor 0
 End Sub
Private Sub Command2_Click()
'показать курсор ( нажимать TAB и "Space")
ShowCursor 1
End Sub
Private Sub Form_Unload(Cancel As Integer)
  'показать курсор при закрытии программы
  ShowCursor 1
End Sub

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


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

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

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