如何以編程方式從MS Access最大化瀏覽器？

我最大化瀏覽器的目的是爲用戶提供從MS Access應用程序到他們的Web應用程序的連接和無縫體驗。由於這個原因，我正在尋找一種解決方案，通過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

但我想要做的就是確保每到這個代碼運行時，瀏覽器也被最大化。

以編程方式完成此操作的最佳方法是什麼？

來源

2011-05-05 Curtis Inderwiesche

我發現以下Windows API調用在設置Web瀏覽器的窗口大小時特別有用。這看起來像它也可以用於窗口句柄可用的任何其他窗口應用程序。

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

來源

2011-05-05 02:11:50

如果您在使用調用瀏覽器Shell聲明，您可以使用vbMaximizedFocus windowstyle。 Windows資源管理器示例：

Shell "explorer.exe", vbMaximizedFocus

來源

2011-05-05 05:28:40

如何以編程方式從MS Access最大化瀏覽器？

回答

相關問題