From 1dd01798df53f12389a9d2ae195a4ac864c24993 Mon Sep 17 00:00:00 2001 From: f_swallow Date: Wed, 12 Jan 2011 10:59:46 +0000 Subject: [PATCH] =?utf8?q?List=E3=81=AE=E5=8F=96=E5=BE=97=E6=95=B0?= =?utf8?q?=E3=81=8C0=E3=81=AE=E5=A0=B4=E5=90=88=E3=81=AE=E3=81=BF=E5=89=8D?= =?utf8?q?=E3=83=87=E3=83=BC=E3=82=BF=E5=8F=96=E5=BE=97=E6=95=B0=E3=81=A8?= =?utf8?q?=E5=88=9D=E5=9B=9E=E5=8F=96=E5=BE=97=E6=95=B0=E3=82=92=E9=81=A9?= =?utf8?q?=E7=94=A8=E3=81=99=E3=82=8B=E3=82=88=E3=81=86=E3=81=AB?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit git-svn-id: http://svn.sourceforge.jp/svnroot/tween/trunk@1347 e39ad16e-3079-482e-bb30-4b4d378143b6 --- Tween/Twitter.vb | 17 ++++++++++++----- 1 file changed, 12 insertions(+), 5 deletions(-) diff --git a/Tween/Twitter.vb b/Tween/Twitter.vb index 7a83295d..86020312 100644 --- a/Tween/Twitter.vb +++ b/Tween/Twitter.vb @@ -1564,13 +1564,20 @@ Public Class Twitter Dim res As HttpStatusCode Dim content As String = "" Dim page As Integer = 0 - Dim count As Integer = AppendSettingDialog.Instance.ListCountApi + Dim count As Integer If AppendSettingDialog.Instance.UseAdditionalCount Then - If more AndAlso AppendSettingDialog.Instance.MoreCountApi <> 0 Then - count = AppendSettingDialog.Instance.MoreCountApi - ElseIf startup AndAlso AppendSettingDialog.Instance.FirstCountApi <> 0 Then - count = AppendSettingDialog.Instance.FirstCountApi + count = AppendSettingDialog.Instance.ListCountApi + If count = 0 Then + If more AndAlso AppendSettingDialog.Instance.MoreCountApi <> 0 Then + count = AppendSettingDialog.Instance.MoreCountApi + ElseIf startup AndAlso AppendSettingDialog.Instance.FirstCountApi <> 0 Then + count = AppendSettingDialog.Instance.FirstCountApi + Else + count = AppendSettingDialog.Instance.CountApi + End If End If + Else + count = AppendSettingDialog.Instance.CountApi End If Try If more Then -- 2.11.0