Private Sub FavoriteRetweetMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FavoriteRetweetMenuItem.Click, FavoriteRetweetContextMenu.Click
- FavoriteChange(True)
- doReTweetOfficial(True)
+ If _curList.SelectedIndices.Count > 1 AndAlso
+ MessageBox.Show("たくさんファボしてリツイートするがよいな?", "Fav&Retweet", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question) <> DialogResult.Yes Then
+ Exit Sub
+ End If
+
+ FavoriteChange(True, False)
+ doReTweetOfficial(False, False)
End Sub
Private Sub FavoriteRetweetUnofficialMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FavoriteRetweetUnofficialMenuItem.Click, FavoriteRetweetUnofficialContextMenu.Click
doReTweetUnofficial()
End Sub
- Private Sub FavoriteChange(ByVal FavAdd As Boolean)
+ Private Sub FavoriteChange(ByVal FavAdd As Boolean, Optional ByVal multiFavoriteChangeDialogEnable As Boolean = True)
'TrueでFavAdd,FalseでFavRemove
If _statuses.Tabs(_curTab.Text).TabType = TabUsageType.DirectMessage OrElse _curList.SelectedIndices.Count = 0 Then Exit Sub
If _curList.SelectedIndices.Count > 250 AndAlso FavAdd Then
MessageBox.Show(My.Resources.FavoriteLimitCountText)
Exit Sub
- ElseIf _curList.SelectedIndices.Count > 1 Then
+ ElseIf multiFavoriteChangeDialogEnable AndAlso _curList.SelectedIndices.Count > 1 Then
If FavAdd Then
If MessageBox.Show(My.Resources.FavAddToolStripMenuItem_ClickText1, My.Resources.FavAddToolStripMenuItem_ClickText2, _
MessageBoxButtons.OKCancel, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Cancel Then
doReTweetUnofficial()
End Sub
- Private Sub doReTweetOfficial(ByVal isConfirm As Boolean)
+ Private Sub doReTweetOfficial(ByVal isConfirm As Boolean, Optional ByVal multiReTweetDialogEnable As Boolean = True)
'公式RT
If _curPost IsNot Nothing AndAlso Not _curPost.IsDm AndAlso Not _curPost.IsMe Then
If _curPost.IsProtect Then
If _curList.SelectedIndices.Count > 60 Then
MessageBox.Show(My.Resources.RetweetLimitText)
Exit Sub
- ElseIf _curList.SelectedIndices.Count > 1 Then
+ ElseIf multiReTweetDialogEnable AndAlso _curList.SelectedIndices.Count > 1 Then
Select Case MessageBox.Show(My.Resources.RetweetQuestion2, "Retweet", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question)
Case Windows.Forms.DialogResult.Cancel, Windows.Forms.DialogResult.No
Exit Sub