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调用在设置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

Answer 2

如果使用Shell语句调用浏览器，则可以使用vbMaximizedFocus windowstyle。 Windows资源管理器的示例：

Shell "explorer.exe", vbMaximizedFocus

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

2 个答案: