实例说明
在本实例中，我们将制作可以实现"计划任务管理器"功能的应用程序。当到达指定时间时，程序能够自动出现提示信息和播放背景音乐。程序运行结果如图64-1所示。
图64-1 运行结果
技术要点
l Time函数
l 使用MMControl控件
l 使用CommonDialog控件
实现过程
■ 新建项目
打开Visual Stu@R_301_410@.NET，选择"新建项目"，在项目类型窗口中选择"Visual Basic项目"，在模板窗口中选择"Windows应用程序"，在名称域中输入"SimpleClock"，然后选择保存路径。单击"确认"。
■ 添加控件
向窗体添加三个Label控件，三个TextBox控件，三个Button控件，一个MMControl控件、一个CommonDialog控件和一个Timer控件。
■ 设置属性
根据运行时的界面，将Label控件和Button控件的Text属性改为和界面一致。其余见表64-1。
表64-1 窗体各控件的属性值
窗体/控件 属性 值
MMControl1 Visible False
Timer1 Interval 1000
AXCommonDialog1 Filter 声音文件|*.wav;*.mid
Private Sub Button1_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles Button1.Click
Me.WindowState = System.Windows.Forms.FormWindowState.Minimized
End Sub
Private Sub Button3_Click(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles Button3.Click
'打开要播放的声音文件
AXCommonDialog1.ShowOpen()
Text3.Text = AXCommonDialog1.FileName
End Sub
Private Sub Timer1_Tick(ByVal eventSender As System.Object,ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
Dim temptime As String
'将前12个小时和后12个小时分开
If Hour(TimeOfDay) > 12 Then
temptime = VB.Left(CStr(TimeOfDay),5)
Else
temptime = VB.Left(CStr(TimeOfDay),4)
End If
If Text1.Text = temptime Then
MMControl1.FileName = Text3.Text
MMControl1.Command = "open"
MMControl1.Command = "play"
Timer1.Enabled = False
MsgBox(Text2.Text,"小闹钟")
End If
End Sub
■ 运行程序
单击菜单"调试|启动"或单击 图标运行程序。
小结
通过对本实例的学习，我们学习了MMControl、CommonDialog控件的基本使用方法。我们将在后面的实例中介绍一个更实用、有漂亮界面的小闹钟应用程序。