Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / отключить курсор / 15 сообщений из 15, страница 1 из 1
20.03.2010, 16:08
    #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:19
    #36532499
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отключить курсор
segail,

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

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

Но лично я - категорически против приложений, которые вмешиваются в мою личную жизнь (в других приложениях)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.03.2010, 18:43
    #36532608
segail
segail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отключить курсор
Shocker.Pro,
Тогда Активное окно в VBA на время загрузки приложения сделать не активным, такое можно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.03.2010, 18:48
    #36532612
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отключить курсор
что такое "Активное окно в VBA"?
что такое "Загрузка приложения"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.03.2010, 19:25
    #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:30
    #36532645
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отключить курсор
segail, Вы уже сами нашли... А говорили,что API - тёмный лес
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.03.2010, 19:39
    #36532651
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отключить курсор
Shocker.Proчто такое "Активное окно в VBA"?
что такое "Загрузка приложения"?

+1

За одно поправлюсь:
Код: plaintext
1.
2.
Sub test()
CursorSwitch False
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.03.2010, 20:04
    #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
| Ответить | Цитировать | Написать  
21.03.2010, 12:53
    #36533129
segail
segail
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
отключить курсор
Здравствуйте.
Данную тему создал для того чтобы открыть приложение в соотношение с Прогресс баром
Как я понял отловить открытие постороннего окна приложения в коде на VBA и подогнать его под Прогресс бар трудоемкая вещь.
Создал муляж Прогресс бара и подогнал примерное время пол открытия окна, не плохо получилось.
Может кому-нибудь пригодится.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / отключить курсор / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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