ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Определить количество подключенных мониторов
25 сообщений из 28, страница 1 из 2
  1  все
Определить количество подключенных мониторов
    #40064668
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
Как можно определить количество подключенных мониторов?
...
Рейтинг: 0 / 0
22.04.2021, 11:03
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40064738
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
Adilby,
Код: vbnet
1.
2.
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
MsgBox "Число мониторов в системе " & GetSystemMetrics(80)
...
Рейтинг: 0 / 0
22.04.2021, 14:10
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40064749
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Adilby,
Именно в VBA?
...
Рейтинг: 0 / 0
22.04.2021, 14:29
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40064765
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
sdku,

это и есть VBA
...
Рейтинг: 0 / 0
22.04.2021, 14:59
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40064806
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
ROI,
так я этого и не "вкуриваю"-зачем Аксу знать сколько мониторов подключено.
В панели управления графикой есть эти данные
...
Рейтинг: 0 / 0
22.04.2021, 16:07
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40067882
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
авторPrivate Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
MsgBox "Число мониторов в системе " & GetSystemMetrics(80)
Почему у меня красным выдает ошибку, что я должен подключить/сделать?
...
Рейтинг: 0 / 0
02.05.2021, 13:48
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40067884
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
sdku,

к ноутбуку продавца подключаю дополнительный монитор, и через всплывающую форму показываю клиенту на втором мониторе что он покупает
...
Рейтинг: 0 / 0
02.05.2021, 13:51
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40067895
ROI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ROI
Участник
Adilby
авторPrivate Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
MsgBox "Число мониторов в системе " & GetSystemMetrics(80)

Почему у меня красным выдает ошибку, что я должен подключить/сделать?
Выделенное красным надо объявлять в отдельном модуле
...
Рейтинг: 0 / 0
02.05.2021, 14:29
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40067901
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
ROI,

что-то не разобрался куда, что, как писать. Куда не пишу везде везде красным показывает. Не тыкнете ли, буду очень благодарен.
...
Рейтинг: 0 / 0
02.05.2021, 15:04
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40067946
Фотография Панург
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Панург
Участник
Adilby
авторPrivate Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
MsgBox "Число мониторов в системе " & GetSystemMetrics(80)

Почему у меня красным выдает ошибку, что я должен подключить/сделать?
Код: vbnet
1.
2.
3.
4.
5.
#If VBA7 Then
Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#Else
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#End If

это пишется в разделе декларирования модуля, в данном случае формы...
...
Рейтинг: 0 / 0
02.05.2021, 17:08
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068100
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
Панург,

PtrSafe обычно без (ByVal nIndex As Long Ptr ) не прокатывает.
...
Рейтинг: 0 / 0
03.05.2021, 15:00
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068321
ЦЦа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЦЦа
Гость
vmag,

да с чего бы? Источник:
Код: plaintext
1.
2.
3.
int GetSystemMetrics(
  int nIndex
);

int - это Long в VBA.
...
Рейтинг: 0 / 0
04.05.2021, 13:32
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068326
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
ЦЦа,

Да я тут как-то делал на медни приложение с двумя accde под win 32 и win 64 так вот оказалось, что VBA шный As Long в конце это да - аналог int (для w64), а вот Long в параметре без Ptr вызывает ошибку передаваемого параметра... ноги от сюда растут
...
Рейтинг: 0 / 0
04.05.2021, 13:53
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068333
ЦЦа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЦЦа
Гость
vmag,

"конец" или "начало" - не имеет значения. Без конкретики нельзя сказать, какая ошибка в выборе типов была допущена.
...
Рейтинг: 0 / 0
04.05.2021, 14:13
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068347
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
ЦЦа,
vmag
PtrSafe обычно без (ByVal nIndex As Long Ptr ) не прокатывает.


