Как максимизировать браузер из MS Access программно?

Question

Моя цель для максимизации браузера заключается в том, чтобы предоставить пользователю возможность подключенного и беспроблемного взаимодействия от приложения MS Access до веб-приложения.По этой причине я ищу решение, которое максимизирует ту же мощь веб-браузера, управляемого приложением MS Access.

Я начинаю с того, что делаю что-то вроде этого:

Dim IE As InternetExplorer
Set IE = New InternetExplorer
IE.Navigate2 "\\File Location\index.html"
IE.Document.all("txtSearchKey").innertext = SearchKeyValue
IE.Document.all("btnSearchForKey").Click
IE.Visible = True
Set IE = Nothing

я хочу убедиться, что при каждом запуске этого кода браузер также разворачивается.

Каков наилучший способ сделать это программно?

Answer 1

Я обнаружил, что следующий вызов Windows API особенно полезен при настройке размера окна веб-браузера.Похоже, это также может быть использовано с любым другим приложением Windows, для которого также доступен дескриптор окна.

Declare Function apiShowWindow Lib "user32" Alias "ShowWindow" _
            (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Global Const SW_MAXIMIZE = 3
Global Const SW_SHOWNORMAL = 1
Global Const SW_SHOWMINIMIZED = 2

Итак, сложив это вместе в конце кода в вопросе выше,Я сделал этот вызов функции, чтобы установить максимальный размер браузера:

apiShowWindow IE.hwnd, SW_MAXIMIZE

Answer 2

Если вы вызываете браузер с помощью оператора Shell, вы можете использовать стиль окна vbMaximizedFocus. Пример с Windows Explorer:

Shell "explorer.exe", vbMaximizedFocus