2014-01-09 63 views
0

我正在VB.NET中編寫一個可打開Excel和Internet Explorer的程序。 爲了向這個程序發送密鑰,我需要將其中一個窗口放到前臺。而且與其他人一樣。vb.net更改Internet Explorer和Excel之間的活動窗口

我該怎麼做呢?

代碼以打開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瀏覽器類似的方法。

如果有解決方案,您可以給我一個例子嗎?

回答

1

最簡單的方法是使用'AppActivate'使用應用程序的名稱或他的PID。 類似於:AppActivate(「應用程序標題」)或AppActivate(PID),但是如果窗口最小化,它將不起作用。

此帖子How to restore a minimized window using AppActivate(ProcessID)可以幫到你。

您也可以使用Pinvoke。

相關問題