If _curPost.IsDm Then
SourceLinkLabel.Tag = Nothing
SourceLinkLabel.Text = ""
If _curPost.IsDm Then
SourceLinkLabel.Tag = Nothing
SourceLinkLabel.Text = ""
- SourceLinkLabel.Visible = False
+ 'SourceLinkLabel.Visible = False
Else
Dim mc As Match = Regex.Match(_curPost.SourceHtml, "<a href=""(?<sourceurl>.+?)""")
If mc.Success Then
Else
Dim mc As Match = Regex.Match(_curPost.SourceHtml, "<a href=""(?<sourceurl>.+?)""")
If mc.Success Then
Else
SourceLinkLabel.Tag = Nothing
End If
Else
SourceLinkLabel.Tag = Nothing
End If
- SourceLinkLabel.Text = "via " + _curPost.Source
- SourceLinkLabel.Visible = True
+ If String.IsNullOrEmpty(_curPost.Source) Then
+ SourceLinkLabel.Text = ""
+ 'SourceLinkLabel.Visible = False
+ Else
+ SourceLinkLabel.Text = "via " + _curPost.Source
+ 'SourceLinkLabel.Visible = True
+ End If
End If
If _statuses.Tabs(_curTab.Text).TabType = TabUsageType.DirectMessage AndAlso Not _curPost.IsOwl Then
End If
If _statuses.Tabs(_curTab.Text).TabType = TabUsageType.DirectMessage AndAlso Not _curPost.IsOwl Then
'Source整形
Private Sub CreateSource(ByRef post As PostClass)
'Source整形
Private Sub CreateSource(ByRef post As PostClass)
- If post.Source.StartsWith("<") Then
- If Not post.Source.Contains("</a>") Then
- post.Source += "</a>"
- End If
- post.SourceHtml = String.Copy(ShortUrl.Resolve(PreProcessUrl(post.Source)))
- Dim mS As Match = Regex.Match(post.Source, ">(?<source>.+)<")
- If mS.Success Then
- post.Source = HttpUtility.HtmlDecode(mS.Result("${source}"))
- End If
- Else
- If post.Source = "web" Then
- post.SourceHtml = My.Resources.WebSourceString
- ElseIf post.Source = "Keitai Mail" Then
- post.SourceHtml = My.Resources.KeitaiMailSourceString
+ Try
+ If post.Source.StartsWith("<") Then
+ If Not post.Source.Contains("</a>") Then
+ post.Source += "</a>"
+ End If
+ Dim mS As Match = Regex.Match(post.Source, ">(?<source>.+)<")
+ If mS.Success Then
+ post.SourceHtml = String.Copy(ShortUrl.Resolve(PreProcessUrl(post.Source)))
+ post.Source = HttpUtility.HtmlDecode(mS.Result("${source}"))
+ Else
+ post.Source = ""
+ post.SourceHtml = ""
+ End If
- post.SourceHtml = String.Copy(post.Source)
+ If post.Source = "web" Then
+ post.SourceHtml = My.Resources.WebSourceString
+ ElseIf post.Source = "Keitai Mail" Then
+ post.SourceHtml = My.Resources.KeitaiMailSourceString
+ Else
+ post.SourceHtml = String.Copy(post.Source)
+ End If
+ Catch ex As Exception
+ TraceOut(post.Source)
+ End Try
End Sub
Public Function GetInfoApi(ByVal info As ApiInfo) As Boolean
End Sub
Public Function GetInfoApi(ByVal info As ApiInfo) As Boolean
End If
Exit Sub
ElseIf xElm.Element("limit") IsNot Nothing Then
End If
Exit Sub
ElseIf xElm.Element("limit") IsNot Nothing Then
Exit Sub
ElseIf xElm.Element("event") IsNot Nothing Then
Debug.Print("event: " + xElm.Element("event").Value)
Exit Sub
ElseIf xElm.Element("event") IsNot Nothing Then
Debug.Print("event: " + xElm.Element("event").Value)