７．経過時間計測色々

１．経過時間計測色々 ２． ３． ４．　 ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：Windows Vista・Windows 7 (32bit) / VB6.0(SP6) Option　：[Option Explicit] 参照設定：追加なし 使用 API：なし その他　： 　　　　：

１．経過時間計測色々

Option Explicit　　　　 'SampleNo:057　　2002.05.13　　 �@ 2007.01.19 'システムを立ち上げてからの経過時間を高精度に取得する Private Declare Function timeGetTime Lib "winmm.dll" () As Long 'システムを立ち上げてからの経過時間を取得する(1000) Private Declare Function GetTickCount Lib "kernel32" () As Long Private lngStartTime As Long Private StartTime　　As Long Private st　　　　　 As Single Private Sub Command1_Click() '測定開始 　　lngStartTime = timeGetTime 　　StartTime = GetTickCount 　　st = Timer 　　fTimeCount End Sub Private Sub Command2_Click() '測定終了 　　Label1.Caption = "timeGetTime　: " & (timeGetTime - lngStartTime) / 1000 　　Label2.Caption = "GetTickCount : " & (GetTickCount - StartTime) / 1000 　　Label3.Caption = "Timer - st　 : " & Timer - st 　　Label4.Caption = "fTimeCount　 : " & fTimeCount End Sub Private Function fTimeCount() As String 　　Static lngST As Long 　　If lngST = 0& Then 　　　　lngST = timeGetTime 　　Else 　　　　fTimeCount = "経過時間=" & Str$((timeGetTime - lngST) / 1000) & " 秒です" 　　　　lngST = 0& 　　End If End Function Win32 API 関数を使いたくないのなら、Timer 関数を使った方法を、API を使用するなら、timeGetTime を使った方法で。

２．

３．

４．

５．

６．