2017-08-08から1日間の記事一覧

待ち時間

Private Sub sWaitTime(ByVal st As Long) '指定の時間待つ(1/1000 秒単位で指定) Dim lngSt As Long 'システム起動後のミリ秒単位の経過時間を取得します。 'システムが 24.9 日間稼動し続けた場合、この経過時間は 0 に戻ります。 lngSt = System.Environ…

TimerとSleepを同時進行

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick TimerTextBox.Text = DateTime.Now.ToString() End Sub Private Delegate Sub StartTimerDelegate() Private StartTimerThread As Threading.Thr…