?? tptipslist.vb
字號:
Public Class tpTipsList
Inherits tpBase
Public 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)
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 tpTipsList = Nothing
'查找有相同地址的主題列表
For Each tp As TabPage In TC.TabPages
If TypeOf tp Is tpTipsList Then
Dim temp As tpTipsList = tp
If temp.url.ToLower = url.ToLower Then
TpTemp = temp
End If
End If
Next
If TpTemp Is Nothing Then
TpTemp = New tpTipsList
TpTemp.url = url
TC.TabPages.Add(TpTemp)
End If
'選中的。
TC.SelectedTab = TpTemp
TpTemp.StartLoadingThreading()
End Sub
Private Sub web_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles web.Navigating
Dim f As FrmMain = Me.FindForm
Dim u As String = e.Url.PathAndQuery.ToLower
If e.Url.ToString = Me.url.ToString Then
Return
End If
If u.StartsWith("/expert/topicview1.asp") Then
If My.Settings.LayOut = "11" Then
tpTip.ShowTP(e.Url.ToString, f.tc)
Else
tpTip.ShowTP(e.Url.ToString, f.tc2)
End If
e.Cancel = True
End If
If u.StartsWith("/expert/member/myforum.asp") Then
tpTipsList.ShowTP(e.Url.ToString, f.tc)
e.Cancel = True
End If
End Sub
End Class
''提取ID和TITLE的正則
'Dim r As String = "<a href=[""|']/Expert/TopicView(\d*).asp\?id=(?<ID>\d+)[""|'] target=[""|']_blank[""|']>(?<TITLE>.*?)</a>"
''下面這個是提取標題、時間、發表。。
''<a href=[""|']/Expert/TopicView[\d*].asp\?id=(?<ID>\d+)[""|'] target=[""|']_blank[""|']>(?<TITLE>.*?)</a>\r\n</td>\r\n<td align="right">(?<AUTHOR>.*?)</td>\r\n<td width="30" align="right">(?<MARK>\d+)</td>\r\n<td width="30" align="right">(?<REVIEWCOUNT>\d+)</td>\r\n<td width="80" align="right">(?<TIME>[\d+\-\d+ \r\n \d+:\r\n \d+]+)</td>
''提取分頁的正則
' r = "<a href='(?<URL>.*?)(?<PAGE>\d+)'>\2</a>"
''提取當前頁的正則
' r = "<font color=red>(?<ID>\d+)</font>"
''小版塊的版區名
' r = "<tr bgcolor=""#ffffff""><td colspan=""2""> <font size=3 color=red><b>(?<TITLE>.*?)</b></font> \((?<TYPE>.*?)\)</td></tr>"
''大版塊的版區名
' r = "<tr bgcolor=""#ffffff"" ><td colspan=""2""> <font color=""red"" size=""3"">(?<TITLE>.*?)</font></td></tr>"
''我的問題 參與的問題 得分的問題
' r = "<tr bgcolor=""#ffffff"" ><td> <b>(?<TITLE>.*?)</b>.*?</td></tr>"
''提取斑竹:新版本
' r = "<a href=""http://message.csdn.net/SendMessage\.aspx\?To=(?<BBSADMIN>.*?)"">\1</a>"
''提取斑竹:老版
' r = "<a href=""/Message_Board/Send.asp\?sendto=(?<BBSADMIN>.*?)"">\1</a>"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -