如何以编程方式从 MS Access 最大化浏览器？

Question

我最大化浏览器的目的是为用户提供从他们的 MS Access 应用程序到他们的 web 应用程序的连接和无缝体验。 出于这个原因，我正在寻找一种解决方案，它可以最大化通过 MS Access 应用程序控制的 web 浏览器的相同实例。

我首先做这样的事情：

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 调用对于设置 Z2567A5EC9705EB7AC2DZE940 浏览器的 window 大小特别有用。 这看起来也可以与 window 句柄可用的任何其他 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

因此，通过将其放在上述问题的代码末尾，我进行了此 function 调用以将浏览器大小设置为最大化：

apiShowWindow IE.hwnd, SW_MAXIMIZE

Answer 2

如果使用Shell语句调用浏览器，则可以使用vbMaximizedFocus 。 Windows Explorer 示例：

Shell "explorer.exe", vbMaximizedFocus