VBAって、本当におもしろい！！
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub ListBox1_Click()
DoEvents
Sleep 500
ActiveCell.Value = ListBox1.Value
Unload Me
End Sub※最初のステートメントは、フォームモジュールの宣言セクションに記述してください。
「ちょっと難しいけど、Sleep関数を使うと、コードの進行をミリ秒単位で中断することができるんだ。
このSleep関数はWindows APIが提供している関数の1つなんだけど…。
難しいことはいいから、宣言セクションに
"Private Declare Sub Sleep 〜"
と宣言を記述すれば、Sleep関数が使えるようになる。
引数に、中断する時間をミリ秒単位で記述すると、その間コードの実行が中断される。
ここでは"500"ミリ秒だから…0.5秒、中断されるよ」
星くんは先ほど同様に、ユーザーフォームを操作しました。
「あ…！ホントだ。
さっきは一瞬で消えてたけど、今度はほんの少し、表示時間が長くなってる…。
これってミリ秒の"500"は、自由に変更できるんだよね？」
「もちろん。
…ユーザーが望む長さに設定してもいいし、スクロールバーコントロールなんかで、
自由に調整できるようにしてもおもしろいね」
星くんの顔が、パッと輝きます。
「VBAって、本当におもしろいな！八木！！」
「ははは、何をいまさら…。
でもこういったところまで、気を配ったシステムこそ、ユーザーフレンドリーなシステムなんだ。
市販のソフトウェアでは、かゆいところに手が届かなくても、VBAならトコトン作りこみできる。
だから、みんなVBAが好きなんだよ」
星くんは八木くんの話を聞きながら、忘れかけていた熱いものが、
胸の奥にこみあげてくるのを感じていました。
