| 投稿日 | ： 2004/09/28(Tue) 21:25 |
| 投稿者 | ： kamurin |
| Ｅメール | ： kamurin@hotmail.com |
| ＵＲＬ | ： |
| タイトル | ： Re: タイマーの使用方法 |
おそらく、
Timer1_Timerで取得した時間とText4.Textが、
ぴったり同じ時間を格納していないからだと思います。
Private Sub Timer1_Timer()
If Label1.Caption <= Time$ Then
Call BeepSOUND1
End If
End Sub
でどうでしょう