もどる

 GetTickCount
HOMEへ
PRODUCTSへ
LEARNING
LINKへ
LOGO
HeadLine
ORDER FORMへ
Image画像
MailTo:

もどる


(c) Copyright 2005 VBAを基礎から解説 VBA World All rights reserved.
E-Mail:info@vba-world.com
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