ooppeoppe回答ポイント 200pt

VB.NETで1分間隔でSub _Check()を1回実行させたいんですが、下の記したものを実際動かしてみると1分後にSub _Check()を1回実行、2分後にSub _Check()を2回実行、3分後に3回・・

という感じでどんどん実行回数が増えていってしまいます。

ネットで以前拾ったフリーの物をいじっていて、以下のようになっているのですがどうやったら1分毎に1回だけ実行させるように変えられますか？

Sub aaa
AddHandler Timer.Tick, AddressOf Check
Timer.Interval = 60 * 1000
Timer.Enabled = True
End Sub

Sub Check()

AddHandler BackGround.DoWork, AddressOf _Check
AddHandler BackGround.RunWorkerCompleted, AddressOf Balloon_Show
If BackGround.IsBusy Then
Return
End If
BackGround.RunWorkerAsync()
End Sub

Sub _Check()
MsgBox("チェック")
End Sub

ベストアンサー

a-kuma32017/09/08 15:37:09
満足200pt

こう、かな。

Sub aaa
    AddHandler Timer.Tick, AddressOf Check
    Timer.Interval = 60 * 1000
    Timer.Enabled = True

    ' BackGround への登録は一回だけ
    AddHandler BackGround.DoWork, AddressOf _Check
    AddHandler BackGround.RunWorkerCompleted, AddressOf Balloon_Show
End Sub

Sub Check()
    If BackGround.IsBusy Then
        Return
    End If
    BackGround.RunWorkerAsync()
End Sub

Sub _Check()
    MsgBox("チェック")
End Sub

スター

1件のコメントを見る
ooppeoppe 2017/09/08 16:04:58

出来ました。ありがとうございました。

スター

この質問へのコメント

コメントはありません

VB.NETで1分間隔でSub _Check()を1回実行させたいんですが、下の記したものを実際動かしてみると1分後にSub _Check()を1回実行、2分後にSub _Check()を2回実行、3分後に3回・・

ベストアンサー

a-kuma32017/09/08 15:37:09
満足200pt

ooppeoppe 2017/09/08 16:04:58

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

VB.NETで1分間隔でSub _Check()を1回実行させたいんですが、下の記したものを実際動かしてみると1分後にSub _Check()を1回実行、2分後にSub _Check()を2回実行、3分後に3回・・

ベストアンサー

a-kuma32017/09/08 15:37:09 満足200pt

ooppeoppe 2017/09/08 16:04:58

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

a-kuma32017/09/08 15:37:09
満足200pt