コマンドをクリックするとTimerがスタートするようにさせるには？ (ID:127007)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >Timer コントロールの Interval プロパティの意味を >取り違えているようなので でしょうね。イベントの起こる間隔を指定するもので 時間と共に増えていくものでは無いですからね。 もう少し粘っても良いんですが、もう帰っちゃうので(汗) １つの回答を載せておきます。 [Vb6.0] Option Explicit Private mSubFlag As Integer 'モジュールレベル変数 Private Sub Form_Load() mSubFlag = 0 Timer1.Interval = 0 End Sub Private Sub Command1_Click() mSubFlag = 1 Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Timer1.Interval = 0 Select Case mSubFlag Case 1 Call サブルーチンA mSubFlag = 2 Case 2 Call サブルーチンB mSubFlag = 3 Case 3 Call サブルーチンC mSubFlag = 0 Case Else Exit Sub 'タイマー起動しないまま抜ける End Select Timer1.Interval = 1000 'ここでタイマーが改めて起動。0から1000msまで数え始めます End Sub Private Sub サブルーチンA() MsgBox "サブルーチンA" 'この時タイマーは止まってます 'OKボタンを押さないでずーっと居たら次の処理は実行されません End Sub Private Sub サブルーチンB() MsgBox "サブルーチンB" End Sub Private Sub サブルーチンC() MsgBox "サブルーチンC" End Sub