Changeset 21296

Timestamp:

10/14/08 09:31:20 (3 months ago)

Author:

kiri_feather

Message:

アイコンなしの時、アイコンを取得しないよう変更

Location:

lang/vb2005/Tween/Tween

Files:

• Tween.vb (modified) (2 diffs)
• Twitter.vb (modified) (3 diffs)

lang/vb2005/Tween/Tween/Tween.vb

@@ -379 +379 @@
         clsTw.NextPages = SettingDialog.NextPagesInt    '閾値オーバー時の読み込みページ数（未使用）
         _iconCol = False
-        Select Case SettingDialog.IconSz    'リストのアイコンサイズ（未使用）
+        Select Case SettingDialog.IconSz
             Case IconSizes.IconNone
                 _iconSz = 0
@@ -392 +392 @@
                 _iconCol = True
         End Select
+        If _iconSz = 0 Then
+            clsTw.GetIcon = False
+        Else
+            clsTw.GetIcon = True
+        End If
         clsTwPost.UseAPI = SettingDialog.UseAPI
         clsTw.HubServer = SettingDialog.HubServer

lang/vb2005/Tween/Tween/Twitter.vb

@@ -23 +23 @@
 
     Private _hubServer As String
+
+    Private _getIcon As Boolean
 
     Private Const _baseUrlStr As String = "twitter.com"
@@ -1031 +1033 @@
     Private Sub GetIconImage(ByVal pathUrl As String, ByVal imgKeys As Collections.Specialized.StringCollection, ByVal imgs As ImageList)
         If _endingFlag Then Exit Sub
+        If _getIcon = False Then Exit Sub
 
         'Dim pathUrlSmall As String = pathUrl.Replace("_normal.", "_mini.")
@@ -1535 +1538 @@
 
     End Sub
+
+    Public WriteOnly Property GetIcon() As Boolean
+        Set(ByVal value As Boolean)
+            _getIcon = value
+        End Set
+    End Property
 End Class