VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[管理用]
| 投稿日 | ： 2007/07/21(Sat) 11:25 |
| 投稿者 | ： tea |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： 解決方法の詳細 |
> APIを使うことで解決しました。
標準モジュールに以下を宣言します。
Declare Function GetTickCount Lib "kernel32" () As Long
そしてDelay関数を用意します。
Function Delay(ByVal t As Long)
Dim At_0 As Long, At_1 As Long
At_0 = GetTickCount
At_1 = At_0
While ((At_1 - At_0) < t)
At_1 = GetTickCount
DoEvents
Wend
End Function
その後はDelayの後に（待ち時間：単位ミリ秒）を記載して使用します。
具体例は「Delay 50」などです。
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）