Программное определение типа компьютера

@IAL52 · Регистрация: 17.08.2017

Author24 — интернет-сервис помощи студентам

Всех приветствую!

Знает ли кто-то как можно через VBA ACCESS определить тип компьютера. Десктоп, лаптоп или планшет?

Всем заранее спасибо!

@matva · 25.06.2020, 13:27

Сообщение от IAL52

Десктоп, лаптоп или планшет?

Встречный вопрос: кому (где) нужно определить тип компьютера? Да и на планшете работать с Access (особенно если Apple) вроде бы нельзя.
P.S. Я думаю, если Windows, то через реестр.

@IAL52 · 25.06.2020, 18:59 **[ТС]**

Ну, относительно планшета я, конечно, перегнул.
Необходимо понять на чем начинается работа и, если на лаптопе, то нужно закрыть Ribbon. А если нет-то нет.

Спасибо за ответ.

@Jamaica · 25.06.2020, 21:25

Определять надо не "тип компьютера", а размеры окна Access.
Для 32 битной версии можно попробовать как-то так:

Visual Basic

Private Declare Function GetWindowRect _
    Lib "user32" (ByVal hWnd As Long, lpRect As RECT) As Long
    
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
 
Public Sub trt()
    Dim r As RECT
    GetWindowRect Application.hWndAccessApp, r
    Debug.Print r.Right - r.Left, r.Bottom - r.Top
End Sub

@IAL52 · 25.06.2020, 21:32 **[ТС]**

Спасибо! Что-то я об этом не подумал.

@matva · 26.06.2020, 09:55

Jamaica, Поясните, плиз. Например: У меня старый монитор с 800х600, но полноценная система с полноценным access - и основываясь на размере окна, вы хотите запретить мне работать (понятное дело, что не Вы конкретно - Вы не ТС)?

@IAL52 · 26.06.2020, 10:00 **[ТС]**

Отнюдь. Я, просто, прикрываю ribbon. Ну а вы, при желании, можете его открыть. Но тем самым вы уменьшите полезную площадь экрана и придётся двигать форму туда-назад. А это, согласитесь, не совсем удобно. Ribbon дублируется кнапками на главной заставке, так что он вам, думаю, с вашим разрешением, не потребуется. Тем более он (Ribbon) у меня свой.

@alvk · 26.06.2020, 10:57

Сообщение от matva

У меня старый монитор с 800х600

Если не ЭЛТ, то лучше поменять.

@Jamaica · 26.06.2020, 11:45

Сообщение от matva

...вы хотите запретить мне работать...

Ну зачем-же так жОстко?

Вот у меня, например, монитор 3840*1080.
Я, конечно, могу распахнуть окно Access на весь экран, а могу сузить до размеров экрана смартфона.
Понятно, что для удобства пользования было-бы правильно иметь адаптивный интерфейс,
который сейчас повсеместно применяются в web-applications и на сайтах с помощью библиотек Bootstrap, Flex и др.

К сожалению, для реализации адаптивного интерфейса в Access-приложениях придется очень и очень ~~поговнокодить~~ постараться.

@IAL52 · 26.06.2020, 12:05 **[ТС]**

Сообщение от Jamaica

К сожалению, для реализации адаптивного интерфейса в Access-приложениях придется очень и очень поговнокодить постараться.

А я, признаться, несколько раз брался за это, но до конца так и не довёл.

@alvk · 26.06.2020, 12:20

И не надо

@IAL52 1 / 1 / 0 Регистрация: 17.08.2017 Сообщений: 181
		1
	Программное определение типа компьютера 25.06.2020, 12:19. Показов 1338. Ответов 10 Метки vba, десктоп, планшет (Все метки) Всех приветствую! Знает ли кто-то как можно через VBA ACCESS определить тип компьютера. Десктоп, лаптоп или планшет? Всем заранее спасибо! 0

@matva 385 / 86 / 16 Регистрация: 08.12.2012 Сообщений: 645
	25.06.2020, 13:27	2
	Сообщение от IAL52 Десктоп, лаптоп или планшет? Встречный вопрос: кому (где) нужно определить тип компьютера? Да и на планшете работать с Access (особенно если Apple) вроде бы нельзя. P.S. Я думаю, если Windows, то через реестр. 0

@IAL52 1 / 1 / 0 Регистрация: 17.08.2017 Сообщений: 181
	25.06.2020, 18:59 [ТС]	3
	Ну, относительно планшета я, конечно, перегнул. Необходимо понять на чем начинается работа и, если на лаптопе, то нужно закрыть Ribbon. А если нет-то нет. Спасибо за ответ. 0

@IAL52 1 / 1 / 0 Регистрация: 17.08.2017 Сообщений: 181
	25.06.2020, 21:32 [ТС]	5
	Спасибо! Что-то я об этом не подумал. 0

@matva 385 / 86 / 16 Регистрация: 08.12.2012 Сообщений: 645
	26.06.2020, 09:55	6
	Jamaica, Поясните, плиз. Например: У меня старый монитор с 800х600, но полноценная система с полноценным access - и основываясь на размере окна, вы хотите запретить мне работать (понятное дело, что не Вы конкретно - Вы не ТС)? 0

@IAL52 1 / 1 / 0 Регистрация: 17.08.2017 Сообщений: 181
	26.06.2020, 10:00 [ТС]	7
	Отнюдь. Я, просто, прикрываю ribbon. Ну а вы, при желании, можете его открыть. Но тем самым вы уменьшите полезную площадь экрана и придётся двигать форму туда-назад. А это, согласитесь, не совсем удобно. Ribbon дублируется кнапками на главной заставке, так что он вам, думаю, с вашим разрешением, не потребуется. Тем более он (Ribbon) у меня свой. 1

@alvk 7446 / 4580 / 302 Регистрация: 12.08.2011 Сообщений: 14,280
	26.06.2020, 10:57	8
	Сообщение от matva У меня старый монитор с 800х600 Если не ЭЛТ, то лучше поменять. 0

@Jamaica 1255 / 475 / 102 Регистрация: 29.03.2016 Сообщений: 1,173
	26.06.2020, 11:45	9
	Сообщение было отмечено IAL52 как решение Решение Сообщение от matva ...вы хотите запретить мне работать... Ну зачем-же так жОстко? Вот у меня, например, монитор 3840*1080. Я, конечно, могу распахнуть окно Access на весь экран, а могу сузить до размеров экрана смартфона. Понятно, что для удобства пользования было-бы правильно иметь адаптивный интерфейс, который сейчас повсеместно применяются в web-applications и на сайтах с помощью библиотек Bootstrap, Flex и др. К сожалению, для реализации адаптивного интерфейса в Access-приложениях придется очень и очень ~~поговнокодить~~ постараться. 0

@IAL52 1 / 1 / 0 Регистрация: 17.08.2017 Сообщений: 181
	26.06.2020, 12:05 [ТС]	10
	Сообщение от Jamaica К сожалению, для реализации адаптивного интерфейса в Access-приложениях придется очень и очень поговнокодить постараться. А я, признаться, несколько раз брался за это, но до конца так и не довёл. 0

@alvk 7446 / 4580 / 302 Регистрация: 12.08.2011 Сообщений: 14,280
	26.06.2020, 12:20	11
	И не надо 0

Программное определение типа компьютера

Решение