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。