frmbrowser.vb

来自「This is a Text Editor Created USing VB.n」· VB 代码 · 共 22 行

Public Class frmBrowser

    Private Sub Web_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles Web.DocumentCompleted
        lblStatus.Text = "Completed"
    End Sub

    Private Sub Web_FileDownload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Web.FileDownload
        If Web.IsBusy Then
            lblStatus.Text = "Downloading"
        Else
            lblStatus.Text = "Completed"
        End If
    End Sub

    Private Sub Web_Invalidated(ByVal sender As Object, ByVal e As System.Windows.Forms.InvalidateEventArgs) Handles Web.Invalidated
        lblStatus.Text = "Error"
    End Sub

    Private Sub frmBrowser_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        Web.Height = Me.Height - 50
    End Sub
End Class