timegettimeの動作について。 (ID:87121)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Sayさん >timeGetTimeにはintervalなどという概念は存在しません。 おっしゃるとおりです。 言葉不足(?)でした。 以下のようなソースで、タイマとして動かしています。 ///////////////////////////////////////////////////// Private Sub highTimer() Dim looptime As Long Dim starttime As Long looptime = 1 Do starttime = timeGetTime() Call Something '処理を記述 Do DoEvents Loop Until timeGetTime() - starttime >= looptime Loop End Sub ///////////////////////////////////////////////////// これでDLLを呼び出して、OpenGLをPictureBox内に表示しているのですが、 8FPS、即ち秒間８回しかhightimerがコールされていないようなのです。 おそらくlooptime=1で回っていないと思われるのですが…。 ちなみにXPの環境だと40FPS程度になります。 グラボとの相性なのかなんだかわからず、途方にくれています。