GetTickCount は Windowsを起動してから現在までの時間をミリ秒で得ることができる関数です。
ゲームではキャラクタを一定の速度で動かす部分などに使用します。
次の例ではキャラクタを20ミリ秒ごとに移動するプログラムを表しています。
Option Explicit
’API関数 GetTickCountを宣言
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Sub UserForm_Activate()
Dim lngTimer As Long
Do
lngTimer = GetTickCount
：
’この部分にキャラクタを動かすプログラムを記述する。
：
Do While GetTickCount - lngTimer < 20
DoEvents
Loop
Loop
End Sub
|
|
