Changeset 22195

Show
Ignore:
Timestamp:
10/27/08 06:58:15 (5 years ago)
Author:
kiri_feather
Message:

取得間隔自動調整をMAX設定時間、20件-5秒、16件+1秒へ。
followers取得を起動時取得するオプション、手動取得するメニュー追加

Location:
lang/vb2005/Tween/Tween
Files:
6 modified

Legend:

Unmodified
Added
Removed

  • lang/vb2005/Tween/Tween/Setting.Designer.vb

    r21598 r22195  
    136136        Me.TabControl1 = New System.Windows.Forms.TabControl 
    137137        Me.TabPage1 = New System.Windows.Forms.TabPage 
     138        Me.Label53 = New System.Windows.Forms.Label 
     139        Me.CheckStartupKey = New System.Windows.Forms.CheckBox 
     140        Me.Label51 = New System.Windows.Forms.Label 
     141        Me.CheckStartupVersion = New System.Windows.Forms.CheckBox 
    138142        Me.CheckPeriodAdjust = New System.Windows.Forms.CheckBox 
    139143        Me.MaxPost = New System.Windows.Forms.TextBox 
    … …  
    159163        Me.RadioProxyIE = New System.Windows.Forms.RadioButton 
    160164        Me.RadioProxyNone = New System.Windows.Forms.RadioButton 
    161         Me.Label51 = New System.Windows.Forms.Label 
    162         Me.CheckStartupVersion = New System.Windows.Forms.CheckBox 
    163         Me.Label53 = New System.Windows.Forms.Label 
    164         Me.CheckStartupKey = New System.Windows.Forms.CheckBox 
     165        Me.Label54 = New System.Windows.Forms.Label 
     166        Me.CheckStartupFollowers = New System.Windows.Forms.CheckBox 
    165167        Me.GroupBox1.SuspendLayout() 
    166168        Me.TabControl1.SuspendLayout() 
    … …  
    12451247        'TabPage1 
    12461248        ' 
     1249        Me.TabPage1.Controls.Add(Me.Label54) 
     1250        Me.TabPage1.Controls.Add(Me.CheckStartupFollowers) 
    12471251        Me.TabPage1.Controls.Add(Me.Label53) 
    12481252        Me.TabPage1.Controls.Add(Me.CheckStartupKey) 
    … …  
    12851289        Me.TabPage1.UseVisualStyleBackColor = True 
    12861290        ' 
     1291        'Label53 
     1292        ' 
     1293        Me.Label53.AutoSize = True 
     1294        Me.Label53.Location = New System.Drawing.Point(14, 341) 
     1295        Me.Label53.Name = "Label53" 
     1296        Me.Label53.Size = New System.Drawing.Size(109, 12) 
     1297        Me.Label53.TabIndex = 30 
     1298        Me.Label53.Text = "起動時キー情報更新" 
     1299        ' 
     1300        'CheckStartupKey 
     1301        ' 
     1302        Me.CheckStartupKey.AutoSize = True 
     1303        Me.CheckStartupKey.Location = New System.Drawing.Point(183, 340) 
     1304        Me.CheckStartupKey.Name = "CheckStartupKey" 
     1305        Me.CheckStartupKey.Size = New System.Drawing.Size(67, 16) 
     1306        Me.CheckStartupKey.TabIndex = 31 
     1307        Me.CheckStartupKey.Text = "更新する" 
     1308        Me.CheckStartupKey.UseVisualStyleBackColor = True 
     1309        ' 
     1310        'Label51 
     1311        ' 
     1312        Me.Label51.AutoSize = True 
     1313        Me.Label51.Location = New System.Drawing.Point(14, 319) 
     1314        Me.Label51.Name = "Label51" 
     1315        Me.Label51.Size = New System.Drawing.Size(117, 12) 
     1316        Me.Label51.TabIndex = 28 
     1317        Me.Label51.Text = "起動時バージョンチェック" 
     1318        ' 
     1319        'CheckStartupVersion 
     1320        ' 
     1321        Me.CheckStartupVersion.AutoSize = True 
     1322        Me.CheckStartupVersion.Location = New System.Drawing.Point(183, 318) 
     1323        Me.CheckStartupVersion.Name = "CheckStartupVersion" 
     1324        Me.CheckStartupVersion.Size = New System.Drawing.Size(74, 16) 
     1325        Me.CheckStartupVersion.TabIndex = 29 
     1326        Me.CheckStartupVersion.Text = "チェックする" 
     1327        Me.CheckStartupVersion.UseVisualStyleBackColor = True 
     1328        ' 
    12871329        'CheckPeriodAdjust 
    12881330        ' 
    … …  
    15561598        Me.RadioProxyNone.UseVisualStyleBackColor = True 
    15571599        ' 
    1558         'Label51 
    1559         ' 
    1560         Me.Label51.AutoSize = True 
    1561         Me.Label51.Location = New System.Drawing.Point(14, 319) 
    1562         Me.Label51.Name = "Label51" 
    1563         Me.Label51.Size = New System.Drawing.Size(117, 12) 
    1564         Me.Label51.TabIndex = 28 
    1565         Me.Label51.Text = "起動時バージョンチェック" 
    1566         ' 
    1567         'CheckStartupVersion 
    1568         ' 
    1569         Me.CheckStartupVersion.AutoSize = True 
    1570         Me.CheckStartupVersion.Location = New System.Drawing.Point(183, 318) 
    1571         Me.CheckStartupVersion.Name = "CheckStartupVersion" 
    1572         Me.CheckStartupVersion.Size = New System.Drawing.Size(74, 16) 
    1573         Me.CheckStartupVersion.TabIndex = 29 
    1574         Me.CheckStartupVersion.Text = "チェックする" 
    1575         Me.CheckStartupVersion.UseVisualStyleBackColor = True 
    1576         ' 
    1577         'Label53 
    1578         ' 
    1579         Me.Label53.AutoSize = True 
    1580         Me.Label53.Location = New System.Drawing.Point(14, 341) 
    1581         Me.Label53.Name = "Label53" 
    1582         Me.Label53.Size = New System.Drawing.Size(109, 12) 
    1583         Me.Label53.TabIndex = 30 
    1584         Me.Label53.Text = "起動時キー情報更新" 
    1585         ' 
    1586         'CheckStartupKey 
    1587         ' 
    1588         Me.CheckStartupKey.AutoSize = True 
    1589         Me.CheckStartupKey.Location = New System.Drawing.Point(183, 340) 
    1590         Me.CheckStartupKey.Name = "CheckStartupKey" 
    1591         Me.CheckStartupKey.Size = New System.Drawing.Size(67, 16) 
    1592         Me.CheckStartupKey.TabIndex = 31 
    1593         Me.CheckStartupKey.Text = "更新する" 
    1594         Me.CheckStartupKey.UseVisualStyleBackColor = True 
     1600        'Label54 
     1601        ' 
     1602        Me.Label54.AutoSize = True 
     1603        Me.Label54.Location = New System.Drawing.Point(14, 363) 
     1604        Me.Label54.Name = "Label54" 
     1605        Me.Label54.Size = New System.Drawing.Size(163, 12) 
     1606        Me.Label54.TabIndex = 32 
     1607        Me.Label54.Text = "起動時片思いユーザーリスト取得" 
     1608        ' 
     1609        'CheckStartupFollowers 
     1610        ' 
     1611        Me.CheckStartupFollowers.AutoSize = True 
     1612        Me.CheckStartupFollowers.Location = New System.Drawing.Point(183, 362) 
     1613        Me.CheckStartupFollowers.Name = "CheckStartupFollowers" 
     1614        Me.CheckStartupFollowers.Size = New System.Drawing.Size(67, 16) 
     1615        Me.CheckStartupFollowers.TabIndex = 33 
     1616        Me.CheckStartupFollowers.Text = "取得する" 
     1617        Me.CheckStartupFollowers.UseVisualStyleBackColor = True 
    15951618        ' 
    15961619        'Setting 
    … …  
    17671790    Friend WithEvents Label51 As System.Windows.Forms.Label 
    17681791    Friend WithEvents CheckStartupVersion As System.Windows.Forms.CheckBox 
     1792    Friend WithEvents Label54 As System.Windows.Forms.Label 
     1793    Friend WithEvents CheckStartupFollowers As System.Windows.Forms.CheckBox 
    17691794End Class 

  • lang/vb2005/Tween/Tween/Setting.vb

    r21598 r22195  
    5252    Private _MyStartupVersion As Boolean 
    5353    Private _MyStartupKey As Boolean 
     54    Private _MyStartupFollowers As Boolean 
    5455 
    5556    'Public Enum LogUnitEnum 
    … …  
    198199            _MyStartupVersion = CheckStartupVersion.Checked 
    199200            _MyStartupKey = CheckStartupKey.Checked 
     201            _MyStartupFollowers = CheckStartupFollowers.Checked 
    200202 
    201203            'TweenMain.SetMainWindowTitle() 
    … …  
    328330        CheckStartupVersion.Checked = _MyStartupVersion 
    329331        CheckStartupKey.Checked = _MyStartupKey 
     332        CheckStartupFollowers.Checked = _MyStartupFollowers 
    330333 
    331334        'TweenMain.SetMainWindowTitle() 
    … …  
    10461049    End Property 
    10471050 
     1051    Public Property StartupFollowers() As Boolean 
     1052        Get 
     1053            Return _MyStartupFollowers 
     1054        End Get 
     1055        Set(ByVal value As Boolean) 
     1056            _MyStartupFollowers = value 
     1057        End Set 
     1058    End Property 
     1059 
    10481060    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
    10491061        Dim filedlg As New OpenFileDialog() 

  • lang/vb2005/Tween/Tween/TwConfig.vb

    r21598 r22195  
    15651565        Set(ByVal value As Boolean) 
    15661566            Me("startupkey") = value 
     1567        End Set 
     1568    End Property 
     1569 
     1570    <ConfigurationProperty("startupfollowers", DefaultValue:=True)> _ 
     1571    Public Property StartupFollowers() As Boolean 
     1572        Get 
     1573            Return CBool(Me("startupfollowers")) 
     1574        End Get 
     1575        Set(ByVal value As Boolean) 
     1576            Me("startupfollowers") = value 
    15671577        End Set 
    15681578    End Property 

  • lang/vb2005/Tween/Tween/Tween.Designer.vb

    r21368 r22195  
    121121        Me.PostWorker = New System.ComponentModel.BackgroundWorker 
    122122        Me.TimerPostCounter = New System.Windows.Forms.Timer(Me.components) 
     123        Me.UpdateFollowersMenuItem1 = New System.Windows.Forms.ToolStripMenuItem 
     124        Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator 
    123125        CType(Me.UserPicture, System.ComponentModel.ISupportInitialize).BeginInit() 
    124126        Me.SplitContainer1.Panel1.SuspendLayout() 
    … …  
    223225        Me.ContextMenuTabProperty.Name = "ContextMenuStrip3" 
    224226        Me.ContextMenuTabProperty.OwnerItem = Me.MenuItemTab 
    225         Me.ContextMenuTabProperty.Size = New System.Drawing.Size(209, 190) 
     227        Me.ContextMenuTabProperty.Size = New System.Drawing.Size(182, 184) 
    226228        ' 
    227229        'AddTabMenuItem 
    228230        ' 
    229231        Me.AddTabMenuItem.Name = "AddTabMenuItem" 
    230         Me.AddTabMenuItem.Size = New System.Drawing.Size(208, 22) 
     232        Me.AddTabMenuItem.Size = New System.Drawing.Size(181, 22) 
    231233        Me.AddTabMenuItem.Text = "タブ作成(&N)" 
    232234        ' 
    … …  
    234236        ' 
    235237        Me.ToolStripSeparator20.Name = "ToolStripSeparator20" 
    236         Me.ToolStripSeparator20.Size = New System.Drawing.Size(205, 6) 
     238        Me.ToolStripSeparator20.Size = New System.Drawing.Size(178, 6) 
    237239        ' 
    238240        'UreadManageMenuItem 
    … …  
    240242        Me.UreadManageMenuItem.CheckOnClick = True 
    241243        Me.UreadManageMenuItem.Name = "UreadManageMenuItem" 
    242         Me.UreadManageMenuItem.Size = New System.Drawing.Size(208, 22) 
     244        Me.UreadManageMenuItem.Size = New System.Drawing.Size(181, 22) 
    243245        Me.UreadManageMenuItem.Text = "未読管理(&U)" 
    244246        ' 
    … …  
    247249        Me.NotifyDispMenuItem.CheckOnClick = True 
    248250        Me.NotifyDispMenuItem.Name = "NotifyDispMenuItem" 
    249         Me.NotifyDispMenuItem.Size = New System.Drawing.Size(208, 22) 
     251        Me.NotifyDispMenuItem.Size = New System.Drawing.Size(181, 22) 
    250252        Me.NotifyDispMenuItem.Text = "新着通知表示(&Q)" 
    251253        ' 
    … …  
    255257        Me.SoundFileComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList 
    256258        Me.SoundFileComboBox.Name = "SoundFileComboBox" 
    257         Me.SoundFileComboBox.Size = New System.Drawing.Size(121, 26) 
     259        Me.SoundFileComboBox.Size = New System.Drawing.Size(121, 20) 
    258260        Me.SoundFileComboBox.ToolTipText = "再生するwavファイルを指定してください" 
    259261        ' 
    … …  
    261263        ' 
    262264        Me.ToolStripSeparator18.Name = "ToolStripSeparator18" 
    263         Me.ToolStripSeparator18.Size = New System.Drawing.Size(205, 6) 
     265        Me.ToolStripSeparator18.Size = New System.Drawing.Size(178, 6) 
    264266        ' 
    265267        'FilterEditMenuItem 
    266268        ' 
    267269        Me.FilterEditMenuItem.Name = "FilterEditMenuItem" 
    268         Me.FilterEditMenuItem.Size = New System.Drawing.Size(208, 22) 
     270        Me.FilterEditMenuItem.Size = New System.Drawing.Size(181, 22) 
    269271        Me.FilterEditMenuItem.Text = "振り分けルール編集(&F)" 
    270272        ' 
    … …  
    272274        ' 
    273275        Me.ToolStripSeparator19.Name = "ToolStripSeparator19" 
    274         Me.ToolStripSeparator19.Size = New System.Drawing.Size(205, 6) 
     276        Me.ToolStripSeparator19.Size = New System.Drawing.Size(178, 6) 
    275277        ' 
    276278        'ClearTabMenuItem 
    277279        ' 
    278280        Me.ClearTabMenuItem.Name = "ClearTabMenuItem" 
    279         Me.ClearTabMenuItem.Size = New System.Drawing.Size(208, 22) 
     281        Me.ClearTabMenuItem.Size = New System.Drawing.Size(181, 22) 
    280282        Me.ClearTabMenuItem.Text = "このタブの発言をクリア" 
    281283        ' 
    … …  
    283285        ' 
    284286        Me.ToolStripSeparator11.Name = "ToolStripSeparator11" 
    285         Me.ToolStripSeparator11.Size = New System.Drawing.Size(205, 6) 
     287        Me.ToolStripSeparator11.Size = New System.Drawing.Size(178, 6) 
    286288        ' 
    287289        'DeleteTabMenuItem 
    288290        ' 
    289291        Me.DeleteTabMenuItem.Name = "DeleteTabMenuItem" 
    290         Me.DeleteTabMenuItem.Size = New System.Drawing.Size(208, 22) 
     292        Me.DeleteTabMenuItem.Size = New System.Drawing.Size(181, 22) 
    291293        Me.DeleteTabMenuItem.Text = "タブ削除(&D)" 
    292294        ' 
    … …  
    295297        Me.MenuItemTab.DropDown = Me.ContextMenuTabProperty 
    296298        Me.MenuItemTab.Name = "MenuItemTab" 
    297         Me.MenuItemTab.Size = New System.Drawing.Size(62, 22) 
     299        Me.MenuItemTab.Size = New System.Drawing.Size(49, 20) 
    298300        Me.MenuItemTab.Text = "タブ(&T)" 
    299301        ' 
    … …  
    364366        'ContextMenuStrip2 
    365367        ' 
    366         Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ReplyStripMenuItem, Me.ReplyAllStripMenuItem, Me.DMStripMenuItem, Me.ToolStripSeparator2, Me.FavAddToolStripMenuItem, Me.FavRemoveToolStripMenuItem, Me.ToolStripSeparator1, Me.MoveToHomeToolStripMenuItem, Me.MoveToFavToolStripMenuItem, Me.StatusOpenMenuItem, Me.FavorareMenuItem, Me.OpenURLMenuItem, Me.ToolStripSeparator3, Me.TabMenuItem, Me.IDRuleMenuItem, Me.ToolStripSeparator4, Me.ReadedStripMenuItem, Me.UnreadStripMenuItem, Me.JumpUnreadMenuItem, Me.ToolStripSeparator10, Me.SelectAllMenuItem, Me.ToolStripSeparator5, Me.DeleteStripMenuItem, Me.ToolStripSeparator8, Me.RefreshStripMenuItem}) 
     368        Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ReplyStripMenuItem, Me.ReplyAllStripMenuItem, Me.DMStripMenuItem, Me.ToolStripSeparator2, Me.FavAddToolStripMenuItem, Me.FavRemoveToolStripMenuItem, Me.ToolStripSeparator1, Me.MoveToHomeToolStripMenuItem, Me.MoveToFavToolStripMenuItem, Me.StatusOpenMenuItem, Me.FavorareMenuItem, Me.OpenURLMenuItem, Me.ToolStripSeparator3, Me.TabMenuItem, Me.IDRuleMenuItem, Me.ToolStripSeparator4, Me.ReadedStripMenuItem, Me.UnreadStripMenuItem, Me.JumpUnreadMenuItem, Me.ToolStripSeparator10, Me.SelectAllMenuItem, Me.ToolStripSeparator5, Me.UpdateFollowersMenuItem1, Me.ToolStripSeparator13, Me.DeleteStripMenuItem, Me.ToolStripSeparator8, Me.RefreshStripMenuItem}) 
    367369        Me.ContextMenuStrip2.Name = "ContextMenuStrip2" 
    368370        Me.ContextMenuStrip2.OwnerItem = Me.MenuItemOperate 
    369371        Me.ContextMenuStrip2.ShowImageMargin = False 
    370         Me.ContextMenuStrip2.Size = New System.Drawing.Size(251, 442) 
     372        Me.ContextMenuStrip2.Size = New System.Drawing.Size(213, 492) 
    371373        ' 
    372374        'ReplyStripMenuItem 
    … …  
    374376        Me.ReplyStripMenuItem.Name = "ReplyStripMenuItem" 
    375377        Me.ReplyStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.R), System.Windows.Forms.Keys) 
    376         Me.ReplyStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     378        Me.ReplyStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    377379        Me.ReplyStripMenuItem.Text = "@返信(&R)" 
    378380        ' 
    … …  
    382384        Me.ReplyAllStripMenuItem.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _ 
    383385                    Or System.Windows.Forms.Keys.R), System.Windows.Forms.Keys) 
    384         Me.ReplyAllStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     386        Me.ReplyAllStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    385387        Me.ReplyAllStripMenuItem.Text = "@返信ALL" 
    386388        ' 
    … …  
    389391        Me.DMStripMenuItem.Name = "DMStripMenuItem" 
    390392        Me.DMStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.M), System.Windows.Forms.Keys) 
    391         Me.DMStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     393        Me.DMStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    392394        Me.DMStripMenuItem.Text = "DM送信(&M)" 
    393395        ' 
    … …  
    395397        ' 
    396398        Me.ToolStripSeparator2.Name = "ToolStripSeparator2" 
    397         Me.ToolStripSeparator2.Size = New System.Drawing.Size(247, 6) 
     399        Me.ToolStripSeparator2.Size = New System.Drawing.Size(209, 6) 
    398400        ' 
    399401        'FavAddToolStripMenuItem 
    … …  
    401403        Me.FavAddToolStripMenuItem.Name = "FavAddToolStripMenuItem" 
    402404        Me.FavAddToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys) 
    403         Me.FavAddToolStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     405        Me.FavAddToolStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    404406        Me.FavAddToolStripMenuItem.Text = "Fav追加(&F)" 
    405407        ' 
    … …  
    409411        Me.FavRemoveToolStripMenuItem.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _ 
    410412                    Or System.Windows.Forms.Keys.S), System.Windows.Forms.Keys) 
    411         Me.FavRemoveToolStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     413        Me.FavRemoveToolStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    412414        Me.FavRemoveToolStripMenuItem.Text = "Fav削除" 
    413415        ' 
    … …  
    415417        ' 
    416418        Me.ToolStripSeparator1.Name = "ToolStripSeparator1" 
    417         Me.ToolStripSeparator1.Size = New System.Drawing.Size(247, 6) 
     419        Me.ToolStripSeparator1.Size = New System.Drawing.Size(209, 6) 
    418420        ' 
    419421        'MoveToHomeToolStripMenuItem 
    … …  
    421423        Me.MoveToHomeToolStripMenuItem.Name = "MoveToHomeToolStripMenuItem" 
    422424        Me.MoveToHomeToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.H), System.Windows.Forms.Keys) 
    423         Me.MoveToHomeToolStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     425        Me.MoveToHomeToolStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    424426        Me.MoveToHomeToolStripMenuItem.Text = "ホームを開く(&H)" 
    425427        ' 
    … …  
    428430        Me.MoveToFavToolStripMenuItem.Name = "MoveToFavToolStripMenuItem" 
    429431        Me.MoveToFavToolStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.G), System.Windows.Forms.Keys) 
    430         Me.MoveToFavToolStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     432        Me.MoveToFavToolStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    431433        Me.MoveToFavToolStripMenuItem.Text = "Favを開く(&G)" 
    432434        ' 
    … …  
    435437        Me.StatusOpenMenuItem.Name = "StatusOpenMenuItem" 
    436438        Me.StatusOpenMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) 
    437         Me.StatusOpenMenuItem.Size = New System.Drawing.Size(250, 22) 
     439        Me.StatusOpenMenuItem.Size = New System.Drawing.Size(212, 22) 
    438440        Me.StatusOpenMenuItem.Text = "ステータスを開く(&O)" 
    439441        ' 
    … …  
    443445        Me.FavorareMenuItem.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _ 
    444446                    Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys) 
    445         Me.FavorareMenuItem.Size = New System.Drawing.Size(250, 22) 
     447        Me.FavorareMenuItem.Size = New System.Drawing.Size(212, 22) 
    446448        Me.FavorareMenuItem.Text = "ふぁぼられを開く(&P)" 
    447449        ' 
    … …  
    450452        Me.OpenURLMenuItem.Name = "OpenURLMenuItem" 
    451453        Me.OpenURLMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.E), System.Windows.Forms.Keys) 
    452         Me.OpenURLMenuItem.Size = New System.Drawing.Size(250, 22) 
     454        Me.OpenURLMenuItem.Size = New System.Drawing.Size(212, 22) 
    453455        Me.OpenURLMenuItem.Text = "発言内URLを開く(&U)" 
    454456        ' 
    … …  
    456458        ' 
    457459        Me.ToolStripSeparator3.Name = "ToolStripSeparator3" 
    458         Me.ToolStripSeparator3.Size = New System.Drawing.Size(247, 6) 
     460        Me.ToolStripSeparator3.Size = New System.Drawing.Size(209, 6) 
    459461        ' 
    460462        'TabMenuItem 
    … …  
    462464        Me.TabMenuItem.Name = "TabMenuItem" 
    463465        Me.TabMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys) 
    464         Me.TabMenuItem.Size = New System.Drawing.Size(250, 22) 
     466        Me.TabMenuItem.Size = New System.Drawing.Size(212, 22) 
    465467        Me.TabMenuItem.Text = "タブ振り分けルール作成(&N)" 
    466468        ' 
    … …  
    468470        ' 
    469471        Me.IDRuleMenuItem.Name = "IDRuleMenuItem" 
    470         Me.IDRuleMenuItem.Size = New System.Drawing.Size(250, 22) 
     472        Me.IDRuleMenuItem.Size = New System.Drawing.Size(212, 22) 
    471473        Me.IDRuleMenuItem.Text = "ID振り分けルール作成" 
    472474        ' 
    … …  
    474476        ' 
    475477        Me.ToolStripSeparator4.Name = "ToolStripSeparator4" 
    476         Me.ToolStripSeparator4.Size = New System.Drawing.Size(247, 6) 
     478        Me.ToolStripSeparator4.Size = New System.Drawing.Size(209, 6) 
    477479        ' 
    478480        'ReadedStripMenuItem 
    … …  
    480482        Me.ReadedStripMenuItem.Name = "ReadedStripMenuItem" 
    481483        Me.ReadedStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.B), System.Windows.Forms.Keys) 
    482         Me.ReadedStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     484        Me.ReadedStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    483485        Me.ReadedStripMenuItem.Text = "既読にする(&B)" 
    484486        ' 
    … …  
    488490        Me.UnreadStripMenuItem.ShortcutKeys = CType(((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.Shift) _ 
    489491                    Or System.Windows.Forms.Keys.B), System.Windows.Forms.Keys) 
    490         Me.UnreadStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     492        Me.UnreadStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    491493        Me.UnreadStripMenuItem.Text = "未読にする" 
    492494        ' 
    … …  
    495497        Me.JumpUnreadMenuItem.Name = "JumpUnreadMenuItem" 
    496498        Me.JumpUnreadMenuItem.ShortcutKeyDisplayString = "" 
    497         Me.JumpUnreadMenuItem.Size = New System.Drawing.Size(250, 22) 
     499        Me.JumpUnreadMenuItem.Size = New System.Drawing.Size(212, 22) 
    498500        Me.JumpUnreadMenuItem.Text = "未読へジャンプ" 
    499501        ' 
    … …  
    501503        ' 
    502504        Me.ToolStripSeparator10.Name = "ToolStripSeparator10" 
    503         Me.ToolStripSeparator10.Size = New System.Drawing.Size(247, 6) 
     505        Me.ToolStripSeparator10.Size = New System.Drawing.Size(209, 6) 
    504506        ' 
    505507        'SelectAllMenuItem 
    506508        ' 
    507509        Me.SelectAllMenuItem.Name = "SelectAllMenuItem" 
    508         Me.SelectAllMenuItem.Size = New System.Drawing.Size(250, 22) 
     510        Me.SelectAllMenuItem.Size = New System.Drawing.Size(212, 22) 
    509511        Me.SelectAllMenuItem.Text = "全て選択(&A)" 
    510512        ' 
    … …  
    512514        ' 
    513515        Me.ToolStripSeparator5.Name = "ToolStripSeparator5" 
    514         Me.ToolStripSeparator5.Size = New System.Drawing.Size(247, 6) 
     516        Me.ToolStripSeparator5.Size = New System.Drawing.Size(209, 6) 
    515517        ' 
    516518        'DeleteStripMenuItem 
    … …  
    518520        Me.DeleteStripMenuItem.Name = "DeleteStripMenuItem" 
    519521        Me.DeleteStripMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.D), System.Windows.Forms.Keys) 
    520         Me.DeleteStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     522        Me.DeleteStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    521523        Me.DeleteStripMenuItem.Text = "削除(&D)" 
    522524        ' 
    … …  
    524526        ' 
    525527        Me.ToolStripSeparator8.Name = "ToolStripSeparator8" 
    526         Me.ToolStripSeparator8.Size = New System.Drawing.Size(247, 6) 
     528        Me.ToolStripSeparator8.Size = New System.Drawing.Size(209, 6) 
    527529        ' 
    528530        'RefreshStripMenuItem 
    … …  
    530532        Me.RefreshStripMenuItem.Name = "RefreshStripMenuItem" 
    531533        Me.RefreshStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F5 
    532         Me.RefreshStripMenuItem.Size = New System.Drawing.Size(250, 22) 
     534        Me.RefreshStripMenuItem.Size = New System.Drawing.Size(212, 22) 
    533535        Me.RefreshStripMenuItem.Text = "更新(&U)" 
    534536        ' 
    … …  
    537539        Me.MenuItemOperate.DropDown = Me.ContextMenuStrip2 
    538540        Me.MenuItemOperate.Name = "MenuItemOperate" 
    539         Me.MenuItemOperate.Size = New System.Drawing.Size(63, 22) 
     541        Me.MenuItemOperate.Size = New System.Drawing.Size(57, 20) 
    540542        Me.MenuItemOperate.Text = "操作(&O)" 
    541543        ' 
    … …  
    553555        Me.ContextMenuStrip1.ShowCheckMargin = True 
    554556        Me.ContextMenuStrip1.ShowImageMargin = False 
    555         Me.ContextMenuStrip1.Size = New System.Drawing.Size(236, 154) 
     557        Me.ContextMenuStrip1.Size = New System.Drawing.Size(205, 154) 
    556558        ' 
    557559        'SettingStripMenuItem 
    558560        ' 
    559561        Me.SettingStripMenuItem.Name = "SettingStripMenuItem" 
    560         Me.SettingStripMenuItem.Size = New System.Drawing.Size(235, 22) 
     562        Me.SettingStripMenuItem.Size = New System.Drawing.Size(204, 22) 
    561563        Me.SettingStripMenuItem.Text = "設定(&O)" 
    562564        ' 
    … …  
    564566        ' 
    565567        Me.ToolStripSeparator9.Name = "ToolStripSeparator9" 
    566         Me.ToolStripSeparator9.Size = New System.Drawing.Size(232, 6) 
     568        Me.ToolStripSeparator9.Size = New System.Drawing.Size(201, 6) 
    567569        ' 
    568570        'SaveLogMenuItem 
    569571        ' 
    570572        Me.SaveLogMenuItem.Name = "SaveLogMenuItem" 
    571         Me.SaveLogMenuItem.Size = New System.Drawing.Size(235, 22) 
     573        Me.SaveLogMenuItem.Size = New System.Drawing.Size(204, 22) 
    572574        Me.SaveLogMenuItem.Text = "ファイル保存(&S)" 
    573575        ' 
    … …  
    575577        ' 
    576578        Me.ToolStripSeparator17.Name = "ToolStripSeparator17" 
    577         Me.ToolStripSeparator17.Size = New System.Drawing.Size(232, 6) 
     579        Me.ToolStripSeparator17.Size = New System.Drawing.Size(201, 6) 
    578580        ' 
    579581        'NewPostPopMenuItem 
    … …  
    581583        Me.NewPostPopMenuItem.CheckOnClick = True 
    582584        Me.NewPostPopMenuItem.Name = "NewPostPopMenuItem" 
    583         Me.NewPostPopMenuItem.Size = New System.Drawing.Size(235, 22) 
     585        Me.NewPostPopMenuItem.Size = New System.Drawing.Size(204, 22) 
    584586        Me.NewPostPopMenuItem.Text = "新着通知(&Q)" 
    585587        ' 
    … …  
    588590        Me.PlaySoundMenuItem.CheckOnClick = True 
    589591        Me.PlaySoundMenuItem.Name = "PlaySoundMenuItem" 
    590         Me.PlaySoundMenuItem.Size = New System.Drawing.Size(235, 22) 
     592        Me.PlaySoundMenuItem.Size = New System.Drawing.Size(204, 22) 
    591593        Me.PlaySoundMenuItem.Text = "サウンド再生" 
    592594        ' 
    … …  
    596598        Me.ListLockMenuItem.Name = "ListLockMenuItem" 
    597599        Me.ListLockMenuItem.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.L), System.Windows.Forms.Keys) 
    598         Me.ListLockMenuItem.Size = New System.Drawing.Size(235, 22) 
     600        Me.ListLockMenuItem.Size = New System.Drawing.Size(204, 22) 
    599601        Me.ListLockMenuItem.Text = "新着時リスト固定(&L)" 
    600602        ' 
    … …  
    602604        ' 
    603605        Me.ToolStripSeparator15.Name = "ToolStripSeparator15" 
    604         Me.ToolStripSeparator15.Size = New System.Drawing.Size(232, 6) 
     606        Me.ToolStripSeparator15.Size = New System.Drawing.Size(201, 6) 
    605607        ' 
    606608        'EndToolStripMenuItem 
    … …  
    609611        Me.EndToolStripMenuItem.Name = "EndToolStripMenuItem" 
    610612        Me.EndToolStripMenuItem.ShowShortcutKeys = False 
    611         Me.EndToolStripMenuItem.Size = New System.Drawing.Size(235, 22) 
     613        Me.EndToolStripMenuItem.Size = New System.Drawing.Size(204, 22) 
    612614        Me.EndToolStripMenuItem.Text = "終了(&X)" 
    613615        ' 
    … …  
    616618        Me.MenuItemFile.DropDown = Me.ContextMenuStrip1 
    617619        Me.MenuItemFile.Name = "MenuItemFile" 
    618         Me.MenuItemFile.Size = New System.Drawing.Size(85, 22) 
     620        Me.MenuItemFile.Size = New System.Drawing.Size(66, 20) 
    619621        Me.MenuItemFile.Text = "ファイル(&F)" 
    620622        ' 
    … …  
    627629        Me.MenuStrip1.Location = New System.Drawing.Point(0, 0) 
    628630        Me.MenuStrip1.Name = "MenuStrip1" 
    629         Me.MenuStrip1.Size = New System.Drawing.Size(468, 26) 
     631        Me.MenuStrip1.Size = New System.Drawing.Size(468, 24) 
    630632        Me.MenuStrip1.TabIndex = 9 
    631633        Me.MenuStrip1.Text = "MenuStrip1" 
    … …  
    635637        Me.MenuItemEdit.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.CopySTOTMenuItem, Me.CopyURLMenuItem, Me.ToolStripSeparator6, Me.MenuItemSubSearch, Me.MenuItemSearchNext, Me.MenuItemSearchPrev}) 
    636638        Me.MenuItemEdit.Name = "MenuItemEdit" 
    637         Me.MenuItemEdit.Size = New System.Drawing.Size(61, 22) 
     639        Me.MenuItemEdit.Size = New System.Drawing.Size(56, 20) 
    638640        Me.MenuItemEdit.Text = "編集(&E)" 
    639641        ' 
    … …  
    641643        ' 
    642644        Me.CopySTOTMenuItem.Name = "CopySTOTMenuItem" 
    643         Me.CopySTOTMenuItem.Size = New System.Drawing.Size(259, 22) 
     645        Me.CopySTOTMenuItem.Size = New System.Drawing.Size(214, 22) 
    644646        Me.CopySTOTMenuItem.Text = "コピー（STOT形式テキスト）(&C)" 
    645647        ' 
    … …  
    647649        ' 
    648650        Me.CopyURLMenuItem.Name = "CopyURLMenuItem" 
    649         Me.CopyURLMenuItem.Size = New System.Drawing.Size(259, 22) 
     651        Me.CopyURLMenuItem.Size = New System.Drawing.Size(214, 22) 
    650652        Me.CopyURLMenuItem.Text = "コピー（ステータスURL）(&S)" 
    651653        ' 
    … …  
    653655        ' 
    654656        Me.ToolStripSeparator6.Name = "ToolStripSeparator6" 
    655         Me.ToolStripSeparator6.Size = New System.Drawing.Size(256, 6) 
     657        Me.ToolStripSeparator6.Size = New System.Drawing.Size(211, 6) 
    656658        ' 
    657659        'MenuItemSubSearch 
    … …  
    659661        Me.MenuItemSubSearch.Name = "MenuItemSubSearch" 
    660662        Me.MenuItemSubSearch.ShortcutKeys = CType((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F), System.Windows.Forms.Keys) 
    661         Me.MenuItemSubSearch.Size = New System.Drawing.Size(259, 22) 
     663        Me.MenuItemSubSearch.Size = New System.Drawing.Size(214, 22) 
    662664        Me.MenuItemSubSearch.Text = "検索(&F)" 
    663665        ' 
    … …  
    666668        Me.MenuItemSearchNext.Name = "MenuItemSearchNext" 
    667669        Me.MenuItemSearchNext.ShortcutKeys = System.Windows.Forms.Keys.F3 
    668         Me.MenuItemSearchNext.Size = New System.Drawing.Size(259, 22) 
     670        Me.MenuItemSearchNext.Size = New System.Drawing.Size(214, 22) 
    669671        Me.MenuItemSearchNext.Text = "次を検索(&X)" 
    670672        ' 
    … …  
    673675        Me.MenuItemSearchPrev.Name = "MenuItemSearchPrev" 
    674676        Me.MenuItemSearchPrev.ShortcutKeys = CType((System.Windows.Forms.Keys.Shift Or System.Windows.Forms.Keys.F3), System.Windows.Forms.Keys) 
    675         Me.MenuItemSearchPrev.Size = New System.Drawing.Size(259, 22) 
     677        Me.MenuItemSearchPrev.Size = New System.Drawing.Size(214, 22) 
    676678        Me.MenuItemSearchPrev.Text = "前を検索(&P)" 
    677679        ' 
    … …  
    680682        Me.MenuItemCommand.Enabled = False 
    681683        Me.MenuItemCommand.Name = "MenuItemCommand" 
    682         Me.MenuItemCommand.Size = New System.Drawing.Size(86, 22) 
     684        Me.MenuItemCommand.Size = New System.Drawing.Size(68, 20) 
    683685        Me.MenuItemCommand.Text = "コマンド(&C)" 
    684686        ' 
    … …  
    687689        Me.MenuItemHelp.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MatomeMenuItem, Me.ToolStripSeparator12, Me.OfficialMenuItem, Me.DLPageMenuItem, Me.ToolStripSeparator16, Me.VerUpMenuItem, Me.WedataMenuItem, Me.ToolStripSeparator14, Me.InfoTwitterMenuItem, Me.ToolStripSeparator7, Me.AboutMenuItem}) 
    688690        Me.MenuItemHelp.Name = "MenuItemHelp" 
    689         Me.MenuItemHelp.Size = New System.Drawing.Size(75, 22) 
     691        Me.MenuItemHelp.Size = New System.Drawing.Size(62, 20) 
    690692        Me.MenuItemHelp.Text = "ヘルプ(&H)" 
    691693        ' 
    … …  
    693695        ' 
    694696        Me.MatomeMenuItem.Name = "MatomeMenuItem" 
    695         Me.MatomeMenuItem.Size = New System.Drawing.Size(217, 22) 
     697        Me.MatomeMenuItem.Size = New System.Drawing.Size(185, 22) 
    696698        Me.MatomeMenuItem.Text = "Tweenまとめサイト(&H)" 
    697699        ' 
    … …  
    699701        ' 
    700702        Me.ToolStripSeparator12.Name = "ToolStripSeparator12" 
    701         Me.ToolStripSeparator12.Size = New System.Drawing.Size(214, 6) 
     703        Me.ToolStripSeparator12.Size = New System.Drawing.Size(182, 6) 
    702704        ' 
    703705        'OfficialMenuItem 
    704706        ' 
    705707        Me.OfficialMenuItem.Name = "OfficialMenuItem" 
    706         Me.OfficialMenuItem.Size = New System.Drawing.Size(217, 22) 
     708        Me.OfficialMenuItem.Size = New System.Drawing.Size(185, 22) 
    707709        Me.OfficialMenuItem.Text = "公式ページ(&O)" 
    708710        ' 
    … …  
    710712        ' 
    711713        Me.DLPageMenuItem.Name = "DLPageMenuItem" 
    712         Me.DLPageMenuItem.Size = New System.Drawing.Size(217, 22) 
     714        Me.DLPageMenuItem.Size = New System.Drawing.Size(185, 22) 
    713715        Me.DLPageMenuItem.Text = "配布ページ(&D)" 
    714716        ' 
    … …  
    716718        ' 
    717719        Me.ToolStripSeparator16.Name = "ToolStripSeparator16" 
    718         Me.ToolStripSeparator16.Size = New System.Drawing.Size(214, 6) 
     720        Me.ToolStripSeparator16.Size = New System.Drawing.Size(182, 6) 
    719721        ' 
    720722        'VerUpMenuItem 
    721723        ' 
    722724        Me.VerUpMenuItem.Name = "VerUpMenuItem" 
    723         Me.VerUpMenuItem.Size = New System.Drawing.Size(217, 22) 
     725        Me.VerUpMenuItem.Size = New System.Drawing.Size(185, 22) 
    724726        Me.VerUpMenuItem.Text = "最新版の取得(&G)" 
    725727        ' 
    … …  
    727729        ' 
    728730        Me.WedataMenuItem.Name = "WedataMenuItem" 
    729         Me.WedataMenuItem.Size = New System.Drawing.Size(217, 22) 
     731        Me.WedataMenuItem.Size = New System.Drawing.Size(185, 22) 
    730732        Me.WedataMenuItem.Text = "解析キー情報更新" 
    731733        ' 
    … …  
    733735        ' 
    734736        Me.ToolStripSeparator14.Name = "ToolStripSeparator14" 
    735         Me.ToolStripSeparator14.Size = New System.Drawing.Size(214, 6) 
     737        Me.ToolStripSeparator14.Size = New System.Drawing.Size(182, 6) 
    736738        ' 
    737739        'InfoTwitterMenuItem 
    738740        ' 
    739741        Me.InfoTwitterMenuItem.Name = "InfoTwitterMenuItem" 
    740         Me.InfoTwitterMenuItem.Size = New System.Drawing.Size(217, 22) 
     742        Me.InfoTwitterMenuItem.Size = New System.Drawing.Size(185, 22) 
    741743        Me.InfoTwitterMenuItem.Text = "Twitterからのお知らせ(&I)" 
    742744        ' 
    … …  
    744746        ' 
    745747        Me.ToolStripSeparator7.Name = "ToolStripSeparator7" 
    746         Me.ToolStripSeparator7.Size = New System.Drawing.Size(214, 6) 
     748        Me.ToolStripSeparator7.Size = New System.Drawing.Size(182, 6) 
    747749        ' 
    748750        'AboutMenuItem 
    749751        ' 
    750752        Me.AboutMenuItem.Name = "AboutMenuItem" 
    751         Me.AboutMenuItem.Size = New System.Drawing.Size(217, 22) 
     753        Me.AboutMenuItem.Size = New System.Drawing.Size(185, 22) 
    752754        Me.AboutMenuItem.Text = "Tweenについて(&A)" 
    753755        ' 
    … …  
    755757        ' 
    756758        Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.StatusLabelUrl, Me.StatusLabel}) 
    757         Me.StatusStrip1.Location = New System.Drawing.Point(0, 289) 
     759        Me.StatusStrip1.Location = New System.Drawing.Point(0, 294) 
    758760        Me.StatusStrip1.Name = "StatusStrip1" 
    759         Me.StatusStrip1.Size = New System.Drawing.Size(468, 27) 
     761        Me.StatusStrip1.Size = New System.Drawing.Size(468, 22) 
    760762        Me.StatusStrip1.TabIndex = 10 
    761763        Me.StatusStrip1.Text = "StatusStrip1" 
    … …  
    766768        Me.StatusLabelUrl.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text 
    767769        Me.StatusLabelUrl.Name = "StatusLabelUrl" 
    768         Me.StatusLabelUrl.Size = New System.Drawing.Size(317, 22) 
     770        Me.StatusLabelUrl.Size = New System.Drawing.Size(336, 17) 
    769771        Me.StatusLabelUrl.Spring = True 
    770772        Me.StatusLabelUrl.Text = "ToolStripStatusLabel1" 
    … …  
    774776        ' 
    775777        Me.StatusLabel.Name = "StatusLabel" 
    776         Me.StatusLabel.Size = New System.Drawing.Size(136, 22) 
     778        Me.StatusLabel.Size = New System.Drawing.Size(117, 17) 
    777779        Me.StatusLabel.Text = "ToolStripStatusLabel1" 
    778780        ' 
    … …  
    801803        Me.TimerPostCounter.Enabled = True 
    802804        Me.TimerPostCounter.Interval = 60000 
     805        ' 
     806        'UpdateFollowersMenuItem1 
     807        ' 
     808        Me.UpdateFollowersMenuItem1.Name = "UpdateFollowersMenuItem1" 
     809        Me.UpdateFollowersMenuItem1.Size = New System.Drawing.Size(212, 22) 
     810        Me.UpdateFollowersMenuItem1.Text = "片思いユーザーリスト取得" 
     811        ' 
     812        'ToolStripSeparator13 
     813        ' 
     814        Me.ToolStripSeparator13.Name = "ToolStripSeparator13" 
     815        Me.ToolStripSeparator13.Size = New System.Drawing.Size(209, 6) 
    803816        ' 
    804817        'TweenMain 
    … …  
    929942    Friend WithEvents PlaySoundMenuItem As System.Windows.Forms.ToolStripMenuItem 
    930943    Friend WithEvents TimerPostCounter As System.Windows.Forms.Timer 
     944    Friend WithEvents UpdateFollowersMenuItem1 As System.Windows.Forms.ToolStripMenuItem 
     945    Friend WithEvents ToolStripSeparator13 As System.Windows.Forms.ToolStripSeparator 
    931946 
    932947End Class 

  • lang/vb2005/Tween/Tween/Tween.vb

    r22126 r22195  
    323323        SettingDialog.StartupVersion = _section.StartupVersion 
    324324        SettingDialog.StartupKey = _section.StartupKey 
     325        SettingDialog.StartupFollowers = _section.StartupFollowers 
    325326 
    326327        'ユーザー名、パスワードが未設定なら設定画面を表示（初回起動時など） 
    … …  
    14841485                    Case WORKERTYPE.DirectMessegeRcv 
    14851486                        ret = clsTw.GetDirectMessage(tlList, args.page, args.endPage, Twitter.GetTypes.GET_DMRCV, TIconList.Images.Keys, imgs) 
    1486                         If ret = "" And _initial Then 
     1487                        If ret = "" And _initial And SettingDialog.StartupFollowers Then 
    14871488                            ret = clsTw.GetFollowers() 
    14881489                        End If 
    … …  
    17401741                            GetTimelineWorker.RunWorkerAsync(args) 
    17411742                        Else 
    1742                             If rslt.page = 1 And statusCount < 18 And SettingDialog.PeriodAdjust Then 
    1743                                 TimerTimeline.Interval += 2000 
    1744                                 If TimerTimeline.Interval > SettingDialog.TimelinePeriodInt * 1000 + 60000 Then TimerTimeline.Interval = SettingDialog.TimelinePeriodInt * 1000 + 60000 
     1743                            If rslt.page = 1 And statusCount < 17 And SettingDialog.PeriodAdjust Then 
     1744                                TimerTimeline.Interval += 1000 
     1745                                If TimerTimeline.Interval > SettingDialog.TimelinePeriodInt * 1000 Then TimerTimeline.Interval = SettingDialog.TimelinePeriodInt * 1000 
    17451746                            End If 
    17461747                            If SettingDialog.CheckReply Then 
    … …  
    52175218            _section.StartupVersion = SettingDialog.StartupVersion 
    52185219            _section.StartupKey = SettingDialog.StartupKey 
     5220            _section.StartupFollowers = SettingDialog.StartupFollowers 
    52195221 
    52205222            Dim tmpList As DetailsListView = Nothing 
    … …  
    66956697        End If 
    66966698    End Sub 
     6699 
     6700    Private Sub UpdateFollowersMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateFollowersMenuItem1.Click 
     6701        StatusLabel.Text = "Followers取得中..." 
     6702        Dim ret As String 
     6703        ret = clsTw.GetFollowers() 
     6704        If ret <> "" Then 
     6705            StatusLabel.Text = "Followers取得エラー：" & ret 
     6706            Exit Sub 
     6707        End If 
     6708        StatusLabel.Text = "Followers取得完了" 
     6709    End Sub 
    66976710End Class 
    66986711 

  • lang/vb2005/Tween/Tween/Twitter.vb

    r22147 r22195  
    13251325            i += 1 
    13261326            ' resMsg = _mySock.GetWebResponse("https://" + _hubServer + _GetFollowers + "?page=" + i.ToString, resStatus, MySocket.REQ_TYPE.ReqGetAPI) 
    1327             resMsg = _mySock.GetWebResponse("https://" + _hubServer + _GetFollowers + "?page=" + i.ToString, resStatus, MySocket.REQ_TYPE.ReqPOSTAPI) 
     1327            resMsg = _mySock.GetWebResponse("https://" + _hubServer + _GetFollowers + _pageQry + i.ToString, resStatus, MySocket.REQ_TYPE.ReqPOSTAPI) 
    13281328            If resStatus.StartsWith("OK") = False Then 
     1329                follower.Clear() 
     1330                follower.Add(_uid)  '途中で失敗したら片思い表示しない 
    13291331                Return resStatus 
    13301332            End If