ＶＢ２００５においてクリックされた、されてないについて

質問

ＶＢ２００５についてお聞きいたします。

「ＰｉｃｔｕｒｅＢｏｘ１」がクリックされたら「Ａ」を行い、３秒経ってもクリックされなかったら「Ｂ」をする。

と言ったプログラムはどう書けば良いでしょうか。
よろしくお願いいたします。

回答No.1

redfox63 · ベストアンサー

Formにタイマーとピクチャーボックスを貼り付けます

ピクチャーボックスをダブルクリックしてクリック時のハンドラスケルトンを作成します
ここに

　　A
　　flag = true
　　Timer1.enabled = false
と記述します

Formクラスのメンバー変数として クリックされたかどうかの判断用に
Dim flag as Boolean
と記述します

コードウィンドウ上部のコンボボックスで
『Timer1』と『Tick』を選択します
ここに
　　B
　　' Bの処理が1回だけなら以下を記述します
　　Timer1.Enabled = false
と記述します

3秒がどの時点からなのかが不明ですが そのイベントが起きたときに
Timer1.Interval = 3000
Timer1.Enabled = true
と記述します

最後に FormのLoadイベントで変数の初期化とTimerの初期設定をします
flag = false
TImer1.Enabled = false
といった具合です

お礼

回答ありがとうございます。
初心者ですので、教えていただいた内容をすぐには理解できません。

しばらく勉強させてもらうために、とりあえず質問を締め切らせていただきます。

ありがとうございました。続きをまた、質問させていただくかもわかりませんので、その時はよろしくお願いいたします。