VB编辑时钟控件+倒计时+闹钟+背景图片+背景音乐
利用VB制作可设定时间的倒计时器
Ｐｒｖ ｔ Ｄｅｃａ ｅ ｉａｅ ｌ ｒ Ｆｕｎ ｔｏ ｃｉ ｎ Ｓ ｔ ｉ ｄｏ ｅ Ｗ ｎ ｗＰｏｓ Ｌｉ ” ｕｓ ｒ ” ｂ ｅ ３２
（ Ｖａ ｗｎ ｎ ， Ｂｙ ｌｈ ｄＡｓＬｏ ｇ
．３ Ｖａ Ｗ ｎ ｌｓｒＡｆｅ ｎ ， Ｖａ ｎ ， Ｊｙ ｌ ｈ ｄ ｎ ｅｔ ｔｒ ＡｓＬｏ ｇ Ｂｙ ｌ ＡｓＬｏ ｇ Ｘ ＿ Ｖａ ｏ ｇ Ｂｙ ｌ Ｘ ＡｓＬｏ ｇ Ｂｙ ｌ ＡｓＬ ｎ ， Ｖａ ｎ ， Ｙ Ｃ
个 重置按钮 可将 程序整 个运行 过程重新 开始 ，供 多次 重复
４ 窗 体 加 载 ． ２
Ｐｒｖ ｔ ｕｂ Ｆｏ ｍ Ｌ ａ ｉａｅＳ ｒ ｏｄ０
＿
使 用。同时 ，在 进行到最后 ３ 秒 时软 件会发 出一声警 报声 ； Ｏ
最后 １ ０秒 ，警报声 每秒 一次 直 至结束 ，用 来提 示参 与者 时
（ ） 设 置 ３个 Ｔｍｅ 控 件 。Ｔｍ ｒ 来 控 制 倒 计 时 ， ６ ｉ ｒ ｉｅｌ用 Ｔｍｅ ３ ｉ ｒ ｆ）用来激发警报声。 ２
存 放 ５个标 签 ；Ｆ２用 做 时 间输 入框 ，其 中存 放 ２个 文 本 框 和 ｒ ２ 标签 。 个
Ｅｎｄ Ｉ ｆ Ｉ ｆＳ＝ －１ Ｔｈｅ ｎ
（）添加 ３ 按钮 ，用作 “ ４ 个 开始 ” “ 置” “ 出”命 重 退
令。
ｍ ＝ｍ 一 １ ：Ｓ＝ ５ ９ Ｅｎｄ Ｉ ｆ
一
Ｂｙ ｌｃ ｎ ，Ｂ Ｖａ ｗＦ ａ ｓ Ａｓ Ｌ ｎ ） Ａｓ Ｖａ ｙ Ａｓ Ｌｏ ｇ ｙ ｌ ｌｇ ｏ ｇ
Ｌｏ ｎｇ Ｃｏｎｓ ｔＳＷ Ｐ ＮＯＭ Ｏ ＶＥ ： ＆ Ｈ ２
＿
２ 界面概 述
该软件主要利用标签 、按 钮 、计时器 、图像 框 、文本框 、 框架 等控件来制作 。在程序 的运行 时 ，首先 在文 本框 中输 入
VB2015编写时间小工具_倒顺计时_定时关机_闹钟等
PublicClass Form1Dim x, y, z AsBytePrivateSub Form1_Load(sender AsObject, e As EventArgs) HandlesMyBase.Loady = 0z = 0Dim thisDay AsInteger = Microsoft.VisualBasic.DateAndTime.Day(Now)'使用 Day 函数，可能需要用 Microsoft.VisualBasic 命名空间限定该函数，因为 System.Windows.Forms 命名空间将 Day 定义为枚举TextBox1.Text = 0TextBox2.Text = 0TextBox3.Text = 0TextBox5.Text = Year(Now)TextBox6.Text = Month(Now)TextBox7.Text = thisDayTextBox8.Text = Hour(Now)TextBox9.Text = Minute(Now)TextBox10.Text = Year(Now)TextBox11.Text = Month(Now)TextBox12.Text = thisDayTextBox13.Text = Hour(Now)TextBox14.Text = Minute(Now)EndSub'Private Sub AxMMControl1_BackClick(sender As Object, e As AxMCI.DmciEvents_BackClickEvent) Handles AxMMControl1.BackClick'使用COM有件中的:Microsoft Multimedia Contril (SP3) 音乐播放'End SubPrivateSub Button1_Click(sender AsObject, e As EventArgs) Handles Button1.ClickTimer1.Enabled = Truex = 1Button4.Enabled = FalseEndSubPrivateSub Button2_Click(sender AsObject, e As EventArgs) Handles Button2.Click'mand = "close" '使用COM有件中的:Microsoft Multimedia Contril (SP3) 音乐播放AxWindowsMediaPlayer1.close() ''使用COM有件中的Microsoft Media Player.这里是关闭播放x = 0EndSubPrivateSub Button3_Click(sender AsObject, e As EventArgs) Handles Button3.ClickOpenFileDialog1.InitialDirectory = "c:\"Dim result? AsBoolean = OpenFileDialog1.ShowDialog()If result = TrueThenTextBox4.Text = OpenFileDialog1.FileNameEndIf'AxMMControl1.FileName = TextBox4.Text '使用COM有件中的:Microsoft Multimedia Contril (SP3) 音乐播放EndSubPrivateSub Button4_Click(sender AsObject, e As EventArgs) Handles Button4.ClickTimer1.Enabled = Truex = 2Button1.Enabled = FalseEndSubPrivateSub Button5_Click(sender AsObject, e As EventArgs) Handles Button5.Clicky = 0x = 0z = 0TextBox1.Text = 0TextBox2.Text = 0TextBox3.Text = 0'mand = "close" '使用COM有件中的:Microsoft Multimedia Contril (SP3) 音乐播放 AxWindowsMediaPlayer1.close() ''使用COM有件中的Microsoft Media Player.这里是关闭播放 Button6.BackColor = Color.GoldButton6.ForeColor = Color.BlueButton6.Text = "启动"TextBox1.Enabled = TrueTextBox2.Enabled = TrueTextBox3.Enabled = TrueButton1.Enabled = TrueButton4.Enabled = TrueButton6.Enabled = TrueButton7.Enabled = TrueTextBox5.Enabled = TrueTextBox6.Enabled = TrueTextBox7.Enabled = TrueTextBox8.Enabled = TrueTextBox9.Enabled = TrueTextBox10.Enabled = TrueTextBox11.Enabled = TrueTextBox12.Enabled = TrueTextBox13.Enabled = TrueTextBox14.Enabled = TrueButton7.BackColor = Color.LimeButton7.ForeColor = Color.BlueButton7.Text = "启用"Label5.Text = "倒计时/顺计时时间:"Label5.ForeColor = Color.GreenEndSubPrivateSub Timer1_Tick(sender AsObject, e As EventArgs) Handles Timer1.TickIf x = 1 ThenTextBox1.Enabled = FalseTextBox2.Enabled = FalseTextBox3.Enabled = FalseLabel5.Text = "倒计时时间:"Label5.ForeColor = Color.RedIf TextBox1.Text <> 0 ThenTextBox1.Text -= 1EndIfIf (TextBox1.Text + TextBox2.Text + TextBox3.Text) <> 0 ThenIf TextBox1.Text = 0 ThenIf TextBox2.Text = 0 ThenTextBox1.Text = 60TextBox2.Text = 60TextBox3.Text -= 1EndIfIf TextBox2.Text <> 0 ThenTextBox1.Text = 60TextBox2.Text -= 1EndIfEndIfEndIfIf x = 1 Or x = 2 ThenIf (TextBox1.Text + TextBox2.Text + TextBox3.Text) = 0 ThenTimer1.Enabled = FalseTextBox1.Enabled = TrueTextBox2.Enabled = TrueTextBox3.Enabled = TrueButton1.Enabled = TrueButton4.Enabled = True'mand = "open" '使用COM有件中的:Microsoft Multimedia Contril (SP3) 音乐播放'mand = "play" '使用COM有件中的:Microsoft Multimedia Contril (SP3) 音乐播放AxWindowsMediaPlayer1.URL = TextBox4.Text '使用COM有件中的Microsoft Media Player.这里是播放的文件MsgBox("时间到!", 48, "提示!")Label5.Text = "倒计时/顺计时时间:"Label5.ForeColor = Color.GreenEndIfEndIfEndIfIf x = 2 ThenLabel5.Text = "顺计时时间:"Label5.ForeColor = Color.RedTextBox1.Enabled = FalseTextBox2.Enabled = FalseTextBox3.Enabled = FalseTextBox1.Text += 1If TextBox1.Text = 59 ThenTextBox1.Text = 0TextBox2.Text += 1If TextBox2.Text = 59 ThenTextBox2.Text = 0TextBox3.Text += 1EndIfEndIfEndIfEndSubPrivateSub Timer2_Tick(sender AsObject, e As EventArgs) Handles Timer2.TickDim a AsBytea = Weekday(Now)If a = 1 ThenLabel8.Text = "星期天"EndIfIf a = 2 ThenLabel8.Text = "星期一"EndIfIf a = 3 ThenLabel8.Text = "星期二"EndIfIf a = 4 ThenLabel8.Text = "星期三"EndIfIf a = 5 ThenLabel8.Text = "星期四"EndIfIf a = 6 ThenLabel8.Text = "星期五"EndIfIf a = 7 ThenLabel8.Text = "星期六"EndIfLabel6.Text = DateStringLabel7.Text = TimeStringDim thisDay AsInteger = Microsoft.VisualBasic.DateAndTime.Day(Now)If y = 1 ThenIf TextBox5.Text = Year(Now) ThenIf TextBox6.Text = Month(Now) ThenIf TextBox7.Text = thisDay ThenIf TextBox8.Text = Hour(Now) ThenIf TextBox9.Text = Minute(Now) Theny = 0Button7.BackColor = Color.LimeButton7.ForeColor = Color.BlueButton7.Text = "启用"Button7.Enabled = TrueTextBox5.Enabled = TrueTextBox6.Enabled = TrueTextBox7.Enabled = TrueTextBox8.Enabled = TrueTextBox9.Enabled = TrueAxWindowsMediaPlayer1.URL = TextBox4.Text MsgBox("闹钟时间到!", 48, "闹钟提示!") EndIfEndIfEndIfEndIfEndIfEndIfIf z = 1 ThenIf TextBox10.Text = Year(Now) ThenIf TextBox11.Text = Month(Now) ThenIf TextBox12.Text = thisDay ThenIf TextBox13.Text = Hour(Now) ThenIf TextBox14.Text = Minute(Now) Thenz = 0Button6.BackColor = Color.GoldButton6.ForeColor = Color.BlueButton6.Text = "启动"Button6.Enabled = TrueTextBox10.Enabled = TrueTextBox11.Enabled = TrueTextBox12.Enabled = TrueTextBox13.Enabled = TrueTextBox14.Enabled = TrueShell("shutdown.exe -f -s -t 3")'MsgBox("时间到!", 48, "错误提示!")EndIfEndIfEndIfEndIfEndIfEndIfEndSubPrivateSub TextBox1_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox1.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenTextBox2.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox1_LostFocus(sender AsObject, e As EventArgs) Handles TextBox1.LostFocusDim a AsStringa = Val(TextBox1.Text) 'Val'转换为数值型If TextBox1.Text <>""ThenIf a > 60 Or a < 0 ThenMsgBox("请输入正确的时间;0~60!", 48, "错误提示!")TextBox1.Focus() '重新获取焦点TextBox1.Text = ""EndIfEndIfEndSubPrivateSub TextBox2_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox2.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenTextBox3.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox2_LostFocus(sender AsObject, e As EventArgs) Handles TextBox2.LostFocusDim a AsStringa = Val(TextBox2.Text) 'Val'转换为数值型If TextBox2.Text <>""ThenIf a > 60 Or a < 0 ThenMsgBox("请输入正确的时间;0~60!", 48, "错误提示!")TextBox2.Focus() '重新获取焦点TextBox2.Text = ""EndIfEndSubPrivateSub TextBox3_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox3.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenButton1.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub Timer3_Tick(sender AsObject, e As EventArgs) Handles Timer3.TickEndSubPrivateSub Button6_Click(sender AsObject, e As EventArgs) Handles Button6.ClickDim a AsByteDim thisDay AsInteger = Microsoft.VisualBasic.DateAndTime.Day(Now)If Val(TextBox10.Text + TextBox11.Text + TextBox12.Text + TextBox13.Text + TextBox14.Text) >Val(Year(Now) & Month(Now) & thisDay & Hour(Now) & Minute(Now)) Thena = MsgBox("确认启用定时关机!", 305, "警示!")If a = vbOK Thenz = 1Button6.BackColor = Color.RedButton6.ForeColor = Color.BlackButton6.Text = "启动中"Button6.Enabled = FalseTextBox10.Enabled = FalseTextBox11.Enabled = FalseTextBox12.Enabled = FalseTextBox13.Enabled = FalseTextBox14.Enabled = FalseElsez = 0Button6.Enabled = TrueTextBox10.Enabled = TrueTextBox11.Enabled = TrueTextBox12.Enabled = TrueTextBox13.Enabled = TrueTextBox14.Enabled = TrueEndIfElseMsgBox("请输入正确的时间!", 48, "错误提示!")TextBox14.Focus() '重新获取焦点EndIfEndSubPrivateSub Button7_Click(sender AsObject, e As EventArgs) Handles Button7.ClickDim thisDay AsInteger = DateAndTime.Day(Now)If Val(TextBox5.Text + TextBox6.Text + TextBox7.Text + TextBox8.Text + TextBox9.Text) >Val(Year(Now) & Month(Now) & thisDay & Hour(Now) & Minute(Now)) Theny = 1MsgBox("请输入正确的时间!", 48, "错误提示!")TextBox9.Focus() '重新获取焦点EndIfIf y = 1 ThenButton7.BackColor = Color.CrimsonButton7.ForeColor = Color.BlackButton7.Text = "启用中"Button7.Enabled = FalseTextBox5.Enabled = FalseTextBox6.Enabled = FalseTextBox7.Enabled = FalseTextBox8.Enabled = FalseTextBox9.Enabled = FalseEndIfEndSub'Private Sub TextBox3_LostFocus(sender As Object, e As EventArgs) Handles TextBox3.LostFocus' Dim a As String' a = Val(TextBox3.Text) 'Val'转换为数值型' If TextBox3.Text <> "" Then' If a > 60 Or a < 0 Then' MsgBox("请输入正确的时间;0~60!", 48, "错误提示!")' TextBox3.Focus() '重新获取焦点' TextBox3.Text = ""' End If' End If'End SubPrivateSub TextBox5_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox5.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenTextBox6.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox5_LostFocus(sender AsObject, e As EventArgs) Handles TextBox5.LostFocusDim a AsStringa = Val(TextBox5.Text) 'Val'转换为数值型If TextBox5.Text <>""ThenIf a > 9999 Or a < Year(Now) ThenMsgBox("请输入正确的时间,当前年份~9999年!", 48, "错误提示!")TextBox5.Focus() '重新获取焦点TextBox5.Text = Year(Now)EndIfEndIfEndSubPrivateSub TextBox6_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox6.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenTextBox7.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox6_LostFocus(sender AsObject, e As EventArgs) Handles TextBox6.LostFocusDim a AsStringa = Val(TextBox6.Text) 'Val'转换为数值型If TextBox6.Text <>""ThenIf a > 12 Or a <= 0 ThenMsgBox("请输入正确的时间,1~12!", 48, "错误提示!")TextBox6.Focus() '重新获取焦点TextBox6.Text = Month(Now)EndIfEndIfEndSubPrivateSub TextBox7_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox7.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenTextBox8.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox7_LostFocus(sender AsObject, e As EventArgs) Handles TextBox7.LostFocusDim a AsStringDim thisDay AsInteger = DateAndTime.Day(Now)a = Val(TextBox7.Text) 'Val'转换为数值型If TextBox7.Text <>""ThenIf a > 31 Or a <= 0 ThenMsgBox("请输入正确的时间,1~31!", 48, "错误提示!")TextBox7.Focus() '重新获取焦点TextBox7.Text = thisDayEndIfEndIfEndSubPrivateSub TextBox8_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox8.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenTextBox9.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox8_LostFocus(sender AsObject, e As EventArgs) Handles TextBox8.LostFocusDim a AsStringDim thisDay AsInteger = DateAndTime.Day(Now)a = Val(TextBox8.Text) 'Val'转换为数值型If TextBox8.Text <>""ThenIf a > 23 Or a < 0 ThenMsgBox("请输入正确的时间,00~23!", 48, "错误提示!")TextBox8.Focus() '重新获取焦点TextBox8.Text = Hour(Now)EndIfEndIfEndSubPrivateSub TextBox9_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox9.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenButton7.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox9_LostFocus(sender AsObject, e As EventArgs) Handles TextBox9.LostFocusDim a AsStringDim thisDay AsInteger = DateAndTime.Day(Now)a = Val(TextBox9.Text) 'Val'转换为数值型If TextBox9.Text <>""ThenIf a > 59 Or a <= 0 ThenMsgBox("请输入正确的时间,00~59!", 48, "错误提示!")TextBox9.Focus() '重新获取焦点TextBox9.Text = Minute(Now)EndIfEndIfEndSubPrivateSub TextBox10_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox10.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenTextBox11.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox10_LostFocus(sender AsObject, e As EventArgs) Handles TextBox10.LostFocusDim a AsStringa = Val(TextBox10.Text) 'Val'转换为数值型If TextBox10.Text <>""ThenIf a > 9999 Or a < Year(Now) ThenMsgBox("请输入正确的时间,当前年份~9999年!", 48, "错误提示!")TextBox10.Focus() '重新获取焦点TextBox10.Text = Year(Now)EndIfEndIfEndSubPrivateSub TextBox11_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox11.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenTextBox12.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox11_LostFocus(sender AsObject, e As EventArgs) Handles TextBox11.LostFocusDim a AsStringa = Val(TextBox11.Text) 'Val'转换为数值型If TextBox11.Text <>""ThenIf a > 12 Or a <= 0 ThenMsgBox("请输入正确的时间,1~12!", 48, "错误提示!")TextBox11.Focus() '重新获取焦点TextBox11.Text = Month(Now)EndIfEndIfEndSubPrivateSub TextBox12_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox12.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenTextBox13.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox12_LostFocus(sender AsObject, e As EventArgs) Handles TextBox12.LostFocusDim a AsStringDim thisDay AsInteger = DateAndTime.Day(Now)a = Val(TextBox12.Text) 'Val'转换为数值型If TextBox12.Text <>""ThenIf a > 31 Or a <= 0 ThenMsgBox("请输入正确的时间,1~31!", 48, "错误提示!")TextBox12.Focus() '重新获取焦点TextBox12.Text = thisDayEndIfEndIfEndSubPrivateSub TextBox13_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox13.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing) If e.KeyChar = Chr(13) ThenTextBox14.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox13_LostFocus(sender AsObject, e As EventArgs) Handles TextBox13.LostFocusDim a AsStringDim thisDay AsInteger = DateAndTime.Day(Now)a = Val(TextBox13.Text) 'Val'转换为数值型If TextBox13.Text <>""ThenIf a > 23 Or a < 0 ThenMsgBox("请输入正确的时间,00~23!", 48, "错误提示!")TextBox13.Focus() '重新获取焦点TextBox13.Text = Hour(Now)EndIfEndIfEndSubPrivateSub TextBox14_KeyPress(sender AsObject, e As KeyPressEventArgs) Handles TextBox14.KeyPress Const xStr AsString = "0123456789"e.KeyChar = IIf(InStr(xStr & Chr(8) & Chr(13), e.KeyChar.ToString), e.KeyChar, Nothing)If e.KeyChar = Chr(13) ThenButton6.Focus()' Call Command1_Click 回车键事件,这里调用按键1内的单击事件EndIfEndSubPrivateSub TextBox14_LostFocus(sender AsObject, e As EventArgs) Handles TextBox14.LostFocus Dim a AsStringDim thisDay AsInteger = DateAndTime.Day(Now)a = Val(TextBox14.Text) 'Val'转换为数值型If TextBox14.Text <>""ThenIf a > 59 Or a <= 0 ThenMsgBox("请输入正确的时间,00~59!", 48, "错误提示!")TextBox14.Focus() '重新获取焦点TextBox14.Text = Minute(Now)EndIfEndIfEndSubEndClass。
javascript特效--制作背景电子钟（整点时祝贺生日快乐）
javascript特效--制作背景电⼦钟（整点时祝贺⽣⽇快乐）1 <!DOCTYPE html>2 <html lang="en">3 <head>4 <meta charset="UTF-8">5 <title>背景时钟</title>67 </head>8 <body>9 <p id="bgclockshade" style="position:absolute;visibility:visible;font-family:Verdana;color:#FFAAAA;font-size:100px;top:10px;left:152px"> </p> 10111213 <script type="text/javascript">1415function clockDemo(){16//先获得时间17var time=new Date();18var hour=time.getHours(); //时19var minute=time.getMinutes(); //分20var second=time.getSeconds(); //秒2122if(eval(hour)<10) hour="0"+hour; //如果不满1023if(eval(minute)<10) minute="0"+minute;24if(eval(second)<10) second="0"+second;25var timeStr=hour+":"+minute+":"+second;26if(eval(hour)==0 && eval(minute)==0 && eval(second)==0) alert("⽣⽇快乐！");2728var bgclockshade=document.getElementById("bgclockshade");29303132 bgclockshade.innerHTML=timeStr;333435var timer= setTimeout("clockDemo()",200); //没0.2秒刷新时间3637 }3839 clockDemo(); //启动⼊⼝40 </script>4142 </body>43 </html>。
用VB设计一个定时闹钟程序
用VB设计一个定时闹钟程序使用win98的人一定知道其中有一个“计划任务"的应用程序,它能够到指定时间便开始工作。
不要认为它很神秘,其实用VB来设计这样一个程序是非常容易的事,以下是一个简单的VB 闹钟程序,可供各位使用VB的朋友参考,如有何不适之处,请多指点!首先在form1上建立三个命令按钮,分别为command1(打开预启动的文件);command2(设定时间的按钮);第三个command3(即可启动)按钮可有可无;一个label1用来显示你预打开的文件名的路径；一个lbltime用来显示现在的时间；还有一个common dialog,它在工程菜单的部件中，你可把它加到工具箱中再开始使用;关于对话框你不必自己建，只要从应用程序向导中添加即可;一个timer,它的interval=500。
其次在form1的属性中设置为:startupposition=2－centerscreen和maxbutton=false;label1的属性中设置为：alignment=2－center。
外观大致是如图所示：下面我们开始编程：Option ExplicitDim AlarmTime'申明变量－－－－－－－－－Private Sub Command1_Click()Call dialog'调用dialog子程序End Sub－－－－－－－－Private Sub Command2_Click()AlarmTime = InputBox(“请输入你想设定的时间,例如(19:12:00)", “小闹钟")If AlarmTime = “" Then Exit SubIf Not IsDate(AlarmTime) ThenMsgBox “你所输入的不是时间格式,请重试!", ,“Wrong"ElseAlarmTime = CDate(AlarmTime)End If'判断输入的是否可转换成time格式'isdate函数是判断输入的是否可转换成date格式End Sub－－－－－－－－－－－－－－Private Sub Command3_Click()Call deng'调用deng子程序End Sub－－－－－－－－－－－－－－－Private Sub Form_Click()frmAbout.Show'显示关于对话框End Sub－－－－－－－－－－－－－Private Sub Form_Load()Command3.Enabled = 0AlarmTime = “"'初始化时command3为不可用的End Sub－－－－－－－－－－－－－－－Private Sub Form_Resize()If WindowState = 1 Thenmintimeelsecaption=“小闹钟"End If'如果窗口被最小化,则调用mintime程序End Sub－－－－－－－－－－－－－－－Private Sub mintime()Caption = Format(Time, “long Time")'使用长时间格式来显示时间End Sub－－－－－－－－－－－－－－－Private Sub Timer1_Timer()If lblTime.Caption <> CStr(Time) ThenlblTime.Caption = TimeEnd If'显示时间每秒钟的变化If Time >= AlarmTime ThenCall dengEnd If'判断如果现在的时间超过了设定的时间,则调用deng子程序If WindowState = 1 ThenIf Minute(CDate(Caption)) <> Minute(Time) ThenmintimeEnd IfEnd If'最小化时显示时间每分钟的变化End Sub－－－－－－－－－－－－－Sub dialog()CommonDialog1.Flags = cdlCFBothCommonDialog1.ShowOpenLabel1.Caption = CommonDialog1.filenameIf Label1 <> “" ThenCommand3.Enabled = －1ElseExit SubEnd If'把打开的文件名给于label1'如果label1不为空时,则command3即可用End Sub－－－－－－－－－－－－－－Sub deng()Dim ssss = Shell(Label1.Caption, 1)End'启动指定的文件,并且结束小闹钟程序End Sub最后在about对话框中要提的是：在form_load中app.title表示你的应用程序的名字；app.major、minor、revision是关于应用程序的版本信息；lblDescription.Caption 用于对本程序的一些说明描述之类的话；lblDisclaimer.Caption用于版权信息或警告等。
VB倒计时代码发出BEEP声音
VB倒计时代码发出BEEP声音自己定义时间 10分钟 5分钟或者其它整数时间不超过一小时二个文本框T1，T2,T1用来设定时间的，T2用来显示时间。
二个按钮C1,C2，C1用来启动计时，C2停止并可以重新设置时间，还要画一个计时器用于计时用Private Sub C1_Click()If T1.Text = "" ThenMsgBox "请重新输入", vbCriticalElseT1.Enabled = FalseTr1.Enabled = TrueT2.Text = 0End IfEnd SubPrivate Sub C2_Click()T1.Enabled = TrueTr1.Enabled = FalseT2.Text = 0End SubPrivate Sub Tr1_Timer()If T2.Text = T1.Text ThenBeepTr1.Enabled = FalseMsgBox "时间到", vbOKOnlyT2.Text = 0Else: T2.Text = T2.T ext + 1End IfEnd SubPublic JSjs As Integer '计时时间Public date1 As String '起始时间Private Sub Command6_Click()Timer1.Enabled = Truedate1 = ""End SubPrivate Sub Form_Load()Timer1.Enabled = FalseJSjs = 10 '计时10分钟End SubPrivate Sub Timer1_Timer()If date1 = "" Thendate1 = Format(Now, "yyyy-MM-dd hh:mm:ss") End IfIf DateDiff("n", date1, Now) >= JSjs Then MsgBox "时间到"Timer1.Enabled = FalseEnd IfEnd Sub。
闹铃软件VB源码+设计思路
闹铃软件D2.0版（附界面，VB源码）——值得参考的VB源码作者：西门吹雪本文适用于初，中级VB程序设计爱好者做研究参考。
高级程序设计者及精通API的飘过，看懂这个程序后相信你能很熟练VB。
笔者认为：程序设计主要靠两方面的能力，一是技术，二是思路。
技术上的问题，都不是问题；自己的思路则是你成功的首要前提。
本程序的一些巧妙的设计可以为大家提供借鉴。
下面先介绍一下主要功能吧：1·启动定时后，时间到后播放器开始播放音乐；2·支持用户自定义歌曲；3·程序自动记录用户信息：歌曲列表，所定时间，选项，主题等，重启程序时加载用户信息；4·简单数据库记录歌曲路径等；5·支持用户定两个时间；6·用户点击关闭时询问；7·用户点击最小化按钮时，最小化到托盘；8·实现托盘菜单；9·支持顺序播放音乐列表。
10·实现标准时间显示以下是本程序的界面截图：1·托盘图标及托盘菜单（实现最小化到托盘）2·主菜单截图3·音乐框菜单截图（实现列表框右键选中项目）4·退出询问截图（实现关闭程序不直接退出）5·主界面截图主程序代码：'***********************************发送按键Private Declare Sub keybd_event Lib "user32" (ByV al bVk As Byte, ByV al bScan As Byte, ByV al dwFlags As Long, ByV al dwExtraInfo As Long)Const KEYEVENTF_KEYUP = &H2'************************************Option ExplicitPrivate Declare Function LockWorkStation Lib"user32.dll" () As Long'变量列表：a1,b1,c1,d1,d2,c3,d3,n,mDim a1 As String, b1 As String, c1 As String, d1 As StringDim d2 As String, c3 As Integer, d3 As String, n, shun As IntegerDim m, picu As String'************用户数据数组'变量列表：pta,mpn,lb1,lb2,op1,op2,conPrivate Type configpic As String '背景pta As String '用户路径mpn As String '歌曲名字lb1 As String '时间1lb2 As String '时间2op1 As Integer '开关1op2 As Integer '开关2End TypeDim con As config'歌曲信息数组'变量列表：nam,pth,patPrivate Type lujingnam As String * 16pth As String * 64End TypeDim pat As lujingDim thr As Integer'********************************************* ****API实现右键选中Private Declare Sub mouse_event Lib "user32" (ByV al dwFlags As Long, ByV al dx As Long, ByV al dy As Long, ByV al cButtons As Long, ByV al dwExtraInfo As Long)Const MOUSEEVENTF_LEFTDOWN = &H2Const MOUSEEVENTF_LEFTUP = &H4'载入自动编码函数（原创）'变量列表：mnFunction bianma(name As String) As IntegerDim mn As StringIf name = "" Then bianma = 1000If name <> "" Thenmn = Asc(Left(name, 1)) & Asc(Right(name, 1)) &Len(name)bianma = Abs(Mid(mn, 2, 1) & Right(mn, 1) & Len(mn) & Mid(mn, Fix(Len(mn) / 2), 1))End IfEnd Function'载入判断文件类型函数，成员为文件全名（原创）。
VB时钟屏保代码
下面是这个时钟屏保的界面做这个用到的控件只有一个计时器（Timer）和一个标签（Label）Public Class Form1Dim xc As Integer '时钟的中心点横坐标Dim yc As Integer '时钟的中心点纵坐标Dim OffsetX As Integer = 15 '滚动字幕初始位置Dim Offset As Integer = 15 '滚动字幕的偏移量Dim x1, y1 As IntegerDim x2, y2 As IntegerDim i As Integer = 0Dim n As Integer = 0Dim ss, mm, hh As Single '当前的时、分、秒数值Dim whattime As Date '时间Dim hlength As Integer = 100 '时针的长度Dim mlength As Integer = 120 '分针的长度Dim slength As Integer = 150 '秒针的长度Dim spen As New Pen(Color.Red, 2) '秒针的画笔Dim mpen As New Pen(Color.Gold, 3) '分针的画笔Dim hpen As New Pen(Color.Chocolate, 4) '时针的画笔Dim mypen As New Pen(Color.Blue, 3)Dim mbrush As New SolidBrush(Color.Green)Dim mfont As Font = Me.FontDim x3, y3, x4, y4, x5, y5, x6, y6 As Integer'时、分、秒三条指针的末端坐标Dim R As Integer = 200Dim L As Integer = 40Dim s As Integer = 25Dim qq As Integer'下面这句是使得时钟的中心点的位置在屏幕的中心Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Loadxc = Me.Width / 2yc = Me.Height / 2End Sub'下面是计时器的代码Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick'在计时器里的代码主要分两部分，一部分是上面的滚动字幕的代码，另一部分则是生成时钟图案的代码Dim mfont As Font = New Font(New FontFamily("黑体"), 20)'两个IF语句使得字幕可以在顶部左右滚动If (Label1.Left < 0) ThenOffsetX = +OffsetEnd IfIf (Label1.Right >= Me.Width) ThenOffsetX = -OffsetEnd IfLabel1.Left = Label1.Left + OffsetXDim mystr As String '声明一个用于显示时间的字符串mystr = Format(Now(), "long date") + Format(Now(), "long time") '把当前时间赋给字符串 Label1.Text = "我的屏保程序" + mystr'下面这段可以使得字幕的颜色可以不断地变换Dim fontcolor() As Color = {Color.Red, Color.Crimson, Color.Cyan, Color.Brown,Color.BlueViolet}Label1.ForeColor = fontcolor(n)If n = 0 Thenn = 1ElseIf n = 1 Thenn = 2ElseIf n = 2 Thenn = 3ElseIf n = 3 Thenn = 4Elsen = 0End If'下面开始“画”时钟Dim g As Graphics = Me.CreateGraphics() '先声明一个画板g = Me.CreateGraphicsg.Clear(Me.BackColor) '刷新画面' Me.Refresh()'下面这段“画”数字和数字旁的那些小线段的代码For i = 0 To 11x1 = CInt(xc + R * Math.Cos(i * 3.14 / 6))y1 = CInt(yc + R * Math.Sin(i * 3.14 / 6))x2 = CInt(xc + (R + L) * Math.Cos(i * 3.14 / 6))y2 = CInt(yc + (R + L) * Math.Sin(i * 3.14 / 6))g.DrawLine(mypen, x1, y1, x2, y2)If i <= 9 Theng.DrawString(i + 3, mfont, mbrush, CInt(xc + (R + L + s) * Math.Cos(i * 3.14 / 6)), CInt(yc + (R + L + s) * Math.Sin(i * 3.14 / 6)))Else : g.DrawString(i - 9, mfont, mbrush, xc + (R + L + s) * Math.Cos(i * 3.14 / 6), yc + (R + L + s) * Math.Sin(i * 3.14 / 6))End If'下面是画三条指针的代码Nextwhattime = DateTime.Nowss = whattime.Secondmm = whattime.Minutehh = whattime.Hourx3 = xc + slength * Math.Cos(1.5 * 3.14 + ss * 3.14 / 30)y3 = yc + slength * Math.Sin(1.5 * 3.14 + ss * 3.14 / 30)g.DrawLine(spen, xc, yc, x3, y3)mm = mm + ss / 60x4 = xc + mlength * Math.Cos(1.5 * 3.14 + mm * 3.14 / 30)y4 = yc + mlength * Math.Sin(1.5 * 3.14 + mm * 3.14 / 30)g.DrawLine(mpen, xc, yc, x4, y4)hh = hh + mm / 60x5 = xc + hlength * Math.Cos(1.5 * 3.14 + hh * 3.14 / 6)y5 = yc + hlength * Math.Sin(1.5 * 3.14 + hh * 3.14 / 6)g.DrawLine(hpen, xc, yc, x5, y5)'下面是“画”的外圈的代码qq = whattime.Secondx6 = xc + slength * Math.Cos(2.5 * 3.14 + qq * 3.14 / 30)y6 = yc + slength * Math.Sin(2.5 * 3.14 + qq * 3.14 / 30)Dim p As Graphics = CreateGraphics()Dim jpen As New Pen(Color.Coral)jpen.Width = 5p.DrawEllipse(jpen, x6, y6, 30, 30)Dim vpen As New Pen(Color.Blue)vpen.Width = 20g.DrawEllipse(vpen, xc - 280, yc - 280, 600, 600)End SubPrivate Sub Form1_MouseClick(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles Me.MouseClickEndEnd SubPrivate Sub Form1_MouseMove(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.MouseEventArgs) Handles Me.MouseMoveEnd Sub End Class。
基于VB6.0的钟表设计
目录摘要 (iii)第1章概述 (1)1.1 引言 (1)1.2 设计平台 (1)第2章开发工具简介 (2)2.1 VisualBasic6.0简介 (2)2.2 运用的控件和主要对象 (3)3.1主窗体 (4)Private Sub qiyong_Click() (5)3.2时钟窗体 (6)3.3屏幕保护窗体 (10)第4章结束语 (12)参考文献 (13)摘要Visual Basic（VB）是一种由微软公司开发的包含协助开发环境的事件驱动编程语言，从任何标准来说，VB都是世界上使用人数最多的语言。
它是一种面向对象的可视化程序设计语言，提供了集界面设计、编写代码和程序调试等于一体的集成开发环境。
VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
本文通过动画式时钟的设计与实现，，同时说明了在VB环境下开发应用程序的思路和步骤。
关键词：程序设计；时钟；Visual Basic6.0；界面第1章概述1.1 引言visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。
随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了用户更加方便的，更加有舒适的心情，设计出一个比较舒心的时钟显示。
1.2 设计平台VB全称Visual Basic,它是以Basic语言作为其基本语言的一种可视化编程工具。
它继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。
随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户更加地使用舒心。
第2章开发工具简介2.1 VisualBasic6.0简介Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Private Sub Check1_Click()WindowsMediaPlayer1.Controls.pauseEnd SubPrivate Sub Check2_Click()WindowsMediaPlayer1.Controls.playEnd SubPrivate Sub Check3_Click()WindowsMediaPlayer1.Controls.stopEnd SubPrivate Sub Command1_Click()Timer1.Interval = 1000Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer2.Enabled = TrueTimer2.Interval = 1000End SubPrivate Sub Form_Load()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp1.jpg") End SubPrivate Sub Timer1_Timer()Static X!, Y!, Z!, a%, b%, c%, q%, w%, E%Const n = 3.141592653Command1.Visible = FalsePicture1.ClsPicture1.Scale (-1000, 1000)-(1000, -1000)Picture1.Circle (0, 0), 900Dim l As DoubleDim r As DoubleFor i = 0 To 60l = (1 - Sin(i / 60 * 2 * 3.1415926)) * 900 - 900r = (1 - Cos(i / 60 * 2 * 3.1415926)) * 900 - 900Picture1.DrawWidth = 3Picture1.PSet (l, r)Picture1.DrawWidth = 4Next iPicture1.PSet (0, 0)Picture1.CurrentX = -100: Picture1.CurrentY = 850Picture1.FontSize = 25Picture1.Print "12"Picture1.CurrentX = -40: Picture1.CurrentY = -690Picture1.Print "6"Picture1.CurrentX = -850: Picture1.CurrentY = 80Picture1.Print "9"Picture1.CurrentX = 700: Picture1.CurrentY = 100Picture1.Print "3"Picture1.FontSize = 18Picture1.CurrentX = 360: Picture1.CurrentY = 740Picture1.Print "1"Picture1.CurrentX = 650: Picture1.CurrentY = 450Picture1.Print "2"Picture1.CurrentX = 630: Picture1.CurrentY = -320Picture1.Print "4"Picture1.CurrentX = 360: Picture1.CurrentY = -600Picture1.Print "5"Picture1.CurrentX = -430: Picture1.CurrentY = 740Picture1.Print "11"Picture1.CurrentX = -750: Picture1.CurrentY = 440Picture1.Print "10"Picture1.CurrentX = -700: Picture1.CurrentY = -360Picture1.Print "8"Picture1.CurrentX = -370: Picture1.CurrentY = -610Picture1.Print "7"Picture1.DrawWidth = 1X = Second(Time) * 2 * n / 60Y = Minute(Time) * 2 * n / 60Z = Hour(Time) * 2 * n / 12Picture1.Line (0, 0)-(800 * Sin(X), 800 * Cos(X))Picture1.Circle (700 * Sin(X), 700 * Cos(X)), 50Picture1.Line (0, 0)-(600 * Sin(Y), 600 * Cos(Y)), QBColor(5)Picture1.Line (0, 0)-(400 * Sin(Z), 400 * Cos(Z)), QBColor(12)h = Year(Now)i = Month(Now)j = Day(Now)k = Hour(Now)l = Minute(Now)m = Second(Now)Label10.Caption = h & "-" & i & "-" & jLabel11.Caption = k & ":" & l & ":" & mu = Weekday(Now)Select Case uCase 1Label8.Caption = "一"Case 2Label8.Caption = "二"Case 3Label8.Caption = "三"Case 4Label8.Caption = "四"Case 5Label8.Caption = "五"Case 6Label8.Caption = "六"Case 7Label8.Caption = "日"End SelectEnd SubPrivate Sub Timer2_Timer()Dim z1, z2, z3, z4, z5, z6, z7, z8, z9, z10%z1 = V al(Text1.Text)z2 = V al(Text2.Text)z3 = V al(Text3.Text)z4 = V al(Text4.Text)z5 = V al(Text5.Text)z6 = V al(Text6.Text)date1 = DateSerial(z1, z2, z3)date2 = DateSerial(Year(Now), Month(Now), Day(Now))z7 = DateDiff("d", date2, date1)time1 = TimeSerial(z4, z5, z6)time2 = TimeSerial(Hour(Now), Minute(Now), Second(Now)) z8 = DateDiff("h", time2, time1)z9 = DateDiff("n", time2, time1) - z8 * 60z10 = DateDiff("s", time2, time1) - z9 * 60 - z8 * 3600If z2 > 12 Or z3 > 31 Or z4 > 23 Or z5 > 59 Or z6 > 59 Then q = MsgBox("输入有误，请重新输入", , "出错")Print qEnd IfIf z10 < 0 Thenz9 = z9 - 1z10 = 60 + z10End IfIf z9 < 0 Thenz8 = z8 - 1z9 = 60 + z9End IfIf z8 < 0 Thenz7 = z7 - 1z8 = 24 + z8End IfLabel14.Caption = z7 & "天" & z8 & "小时" & z9 & "分" & z10 & "秒"If z7 = 0 And z8 = 0 And z9 = 0 And z10 = 0 ThenMsgBox "时间到", , "倒计时"WindowsMediaPlayer1.URL = App.Path & "\music\" & "dd.mp3" Timer2.Enabled = FalseEnd IfEnd SubPrivate Sub tp1_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp6.jpg") End SubPrivate Sub tp2_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp2.jpg") End SubPrivate Sub tp3_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp3.jpg") End SubPrivate Sub tp4_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp4.jpg") End SubPrivate Sub tp5_Click()Picture1.Picture = LoadPicture(App.Path & "\images\" & "tp5.jpg") End SubPrivate Sub yy1_Click()WindowsMediaPlayer1.URL = App.Path & "\music\" & "He's a Pirate.mp3" End SubPrivate Sub yy2_Click()WindowsMediaPlayer1.URL = App.Path & "\music\" & "apologize.mp3" End SubPrivate Sub yy3_Click()WindowsMediaPlayer1.URL = App.Path & "\music\" & "Heartbeats.mp3" End Sub。