Здравствуйте, Имеется файл, при открытии которого, окно приложения должно становиться в правом нижнем углу экрана. Т.к. он открывается на разных компьютерах, нужно определить размер экрана, что бы определить координаты расположения окна приложения.
Нашел на другом форуме код который определяет размер:
И проверил сперва на большом мониторе, затем на другом компьютере с меньшим монитором, и оказалось что в режиме отладки на меньшем мониторе значения a и b те же что и на большом мониторе. Может этот код не то, что нужно для моей цели? Подскажите как программно определить размер экрана? Файл с неработающим кодом прилагаю.
Нашел на другом форуме код который определяет размер:
Код |
---|
Dim x As Variant, a#, b# With GetObject("winmgmts:\\.\root\cimv2") For Each x In .ExecQuery("Select * From Win32_DisplayConfiguration") a = x.PelsWidth b = x.PelsHeight Next End With |
И проверил сперва на большом мониторе, затем на другом компьютере с меньшим монитором, и оказалось что в режиме отладки на меньшем мониторе значения a и b те же что и на большом мониторе. Может этот код не то, что нужно для моей цели? Подскажите как программно определить размер экрана? Файл с неработающим кодом прилагаю.