tptip.vb

csdn小助手 适合自动登录等功能

Public Class tpTip
    Inherits tpBase

    Private Sub New()
    End Sub

    ''' <summary>
    ''' 关闭当前
    ''' </summary>
    ''' <remarks></remarks>
    Public Overrides Sub Close()
        web.Dispose()
        Me.Dispose()
    End Sub


    ''' <summary>
    ''' 启动加载线程序
    ''' </summary>
    ''' <remarks></remarks>
    Public Sub StartLoadingThreading()
        Me.web.Url = New Uri(Me.url)
        Me.web.Refresh()
    End Sub

    ''' <summary>
    ''' 设置当前标题。。
    ''' </summary>
    ''' <param name="str"></param>
    ''' <remarks></remarks>
    Private Sub SubSetText(ByVal str As String)
        If Me.InvokeRequired Then
            Dim cb As New SetText(AddressOf SubSetText)
            Me.Invoke(cb, New Object() {str})
        Else
            Me.Text = str
        End If
    End Sub


    ''' <summary>
    ''' 显示帖子主题列表
    ''' </summary>
    ''' <param name="url">地址</param>
    ''' <param name="TC">帖子显示的TabControl</param>
    ''' <remarks></remarks>
    Public Shared Sub ShowTP(ByVal url As String, ByVal TC As TabControl)

        If TC Is Nothing Then
            Return
        End If
        If Len(url) = 0 Then
            Return
        End If

        Dim TpTemp As tpTip = Nothing

        '查找有相同地址的主题列表
        For Each tp As TabPage In TC.TabPages
            If TypeOf tp Is tpTip Then
                Dim temp As tpTip = tp
                If temp.url = url Then
                    TpTemp = temp
                End If
            End If
        Next

        If TpTemp Is Nothing Then
            TpTemp = New tpTip
            TpTemp.url = url
            TC.TabPages.Add(TpTemp)
        End If
        '选中的。
        TC.SelectedTab = TpTemp
        TpTemp.StartLoadingThreading()

    End Sub
 

End Class