В примере с мониторами на 64 разряда работает и Long и LongPtr
Могу своё "обычно" поменять на иногда и добавить, что LongPtr работает всегда...
...
Рейтинг: 0 / 0
04.05.2021, 15:03
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068369
Фотография sdku
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sdku
Участник
Adilby
к ноутбуку продавца подключаю дополнительный монитор, и через всплывающую форму показываю клиенту на втором мониторе что он покупает
В силу своей тупости ничё не понимаю:ну получите Вы цифру 1(или 2) и чё? Занахрена она клиенту? А просто словами объяснить (продемонстрировав возможности рядом тестов или без этого) клиенту что он покупает-не вариант
...
Рейтинг: 0 / 0
04.05.2021, 16:02
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068373
ЦЦа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЦЦа
Гость
vmag
Могу своё "обычно" поменять на иногда и добавить, что LongPtr работает всегда...
От этого пахнет мистикой и вероятностным процессом, в то время как процесс выбора типа при преобразовании 32-битных приложений в 64-битные логичен и детерминирован (читай - при достаточной практике туп и механистичен).
И кстати, если не хочеЦЦа им заморачиваЦЦа - находим уже адаптированные под VBA7 описания функций (Declare или библиотеки типов (.tlb)). А если таки хочеЦЦа - можно начать с официального источника и ссылок из него.
...
Рейтинг: 0 / 0
04.05.2021, 16:08
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068420
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
vmag,
поиск через CTRL-F
а вообще знать количество подключенных мониторов это довольно важно - либо на 1 моник инфу выводить, либо на два, или 3. К примеру расположили формы на 2 монитора , а у юзера он только 1 - окна все равно будут на втором мониторе - они на 1 монитор не соберутся и юзер будет считать что их нет (он их на 1-м мониторе не видит), а разработчик - что они есть (он их видит на 2-м мониторе куда сам и засунул)!
...
Рейтинг: 0 / 0
04.05.2021, 21:20
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068441
Фотография vmag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vmag
Участник
alecko
а вообще знать количество подключенных мониторов это довольно важно

наверно, правда за 30 лет ни разу даже в голову такое не пришло, ток щас узнал, что есть такая возможность...
а уж кому это совсем по барабану (что там на этом мониторе и включен ли он вообще) - так это кассиру, чеки вылазят и ладно... последние метра три чековой ленты
идут с красной полосой, намекая что ленту пора заменить дабы кассу не заклинило на середине чека, так они даже это умудряются прозевать, отдают клиенту крашеный чек молча и ноль эмоций...
Да и мне как покупателю, не хотелось бы чтоб весь магазин видел что я покупаю и на какую сумму, я бы нажал кнопочку и отключил монитор когда подойдет моя очередь...
:-)
...
Рейтинг: 0 / 0
04.05.2021, 22:24
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068475
old_joy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
old_joy
Участник
Было бы еще интересно получить и разрешение мониторов.
...
Рейтинг: 0 / 0
05.05.2021, 06:23
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068565
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
Панург
Adilby
пропущено...

Почему у меня красным выдает ошибку, что я должен подключить/сделать?
Код: vbnet
1.
2.
3.
4.
5.
#If VBA7 Then
Private Declare PtrSafe Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#Else
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
#End If

это пишется в разделе декларирования модуля, в данном случае формы...


Отлично! Спасибо!
...
Рейтинг: 0 / 0
05.05.2021, 13:53
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068576
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
sdku
Adilby
к ноутбуку продавца подключаю дополнительный монитор, и через всплывающую форму показываю клиенту на втором мониторе что он покупает
В силу своей тупости ничё не понимаю:ну получите Вы цифру 1(или 2) и чё? Занахрена она клиенту? А просто словами объяснить (продемонстрировав возможности рядом тестов или без этого) клиенту что он покупает-не вариант


это было продолжение этого процесса https://www.sql.ru/forum/1160340/customer-display-displey-pokuratelya
...
Рейтинг: 0 / 0
05.05.2021, 14:26
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068577
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
[quot vmag#22318534]
alecko
...
Да и мне как покупателю, не хотелось бы чтоб весь магазин видел что я покупаю и на какую сумму, я бы нажал кнопочку и отключил монитор когда подойдет моя очередь...
:-)

)))))
некоторые покупатели не доверяют кассиру и хотят видеть что там мутится))
...
Рейтинг: 0 / 0
05.05.2021, 14:30
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068578
Adilby
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Adilby
Гость
А теперь можно ли командно открыть всплывающую форму именно на втором мониторе?
...
Рейтинг: 0 / 0
05.05.2021, 14:32
| Ответить | Цитировать | Написать  
Определить количество подключенных мониторов
    #40068605
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
Adilby,
Код: vbnet
1.
docmd.MoveSize
...
Рейтинг: 0 / 0
05.05.2021, 15:19
| Ответить | Цитировать | Написать  
25 сообщений из 28, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Определить количество подключенных мониторов
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=7&tid=1609691]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 49ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 249ms
total:  412ms
созд. / загр.: 412ms
x
x
Закрыть


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