秋葵怎么烤的又干又脆:关于一个vb程序设计的问题

来源:百度文库 编辑:高校问答 时间:2024/05/12 17:55:06
请问高人 如何设计一个窗体,具备闹钟的功能,要添加一个播放器,当到达闹钟时间时,播放器播放音乐文件。并在闹钟窗体中添加一个能走动的钟表,方便用来察看当时的时间。谢谢帮助!!
另外可以将设置好的闹钟时间保存到一个文件中 ,从此文件中可以读取闹钟时间,然后实现闹钟功能

http://iask.sina.com.cn/b/4985053.html
请在以上网址下载piano.rar,解压缩后用VB6.0打开,在其窗体上添加Text2和Text2文本框,添加Timer4和Timer5时钟控件,前者属性Interval设置为500,后者属性Interval按需闹时的持续时间要求设.
增加以下代码,在Text2中按HH:MM:SS输入需闹的时间,就可试试.
Private Sub Text2_Change()
Text2 = Text2
End Sub

Private Sub Timer4_Timer()
If Text3 <> CStr(Time$) Then
Text3 = Time$
If Text3 = Text2 Then
Timer3.Enabled = True
End If
End If
End Sub

Private Sub Timer5_Timer()
Timer3.Enabled = False
End Sub

补充说明:
'增加如下代码
Private Sub Form_Unload(Cancel As Integer)
time_sj = Text2
Open "c:\time.txt" For Output As #1
Write #1, time_sj
Close
Unload Me
End Sub

'以下代码写于该窗体的LOAD事件开始代码中
On Error GoTo uerror'避免初次装载时无文本文件出错
Open "c:\time.txt" For Input As #1
Input #1, time_sj
Close
Text2 = time_sj
'以下代码写于窗体LOAD事件的最后代码中
uerror:

可以做到,但回答你的问题要编程序,花很多时间啊,您还是饶了我吧。

呵呵,付RMB吗?