テキストボックスを2つ作る。labelを追加する。
text1のプロパティ :textは空白・・・時の入力用
text2のプロパティ :textは空白・・・分の入力用
Timer1_timer のプログラムに追加
h=val(text1.text) :' Text1の内容を数値化した
m=val(text2.text) :' Text2の内容を数値化した
if hour(now)=h and minute(now)=m and second(now)=0 then
Label2.visible=true :' Label2を表示
else
Label2.visible=false :' Label2を非表示
endif
とする。label2はプロパティで背景色・Captionを適当に設定しておく。さらに画像が出るようにするのもいいですね。
戻る |