svnno****@sourc*****
svnno****@sourc*****
2011年 1月 2日 (日) 13:35:06 JST
Revision: 1305
http://sourceforge.jp/projects/tween/svn/view?view=rev&revision=1305
Author: anis774
Date: 2011-01-02 13:35:06 +0900 (Sun, 02 Jan 2011)
Log Message:
-----------
・下記エラーに対応
muramura77:使用リビジョン：1304 ユーザタイムラインタブを２つ作成（２ユーザのMentionsクリックするだけ） 作成したユーザタイムラインタブを削除 これでTween.TweenMain.ListTabSelect(TabPage _tab) ここでぬるぽします #twnDev [http://twitter.com/muramura77/status/21410221914066944]
Modified Paths:
--------------
trunk/Tween/ImageListViewItem.vb
trunk/Tween/Tween.vb
-------------- next part --------------
Modified: trunk/Tween/ImageListViewItem.vb
===================================================================
--- trunk/Tween/ImageListViewItem.vb 2011-01-02 00:00:13 UTC (rev 1304)
+++ trunk/Tween/ImageListViewItem.vb 2011-01-02 04:35:06 UTC (rev 1305)
@@ -13,9 +13,9 @@
Dim dummy As Image = imageDictionary.Item(imageKey, Sub(getImg)
If getImg Is Nothing Then Exit Sub
Me.img = getImg
- If Me.ListView IsNot Nothing Then Me.ListView.Invoke(Sub()
- If Me.Index < Me.ListView.VirtualListSize Then Me.ListView.RedrawItems(Me.Index, Me.Index, False)
- End Sub)
+ If Me.ListView IsNot Nothing AndAlso Me.ListView.Created Then Me.ListView.Invoke(Sub()
+ If Me.Index < Me.ListView.VirtualListSize Then Me.ListView.RedrawItems(Me.Index, Me.Index, False)
+ End Sub)
End Sub)
End Sub
Modified: trunk/Tween/Tween.vb
===================================================================
--- trunk/Tween/Tween.vb 2011-01-02 00:00:13 UTC (rev 1304)
+++ trunk/Tween/Tween.vb 2011-01-02 04:35:06 UTC (rev 1305)
@@ -3651,7 +3651,7 @@
_tabPage.SuspendLayout()
If Me.ListTab.SelectedTab Is Me.ListTab.TabPages(idx) Then
- Me.ListTab.SelectedTab = If(Me._beforeSelectedTab, Me.ListTab.TabPages(0))
+ Me.ListTab.SelectTab(If(Me._beforeSelectedTab IsNot Nothing AndAlso Me.ListTab.TabPages.Contains(Me._beforeSelectedTab), Me._beforeSelectedTab, Me.ListTab.TabPages(0)))
End If
Me.ListTab.Controls.Remove(_tabPage)