ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / отключить курсор
15 сообщений из 15, страница 1 из 1
отключить курсор
    #36532497
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Здравствуйте.
Можно ли как то на время отключить курсор? VBA Excel
Код: plaintext
1.
2.
3.
4.
Private Sub CommandButton1_Click()
	a= 1  ' Курсор отключен
	'...
	a= 2  ' Курсор включен
End Sub
...
Рейтинг: 0 / 0
20.03.2010, 16:08
| Ответить | Цитировать | Написать  
отключить курсор
    #36532499
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
segail,

Посмотрите работу со свойством MousePointer, в частности fmMousePointerCustom
...
Рейтинг: 0 / 0
20.03.2010, 16:19
| Ответить | Цитировать | Написать  
отключить курсор
    #36532506
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Pro,
Данные свойство изменят конфигурацию курсора, при на видение на объект, а свойства fmMousePointerCustom нету…
...
Рейтинг: 0 / 0
20.03.2010, 16:34
| Ответить | Цитировать | Написать  
отключить курсор
    #36532573
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
fmMousePointerCustom - это константа для MousePointer

Тогда ждем подсказки Antonary, Игоря или Konst_One, как это сделать через API
...
Рейтинг: 0 / 0
20.03.2010, 18:00
| Ответить | Цитировать | Написать  
отключить курсор
    #36532589
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Pro,
Нашел для VB применил в VBA
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Private Sub cmdOFF_Click()
Call ShowCursor(False)
End Sub

Private Sub cmdON_Click()
Call ShowCursor(True)
End Sub

Но при загрузке стороннего приложения, активность клика присутствует. Так как если произвести клик мышью в приложение VBA во время Call ShowCursor(False) при загрузке стороннего приложения, то окно стороннего приложения уходит на задний план, почему?
...
Рейтинг: 0 / 0
20.03.2010, 18:18
| Ответить | Цитировать | Написать  
отключить курсор
    #36532594
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Потому что ВНЕШНИЙ ВИД и ПОВЕДЕНИЕ курсора мыши - это совершенно разные вещи.
...
Рейтинг: 0 / 0
20.03.2010, 18:23
| Ответить | Цитировать | Написать  
отключить курсор
    #36532598
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Pro,
Наверно отключение идет в VB или VBA но не в операционной системе. Так как при загрузке стороннего приложения курсор на окне стороннего приложения активен, стоит его у вести на приложение VBA он исчезает и активность пропадает
А можно ли через код VBA отключить курсор мыши в операционной системе?
...
Рейтинг: 0 / 0
20.03.2010, 18:28
| Ответить | Цитировать | Написать  
отключить курсор
    #36532603
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Думаю, что можно, опять же через API.

Но лично я - категорически против приложений, которые вмешиваются в мою личную жизнь (в других приложениях)
...
Рейтинг: 0 / 0
20.03.2010, 18:33
| Ответить | Цитировать | Написать  
отключить курсор
    #36532608
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Shocker.Pro,
Тогда Активное окно в VBA на время загрузки приложения сделать не активным, такое можно?
...
Рейтинг: 0 / 0
20.03.2010, 18:43
| Ответить | Цитировать | Написать  
отключить курсор
    #36532612
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
что такое "Активное окно в VBA"?
что такое "Загрузка приложения"?
...
Рейтинг: 0 / 0
20.03.2010, 18:48
| Ответить | Цитировать | Написать  
отключить курсор
    #36532639
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
segail,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Private Declare Function ShowCursor Lib "user32" _
 (ByVal fShow As Long) As Long

Public Sub CursorSwitch(blnShow As Boolean)
ShowCursor (blnShow)
End Sub
Sub test()
CursorOn False
End Sub
...
Рейтинг: 0 / 0
20.03.2010, 19:25
| Ответить | Цитировать | Написать  
отключить курсор
    #36532645
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
segail, Вы уже сами нашли... А говорили,что API - тёмный лес
...
Рейтинг: 0 / 0
20.03.2010, 19:30
| Ответить | Цитировать | Написать  
отключить курсор
    #36532651
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Shocker.Proчто такое "Активное окно в VBA"?
что такое "Загрузка приложения"?

+1

За одно поправлюсь:
Код: plaintext
1.
2.
Sub test()
CursorSwitch False
End Sub
...
Рейтинг: 0 / 0
20.03.2010, 19:39
| Ответить | Цитировать | Написать  
отключить курсор
    #36532663
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
vlth, Так для VBA пойдет, у меня работает.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim LbTime As Integer
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Sub Lb1Start()
  Call ShowCursor(False)
End Sub

Sub RunTimer()
  If LbTime =  0  Then
    Call ShowCursor(True)
    Exit Sub
  End If
End Sub
...
Рейтинг: 0 / 0
20.03.2010, 20:04
| Ответить | Цитировать | Написать  
отключить курсор
    #36533129
segail
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
segail
Участник
Здравствуйте.
Данную тему создал для того чтобы открыть приложение в соотношение с Прогресс баром
Как я понял отловить открытие постороннего окна приложения в коде на VBA и подогнать его под Прогресс бар трудоемкая вещь.
Создал муляж Прогресс бара и подогнал примерное время пол открытия окна, не плохо получилось.
Может кому-нибудь пригодится.
...
Рейтинг: 0 / 0
21.03.2010, 12:53
| Ответить | Цитировать | Написать  
15 сообщений из 15, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / отключить курсор
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]