vb.net在Internet Explorer和Excel之間更改活動窗口

Question

我正在VB.NET中編寫一個程序，用於打開Excel和Internet Explorer。 為了將密鑰發送到該程序，我需要將其中一個的窗口置於前台。 並且要比其他同一個要好幾次。

我該怎么做呢？

打開Excel的代碼：

xlsApp = New Excel.Application
            xlsApp.Visible = True
            xlsWorkBooks = xlsApp.Workbooks
            xlsWB = xlsWorkBooks.Add() 'Open("T:\Dados_de_Aplicativos\Travel_Finder\texte.xlsx")
            xlsWS = xlsWB.Sheets(1)

打開IE的代碼：

    Dim IE As SHDocVw.InternetExplorer
    IE = CreateObject("InternetExplorer.Application")

打開IE后，可以將Excel置於前台：

xlsApp.WindowState = Excel.XlWindowState.xlMinimized
        If xlsApp.WindowState = Excel.XlWindowState.xlMinimized Then
            xlsApp.WindowState = Excel.XlWindowState.xlMaximized
        End If

但是我沒有找到與IE瀏覽器類似的方法。

如果可以解決，請給我一個例子嗎？

Answer 1

最簡單的方法是使用應用程序名稱或其PID使用“ AppActivate”。 類似於：AppActivate（“ Application Title”）或AppActivate（PID），但是如果窗口最小化，它將無法工作。

這篇文章如何使用AppActivate（ProcessID）恢復最小化的窗口可以為您提供幫助。

您也可以使用Pinvoke。