Changeset 33308

Show
Ignore:
Timestamp:
05/15/09 11:34:23 (4 years ago)
Author:
syo68k
Message:

コマンドライン処理廃止

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/vb2008/TweenUp/TweenUp/Form1.vb

    r31911 r33308  
    1717        ' exe自身からフォームのアイコンを取得 
    1818        Me.Icon = Icon.ExtractAssociatedIcon(Application.ExecutablePath) 
    19  
     19#If 0 Then 
    2020        If Environment.GetCommandLineArgs().Length <> 1 AndAlso Directory.Exists(Environment.GetCommandLineArgs()(1)) Then 
    2121            TWEENEXEPATH = Environment.GetCommandLineArgs()(1) 
    2222            SOURCEPATH = Path.GetTempPath 
    2323        End If 
     24#End If 
    2425    End Sub 
    2526 
    … …  
    106107            Count += 1 
    107108 
    108             ' だいたい60秒ぐらい（適当）たってもだめなら例外を発生させる 
    109             If Count >= 60 Then 
     109            ' だいたい30秒ぐらい（適当）たってもだめなら例外を発生させる 
     110            If Count >= 30 Then 
    110111                Throw New ApplicationException(My.Resources.TimeOutException) 
    111             ElseIf (Count >= 30) And (kFlag = False) Then 
    112                 ' 30秒以上たったならCloseMainWindow()をやめてKill()に切り替える (30～60秒だとここ） 
     112            ElseIf (Count >= 15) And (kFlag = False) Then 
     113                ' 15秒以上たったならCloseMainWindow()をやめてKill()に切り替える (15～30秒だとここ） 
    113114                kFlag = True 
    114115                BackgroundWorker1.ReportProgress(0, userState:=My.Resources.ProgressProcessKill)