tpbase.vb

CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN

Public Class tpBase

 

    ''' <summary>
    ''' 关闭当前的版面
    ''' </summary>
    Public Overridable Sub Close()
        Me.Dispose()
    End Sub

#Region "地址"
    Private _url As String
    ''' <summary>
    ''' 当前tab使用的窗体
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Property url() As String
        Get
            Return _url
        End Get
        Set(ByVal value As String)
            _url = value
        End Set
    End Property
#End Region

    Private Sub web_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles web.DocumentCompleted
        Me.Text = web.DocumentTitle
        Me.ToolTipText = Me.Text
        If Len(Me.Text) > 10 Then
            Me.Text = Me.Text.Substring(0, 10)
        End If
    End Sub



    Private Sub web_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles web.Navigating
        'Console.WriteLine(e.Url)
        If e.Url.ToString = "http://exit.aspx/" Then
            e.Cancel = True
            Close()
            Return
        End If

        If e.Url.ToString = "http://signing.aspx/" Then
            e.Cancel = True
            Dim fSigning As New frmSigning
            fSigning.ShowDialog()
            Return
        End If
        If e.Url.ToString.ToLower.StartsWith("http://message.csdn.net/sendmessage.aspx?to=") Then
            e.Cancel = True
            frmMsgPost.ShowFrm(e.Url.ToString.ToLower.Replace("http://message.csdn.net/sendmessage.aspx?to=", ""))
            Return
        End If
 
    End Sub
 
End Class