[VB.NET]小闹钟
小闹钟
实例说明 在本实例中,我们将制作可以实现"计划任务管理器"功能的应用程序。当到达指定时间时,程序能够自动出现提示信息和播放背景音乐。程序运行结果如图64-1所示。 图64-1 运行结果 技术要点 l Time函数 l 使用MMControl控件 l 使用CommonDialog控件 实现过程 ■ 新建项目 打开Visual Studio.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控件的基本使用方法。我们将在后面的实例中介绍一个更实用、有漂亮界面的小闹钟应用程序。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |