共用方式為


HtmlWindow.Close 方法

定義

關閉視窗。

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

範例

下列程式碼範例會開啟視窗,如果使用者在過去五分鐘內未使用它,則會將其關閉。 程式碼範例是以假設您的表單有 WebBrowser 名為 、 Button 名為 Button1WebBrowser1 的 控制項,以及 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 實例仍會繼續執行。

適用於

另請參閱