End Sub
Private Sub tw_NewPostFromStream()
- Me._myStatusError = False
-
If SettingDialog.ReadOldPosts Then
_statuses.SetRead() '新着時未読クリア
End If
End Get
End Property
- Private Function GetUserIdFromCurPostOrInput() As String
+ Private Function GetUserIdFromCurPostOrInput(ByVal caption As String) As String
Dim id As String = ""
If _curPost IsNot Nothing Then
id = _curPost.Name
End If
Using inputName As New InputTabName()
- inputName.FormTitle = "Show UserTimeline"
+ inputName.FormTitle = caption
inputName.FormDescription = My.Resources.FRMessage1
inputName.TabName = id
If inputName.ShowDialog() = Windows.Forms.DialogResult.OK AndAlso _
End Function
Private Sub UserTimelineToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserTimelineToolStripMenuItem.Click
- Dim id As String = GetUserIdFromCurPostOrInput()
+ Dim id As String = GetUserIdFromCurPostOrInput("Show UserTimeline")
If Not String.IsNullOrEmpty(id) Then
AddNewTabForUserTimeline(id)
End If
End Sub
Private Sub UserFavorareToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UserFavorareToolStripMenuItem.Click
- Dim id As String = GetUserIdFromCurPostOrInput()
+ Dim id As String = GetUserIdFromCurPostOrInput("Show Favstar")
If Not String.IsNullOrEmpty(id) Then
OpenUriAsync(My.Resources.FavstarUrl + "users/" + id + "/recent")
End If