ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / getcursorpos
3 сообщений из 3, страница 1 из 1
getcursorpos
    #39995226
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
Используется у меня такая APIшная функция....
Win 7-64, office 13-32
У меня собственно продолжает работать норм.
Программа стоит еще у одного юзера, и у него уже полтора года работала.....
А вот вчера на строке
ctl.accHittest(.....) вываливает invalid procedure call or argument
при этом Getcursorposition(pt) - выполняется
все библиотеки на месте.....
обновляли - переставляли и офис и windows - все тоже самое.....
Что это может быть?
Доп инф - у этого юзера такой глюк возникал регулярно, нажмешь END - и потом продолжает работать норм.
А вот вчера заклинило намертво
...
Рейтинг: 0 / 0
03.09.2020, 14:23
| Ответить | Цитировать | Написать  
getcursorpos
    #39995258
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Serg197311, как предположение. Твоя Getcursorposition возвращает в конечном счёте значения Long, процедура accHittest имеет параметры Integer. Для начала посмотри, не выходят ли они за пределы, ну и приводи типы явно.
ИМХО
...
Рейтинг: 0 / 0
03.09.2020, 15:30
| Ответить | Цитировать | Написать  
getcursorpos
    #39995464
Serg197311
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Serg197311
Участник
вообще ничего не понимаю....
Взял отсюда https://www.sql.ru/forum/237757/vychislit-vysotu-strochki-v-listbokse?hl=acchittest
Код: vbnet
1.
2.
3.
Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long

Private Declare Function ClientToScreen Lib "user32.dll" (ByVal hwnd As Long, ByRef lpPoint As POINTAPI) As Long


и
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
Enum SELFFLAG
  SELFLAG_NONE = 0
  SELFLAG_TAKEFOCUS = 1
  SELFLAG_TAKESELECTION = 2
  SELFLAG_EXTENDSELECTION = 4
  SELFLAG_ADDSELECTION = 8
  SELFLAG_REMOVESELECTION = 16
End Enum


Перед acchittest добавил
Код: vbnet
1.
ScreenToClient Me.hwnd, tp


- заработало.
Но это все фигня, сегодня на том компе , где на acchittest без этих примочек вылетала ошибка - он стал работать и без них!!!!
Совсем шайтан.....
Примочки в исходнике оставил на всякий случай.....
...
Рейтинг: 0 / 0
04.09.2020, 08:02
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / getcursorpos
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=39995464&tid=1609955]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 135ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 299ms
total:  524ms
созд. / загр.: 524ms
x
x
Закрыть


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