GetTickCountについて

解決

ぶいび2005 2006-08-05 00:07:15 No: 132624

お世話になります。
GetTickCountの使い方がいまひとつわかりません。
Dim SrtTime As Long
Dim EndTime As Long
CapTime ＝ 60000
Do While (EndTime - SrtTime) < CapTime
EndTime = GetTickCount() ーーーーーーーー＞①
Loop

これを実行すると①を１回しか通らず
Loopを抜けて(EndTime - SrtTime)の値を見るととても大きな数字が入って
います。

原因わかる方、診断願います。

うなまな 2006-08-05 00:31:34 No: 132625

Dim SrtTime As Long
Dim EndTime As Long
CapTime  ＝  60000
SrtTime = GetTickCount()    ーーーーーーーー＞追加
Do While (EndTime - SrtTime) < CapTime
  EndTime = GetTickCount()
Loop

こういう事？

ぶいび2005 2006-08-05 00:45:24 No: 132626

うなまなさん、ありがとうございます。
＞こういう事？

そういう事です。
ただ、できませんでした。前回のコード同様Do While 〜 Loopを1回しか
通りませんでした。
どういう事なのか…開発環境はVB2005です。

特攻隊長まるるう 2006-08-05 00:58:00 No: 132627

GetTickCount の宣言で戻り値の型は何で宣言していますか？

ぶいび2005 2006-08-05 01:04:39 No: 132628

特攻隊長まるるうさん、ありがとうございます。
宣言は
Public Class Form1
Inherits System.Windows.Forms.Form
Public Declare Function GetTickCount Lib "KERNEL32" () As Long

Long型ですね。
ただこの文もネットでの引用ですので不安ではあります。

特攻隊長まるるう 2006-08-05 01:07:44 No: 132629

[VB.NET]以降、３２ビットの数値型は Integer となりました。
Integer に変更してください。

以下のサイトの４章に一通り目を通してください。
[Visual Basic 6.0 ユーザーのための Visual Basic .NET 移行ガイド]
http://www.microsoft.com/japan/msdn/net/vbtransitionguide/

うなまな 2006-08-05 01:25:14 No: 132630

VB2005だったんだ・・・
じゃぁ、こんな方法もありますよ。

Dim stp As Stopwatch = Stopwatch.StartNew
While stp.ElapsedMilliseconds < 1000
Application.DoEvents()
End While

ぶいび2005 2006-08-05 01:38:37 No: 132631

特攻隊長まるるうさん、うなまなさん、ありがとうございます。
解決しました。
自分に宣言はVB6.0のだったんですね。
整数型に関する変更点は肝に銘じておきます。