倒计时提醒程序设计时实用vs2005编写的界面截图Vs2005设计《倒计时提醒》程序时新建有3个form窗体文件：界面截图如下：Form1：主界面在Form1界面上点击“设置倒计时”菜单，就会弹出form2Form2：设置倒计时界面在form1界面上点击“音乐路径”菜单，就会弹出form3设置音乐路径界面Form3：音乐路径界面弹窗提醒截图：第三章详细设计3.1控件功能及属性Form1控件3.2模块程序代码Module1.vb模块代码：Module Module1' 这是在模块中添加的代码Public hours As ShortPublic minutes As ShortPublic seconds As ShortPublic revtime As Date'此API函数用来使某个窗口位于所有窗口之上Public Declare Function SetWindowPos Lib "user32" (ByV al hwnd As Integer, ByV alhWndInsertAfter As Integer, ByV al X As Integer, ByV al Y As Integer, ByV al cx As Integer, ByV al cy As Integer, ByV al wFlags As Integer) As IntegerEnd ModuleForm1窗体代码：Public Class Form1Private Sub Form1_DoubleClick(ByV al sender As Object, ByV al e As System.EventArgs) Handles Me.DoubleClickMe.Close() ’双击窗体关闭End SubPrivate Sub Form1_Load(ByV al sender As Object, ByV al e As System.EventArgs) Handles Me.LoadMe.TopMost = True ’打开窗体时，位于所有窗体的最前面End SubPrivate Sub Timer1_Tick(ByV al sender As Object, ByV al e As System.EventArgs) Handles Timer1.Tick ’设置时间空间If seconds > 0 Then '当秒钟大于时seconds = seconds – 1 '秒钟做减法End IfIf seconds < 1 And minutes > 0 Then '当秒钟<1和分钟>0minutes = minutes –1’分钟做减法seconds = 60'秒钟重新计数End IfIf m inutes < 1 And seconds = 0 And hours > 0 Then’当秒钟<1和分钟=0并且时钟=0 hours = hours – 1 '小时做一次减法minutes = 60 ’分钟重新计数End IfIf hours < 0 Then ’ 不能让小时小于零，所以当小时<0hours = 0 ’小时重新赋值为0End IfIf minutes < 0 Then ’不能让分钟小于零，所以当分钟<0minutes = 0 ’分钟重新赋值为0End If’下面一行为显示倒计时时间Label2.Text = CStr(hours) + "：" + CStr(minutes) + "：" + CStr(seconds)If seconds = 0 And minutes = 0 And hours = 0 Then’如果时钟、分钟、秒钟同时等于0 Timer1.Enabled = False ’那倒计时停止PlaySound(Form3.TextBox1.Text, 0, SND_LOOP Or SND_ASYNC)’开始播放提醒音乐End IfEnd Sub’下面一行为菜单栏中点击弹出《设置倒计时》窗体Private Sub MenuItem1_Click1(ByV al sender As Object, ByV al e As System.EventArgs) Handles MenuItem1.ClickForm2.ShowDialog() ’弹出Form2窗体End SubPrivate Sub MenuItem2_Click(ByV al sender As Object, ByV al e As System.EventArgs) Handles MenuItem2.ClickMe.Close() ’“退出”菜单End SubPrivate Sub Button1_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button1.ClickTimer1.Enabled = False ’Button控件，属性为停止MsgBox("当前倒计时为：" & Label2.Text) ’自动弹窗显示当前倒计时End SubPrivate Sub Button2_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button2.ClickMsgBox("请先设置倒计时！") ’当开始单击button2时，弹出提示“请先设置倒计时”Form2.ShowDialog() ’弹出form2窗体End Sub’下面几行为播放音乐功能的代码Public Declare Function PlaySound Lib "winmm.dll" (ByV al lpszSoundName As String, ByV al hModule As Integer, ByV al dwFlags As Integer) As IntegerConst SND_FILENAME As Integer = &H20000Const SND_ALIAS As Integer = &H10000Const SND_SYNC As Integer = &H0Const SND_ASYNC As Integer = &H1Const SND_LOOP As Integer = &H8Private Sub Button3_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button3.ClickTimer1.Enabled = True ’开始End SubPrivate Sub 音乐路径ToolStripMenuItem_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles 音乐路径ToolStripMenuItem.ClickForm3.ShowDialog() ’form3窗体弹出，设置音乐路径End SubEnd ClassForm2窗体代码：’下面是form2窗体的代码Public Class Form2Private Sub Form2_Load(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles MyBase.LoadMe.TopMost = True ’当打开此窗体时，位于所有窗体最前面End SubPrivate Sub Button1_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button1.Clickhours = CInt(TextBox1.Text) '这里是将分隔的小时赋给变量“hour s”minutes = CInt(TextBox2.Text) '这里是将分隔的分钟赋给变量“minute s”seconds = CInt(TextBox3.Text) '这里是将分隔的秒钟赋给变量“second s”bel2.Text = CStr(hours) + "：" + CStr(minutes) + "：" + CStr(seconds)Form1.Timer1.Enabled = TrueMe.Hide() ’完成上面命令时，隐藏窗体End SubPrivate Sub Button2_Click(ByV al sender As Object, ByV al e As System.EventArgs) Handles Button2.ClickMe.Close() ’窗体关闭End SubEnd ClassForm3窗体代码：Public Class Form3Private Sub Button1_Click(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles Button1.ClickMe.Hide() ’窗体隐藏End SubPrivate Sub Form3_Load(ByV al sender As System.Object, ByV al e As System.EventArgs) Handles MyBase.LoadMe.TopMost = True ’处于所有窗体最前面End SubEnd Class生成安装程序步骤使用vs2005来生成安装程序：第一步：在“解决方案资源管理器”中单击“倒计时”项目。

第二步：单击“文件”菜单---“添加”---“新建项目”在弹出的“添加新建项目”中选择“其他项目类型”---“安装与部署”，设置要安装程序的“名称”及“位置”，单击“确定”。

第三步：在“解决方案资源管理器”中选择“倒计时”项目。

在“文件系统编辑器”中，选择“应用程序文件夹”节点。

第四步：在“操作”菜单上指向“添加”，然后单击“项目输出”。