svnno****@sourc*****
svnno****@sourc*****
2011年 1月 20日 (木) 15:22:16 JST
Revision: 1385 http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1385 Author: syo68k Date: 2011-01-20 15:22:16 +0900 (Thu, 20 Jan 2011) Log Message: ----------- UserTimelineの読み込み完了を待っていなかったのを修正 Modified Paths: -------------- trunk/Tween/Tween.vb -------------- next part -------------- Modified: trunk/Tween/Tween.vb =================================================================== --- trunk/Tween/Tween.vb 2011-01-20 06:10:19 UTC (rev 1384) +++ trunk/Tween/Tween.vb 2011-01-20 06:22:16 UTC (rev 1385) @@ -8251,7 +8251,7 @@ GetTimeline(WORKERTYPE.List, 1, 0, "") 'tabname="":全タブ Dim i As Integer = 0 Dim j As Integer = 0 - Do While (_waitTimeline OrElse _waitReply OrElse _waitDm OrElse _waitFav OrElse _waitPubSearch OrElse _waitLists) AndAlso Not _endingFlag + Do While (IsInitialRead()) AndAlso Not _endingFlag System.Threading.Thread.Sleep(100) My.Application.DoEvents() i += 1 @@ -8292,6 +8292,10 @@ TimerTimeline.Enabled = True End Sub + Private Function IsInitialRead() As Boolean + Return _waitTimeline OrElse _waitReply OrElse _waitDm OrElse _waitFav OrElse _waitPubSearch OrElse _waitUserTimeline OrElse _waitLists + End Function + Private Sub doGetFollowersMenu() GetTimeline(WORKERTYPE.Follower, 1, 0, "") DispSelectedPost(True)