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

【问题标题】：How to maximize a browser from MS Access programmatically?如何以编程方式从 MS Access 最大化浏览器？
【发布时间】：2011-05-09 13:21:39
【问题描述】：

我最大化浏览器的目的是为用户提供从 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

但我想做的是确保每次运行这段代码时，浏览器也最大化。

以编程方式完成此任务的最佳方法是什么？

【问题讨论】：

标签： internet-explorer ms-access vba browser

【解决方案1】：

我发现以下 Windows API 调用在设置 Web 浏览器的窗口大小时特别有用。这看起来也可以与任何其他窗口句柄可用的 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

【讨论】：

【解决方案2】：

如果您使用Shell 语句调用浏览器，则可以使用vbMaximizedFocus 窗口样式。 Windows 资源管理器示例：

Shell "explorer.exe", vbMaximizedFocus

【讨论】：