Changeset 22938

Show
Ignore:
Timestamp:
11/07/08 18:55:40 (6 years ago)
Author:
kiri_feather
Message:

設定と終了処理が重なったときにエラーになる問題に対応

Location:
lang/vb2005/Tween
Files:
3 modified

Legend:

Unmodified
Added
Removed
  • lang/vb2005/Tween

    • Property svn:ignore set to
      *.suo
  • lang/vb2005/Tween/Tween

    • Property svn:ignore set to
      bin
      obj
  • lang/vb2005/Tween/Tween/Tween.vb

    r22900 r22938  
    14701470            If clsTw IsNot Nothing Then clsTw.Ending = True 
    14711471            If clsTwPost IsNot Nothing Then clsTwPost.Ending = True 
     1472            TimerTimeline.Enabled = False 
     1473            TimerDM.Enabled = False 
     1474 
     1475            '終了時エラー対応 
     1476            Do While GetTimelineWorker.IsBusy 
     1477                Threading.Thread.Sleep(1) 
     1478                Application.DoEvents() 
     1479            Loop 
     1480            Do While PostWorker.IsBusy 
     1481                Threading.Thread.Sleep(1) 
     1482                Application.DoEvents() 
     1483            Loop 
     1484            For i As Integer = 0 To 1000 
     1485                Threading.Thread.Sleep(1) 
     1486                Application.DoEvents() 
     1487            Next 
    14721488 
    14731489            NotifyIcon1.Visible = False 
    14741490            Me.Visible = False 
    1475             TimerTimeline.Enabled = False 
    1476             TimerDM.Enabled = False 
    14771491 
    14781492            Call SaveConfigs() 
     
    32303244                End If 
    32313245                If SettingDialog.OneWayLove = True Then 
    3232                     For Each myTab As TabPage In ListTab.TabPages 
    3233                         If myTab.Text <> "Direct" Then 
    3234                             Dim myList As DetailsListView = DirectCast(myTab.Controls(0), DetailsListView) 
    3235                             For Each myItem As ListViewItem In myList.Items 
     3246                    For Each ts As TabStructure In _tabs 
     3247                        If ts.tabName <> "Direct" Then 
     3248                            For Each myItem As ListViewItem In ts.listCustom.Items 
    32363249                                If clsTw.follower.Contains(myItem.SubItems(4).Text) Then 
    32373250                                    myItem.SubItems(10).Text = "False" 
     
    53105323 
    53115324                Dim tmpList As DetailsListView = Nothing 
    5312                 For Each myTab As TabPage In ListTab.TabPages 
    5313                     If myTab.Text = _curTabText Then 
    5314                         tmpList = DirectCast(myTab.Controls(0), DetailsListView) 
     5325                For Each ts As TabStructure In _tabs 
     5326                    If ts.tabName = _curTabText Then 
     5327                        tmpList = ts.listCustom 
    53155328                        Exit For 
    53165329                    End If 
    53175330                Next 
    5318                 _section.DisplayIndex1 = tmpList.Columns(0).DisplayIndex 
    5319                 _section.Width1 = tmpList.Columns(0).Width 
    5320                 If _iconCol = False Then 
    5321                     _section.DisplayIndex2 = tmpList.Columns(1).DisplayIndex 
    5322                     _section.DisplayIndex3 = tmpList.Columns(2).DisplayIndex 
    5323                     _section.DisplayIndex4 = tmpList.Columns(3).DisplayIndex 
    5324                     _section.DisplayIndex5 = tmpList.Columns(4).DisplayIndex 
    5325                     _section.Width2 = tmpList.Columns(1).Width 
    5326                     _section.Width3 = tmpList.Columns(2).Width 
    5327                     _section.Width4 = tmpList.Columns(3).Width 
    5328                     _section.Width5 = tmpList.Columns(4).Width 
    5329                 End If 
    5330                 _section.SortColumn = listViewItemSorter.Column 
    5331                 _section.SortOrder = listViewItemSorter.Order 
     5331                If tmpList.Columns.Count > 0 Then   '起動処理中に終了処理が走ると参照できないため 
     5332                    _section.DisplayIndex1 = tmpList.Columns(0).DisplayIndex 
     5333                    _section.Width1 = tmpList.Columns(0).Width 
     5334                    If _iconCol = False Then 
     5335                        _section.DisplayIndex2 = tmpList.Columns(1).DisplayIndex 
     5336                        _section.DisplayIndex3 = tmpList.Columns(2).DisplayIndex 
     5337                        _section.DisplayIndex4 = tmpList.Columns(3).DisplayIndex 
     5338                        _section.DisplayIndex5 = tmpList.Columns(4).DisplayIndex 
     5339                        _section.Width2 = tmpList.Columns(1).Width 
     5340                        _section.Width3 = tmpList.Columns(2).Width 
     5341                        _section.Width4 = tmpList.Columns(3).Width 
     5342                        _section.Width5 = tmpList.Columns(4).Width 
     5343                    End If 
     5344                    _section.SortColumn = listViewItemSorter.Column 
     5345                    _section.SortOrder = listViewItemSorter.Order 
     5346                End If 
    53325347 
    53335348                _section.ListElement.Clear() 
     
    53755390 
    53765391                Dim cnt As Integer = 0 
    5377                 For idx As Integer = 0 To ListTab.TabCount - 1 
    5378                     Dim tabName As String = ListTab.TabPages(idx).Text 
    5379                     Dim myList As DetailsListView = DirectCast(ListTab.TabPages(idx).Controls(0), DetailsListView) 
     5392                For Each ts As TabStructure In _tabs 
     5393                    Dim tabName As String = ts.tabName 
     5394                    Dim myList As DetailsListView = ts.listCustom 
    53805395                    _section.ListElement.Add(New ListElement(tabName)) 
    5381                     For Each myTab As TabStructure In _tabs 
    5382                         If myTab.tabName = tabName Then 
    5383                             _section.ListElement(tabName).Notify = myTab.notify 
    5384                             _section.ListElement(tabName).SoundFile = myTab.soundFile 
    5385                             _section.ListElement(tabName).UnreadManage = myTab.unreadManage 
    5386                             For Each fc As FilterClass In myTab.filters 
    5387                                 Dim bf As String = "" 
    5388                                 For Each bfs As String In fc.BodyFilter 
    5389                                     bf += " " + bfs 
    5390                                 Next 
    5391                                 Dim su As New SelectedUser(cnt.ToString) 
    5392                                 cnt += 1 
    5393                                 su.BodyFilter = bf 
    5394                                 su.IdFilter = fc.IDFilter 
    5395                                 su.MoveFrom = fc.moveFrom 
    5396                                 su.SetMark = fc.SetMark 
    5397                                 su.SearchBoth = fc.SearchBoth 
    5398                                 su.UrlSearch = fc.SearchURL 
    5399                                 su.RegexEnable = fc.UseRegex 
    5400                                 su.TabName = tabName 
    5401                                 _section.SelectedUser.Add(su) 
    5402                             Next 
    5403                         End If 
     5396                    'For Each myTab As TabStructure In _tabs 
     5397                    '    If myTab.tabName = tabName Then 
     5398                    _section.ListElement(tabName).Notify = ts.notify 
     5399                    _section.ListElement(tabName).SoundFile = ts.soundFile 
     5400                    _section.ListElement(tabName).UnreadManage = ts.unreadManage 
     5401                    For Each fc As FilterClass In ts.filters 
     5402                        Dim bf As String = "" 
     5403                        For Each bfs As String In fc.BodyFilter 
     5404                            bf += " " + bfs 
     5405                        Next 
     5406                        Dim su As New SelectedUser(cnt.ToString) 
     5407                        cnt += 1 
     5408                        su.BodyFilter = bf 
     5409                        su.IdFilter = fc.IDFilter 
     5410                        su.MoveFrom = fc.moveFrom 
     5411                        su.SetMark = fc.SetMark 
     5412                        su.SearchBoth = fc.SearchBoth 
     5413                        su.UrlSearch = fc.SearchURL 
     5414                        su.RegexEnable = fc.UseRegex 
     5415                        su.TabName = tabName 
     5416                        _section.SelectedUser.Add(su) 
    54045417                    Next 
     5418                    '    End If 
     5419                    'Next 
    54055420                Next 
    54065421