谁知道这个怎么写啊,
电子钟的运行，上面的文本框用来显示当前时间，
下面的文本框用来设置闹时时间，
当设定的闹时时间到时，
显示时间的文本框背景色会反复改变。
在窗体上加2个timer控件，2个text控件后把timer2的enabled属性设成false，interval设为100，然后写入以下代码：
Dim a As Integer
Private Sub Form_Activate()
Timer2.Enabled = False
'时间可自己定义
Text2.Text = "14:48:00"
End Sub
Private Sub Timer1_Timer()
Text1.Text = Time
If Trim(Text1.Text) = Trim(Text2.Text) Then Timer2.Enabled = True
Cls
End Sub
Private Sub Timer2_Timer()
Text2.BackColor = QBColor(a)
a = a + 1
If a > 15 Then a = 0
End Sub
[此贴子已经被作者于2006-10-13 14:54:13编辑过]
