共用方式為


HtmlWindow.Close 方法

定義

關閉視窗。

public:
 void Close();
public void Close();
member this.Close : unit -> unit
Public Sub Close ()

範例

以下範例程式碼會開啟一個視窗,若使用者在過去五分鐘內未使用該視窗,則關閉該視窗。 這個程式碼範例是在假設你的表單有一個 WebBrowser 名為 WebBrowser1、 、 ButtonButton1的控制項,以及 Timer 一個名為 Timer1的類別 所寫的 。 要成功執行此範例,請將第一個參數 OpenNew 更改為有效的 URL。

HtmlWindow balanceWindow;

private void balanceWindowButton_Click(object sender, EventArgs e)
{
    if (!(webBrowser1.Document == null)) 
    {
        balanceWindow = webBrowser1.Document.Window.OpenNew(new Uri("http://www.adatum.com/viewBalances.aspx"), "dialogHeight: 250px; dialogWidth: 300px; " +
        " dialogTop: 300px; dialogLeft: 300px; edge: Sunken; center: Yes; help: Yes; " +
        "resizable: No; status: No;");

        //Listen for activity on the document.
        webBrowser1.Document.Click += new HtmlElementEventHandler(Document_Click);

        windowTimeout.Interval = 300000;
        windowTimeout.Start();
    }
}

private void Document_Click(object sender, HtmlElementEventArgs e)
{
    windowTimeout.Stop();
    windowTimeout.Start();
}

private void windowTimeout_Tick(object sender, EventArgs e) 
{
    if (!balanceWindow.IsClosed) 
    {
        balanceWindow.Close();
        windowTimeout.Stop();
    }
}
Dim BalanceWindow As HtmlWindow

Private Sub BalanceWindowButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BalanceWindowButton.Click
    If (WebBrowser1.Document IsNot Nothing) Then
        With WebBrowser1.Document
            BalanceWindow = .Window.OpenNew(New Uri("http://www.adatum.com/viewBalances.aspx"), "dialogHeight: 250px; dialogWidth: 300px; " & _
            " dialogTop: 300px; dialogLeft: 300px; edge: Sunken; center: Yes; help: Yes; " & _
            "resizable: No; status: No;")

            ' Listen for activity on the document.


            WindowTimeout.Interval = 300000
            WindowTimeout.Start()
        End With
    End If
End Sub

Private Sub Document_Click(ByVal sender As Object, ByVal e As System.EventArgs)
    WindowTimeout.Stop()
    WindowTimeout.Start()
End Sub

Private Sub WindowTimeout_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles WindowTimeout.Tick
    If (Not BalanceWindow.IsClosed) Then
        BalanceWindow.Close()
        WindowTimeout.Stop()
    End If
End Sub

備註

利用物業 IsClosed 判斷該窗口是否已經關閉。 如果視窗已經關閉,這個方法就沒有效果。

當你使用 OpenOpenNew建立新視窗時, Close HTML 文件物件模型會開啟新的 Internet Explorer 實例。 如果你沒有呼叫 Close 所有已建立的視窗,這個 Internet Explorer 實例會在應用程式關閉後仍會繼續運行。

適用於

另請參閱