1秒間のループ回数を得るために下記のようなコードを記述したのですが、Tickイベントが発生せずループから抜けません。以前はVB6(Timer1_Timerイベント)を使用していたのですが、何の問題もなく使用出来ていました。誰か分る方、ご教授下さい。もちろんInterval=1000です。
'1sec間に繰り返されるループ回数
Private mlng1SecTimeCount As Long
'1sec経過フラグ
Private msht1SecFlg As Short
'(省略)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'ディレイタイム設定
DELAY_TIME_SETTING()
End Sub
Private Sub DELAY_TIME_SETTING() 'ディレイタイム設定
'解説:1sec間に実行されるループ回数の算出。
'ループ回数格納用変数
Dim lngLoopCount As Long
'タイマー1起動
Timer1.Enabled = True
Do Until msht1SecFlg = 1
lngLoopCount += 1
Loop
'タイマー1停止
Timer1.Enabled = False
'データ保存
mlng1SecTimeCount = lngLoopCount
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
'解説:1sec経過後にインクリメント。
'インクリメント
msht1SecFlg += 1
End Sub
以上よろしくお願い致します。
