【VB开源代码栏目提醒】：网学会员在VB开源代码频道为大家收集整理了“vb大作业定时器 - 编程语言“提供大家参考，希望对大家有所帮助!

Vb 大作业定时器一、 设计思路 本次设计的 vb 小程序定时器，分为四个部分： Command1——请选择打开的程序 打开与启动的文件本次格式为 exe、bat、com 等 command2——请输入预置的时间设定时间的部分 Lbltime 在程序调用的小闹钟来显示时间 Label1 来显示文件名的路径二、 设计目的 选择扩展名为 exe、obj、excel 等的文件，在一个预置的时间的控制下定时打开。

    三 总体结构图1 总结图及介绍 定时器 Comman comman Lbltime Label1请选择打开的程序 请输入预置的时间 显示时间 文件的路径2 模块运行界面的介绍红色部分是显示时间的，绿色为文件的路径，左边的中文文字为请选择打开程序的提示文字，右边的中文文字为输入预置时间四 设计结果程序运行及结果五 设计总结及学习体会 Vb 程序语言课是一门较难的编程语言课，需要我们理解和掌握的东西比较多，而我们的基础知识比较薄弱，在学习的过程中因为没明显的利害关系遇到很多疑问和难题都没有深究，经过本次大作业的熏陶和磨砺使我在 vb 程序方面成长了不少，本次设计参考了 Vb 编程技巧 280 例，从中学到了很多编程经验。

     由于本人经验和水平的限制，本次设计的定时器不足的地方是对打开文件类型有很强的限制，希望有兴趣的爱好者改进能够弥补这一不足。

    六 附录Form1 的 属 性 中 设 置 为 ： startupposition2-centerscreen 和maxbuttonfalse:Label1 的属性中设置为：alignment2-center。

    Timer 的 interval500其他默认源代码Option ExplicitDim altimePrivate Sub Command1_ClickCall dialogEnd SubPrivate Sub Command2_Clickaltime InputBox请输入想设定的时间If altime ThenExit SubEnd IfIf Not IsDatealtime ThenMsgBox 时间格式不对，请重试Elsealtime CDatealtimeEnd IfEnd SubPrivate Sub Command3_ClickCall dengEnd SubPrivate Sub Form_LoadCommand3.Enabled Falsealtime End SubPrivate Sub Form_ResizeIf WindowState 1 ThenmintimeElseCaption 小闹钟End IfEnd SubPrivate Sub mintimeCaption FormatTime long timeEnd SubPrivate Sub Timer1_TimerIf Label2.Caption CStrTime ThenLabel2.Caption TimeEnd IfIf Time altime ThenCall dengEnd IfIf WindowState 1 ThenIf MinuteCDateCaption MinuteTime ThenmintimeEnd IfEnd IfEnd SubSub dialogCommonDialog1.Flags cdlOFNCreatePromptCommonDialog1.ShowOpenLabel1.Caption CommonDialog1.FileNameIf Label1 ThenCommand3.Enabled -1ElseExit SubEnd IfEnd SubSub dengDim ssss ShellLabel1.Caption 1EndEnd Sub