End Sub
Private Sub GetTimeline(ByVal WkType As WORKERTYPE, ByVal fromPage As Integer, ByVal toPage As Integer, ByVal tabName As String)
- If Not IsNetworkAvailable() Then Exit Sub
''タイマー初期化
If WkType = WORKERTYPE.Timeline AndAlso SettingDialog.TimelinePeriodInt > 0 Then
_homeCounter = SettingDialog.TimelinePeriodInt - _homeCounterAdjuster
_dmCounter = SettingDialog.DMPeriodInt
End If
+ If Not IsNetworkAvailable() Then Exit Sub
+
'非同期実行引数設定
Dim args As New GetWorkerArg
args.page = fromPage