资源描述：
《vb教程-定时闹钟程序（vb tutorial - timer alarm program）》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、vb教程-定时闹钟程序（VBtutorial-timeralarmprogram）ThirddaytimeralarmprogramLittlemushroom:Jinglesister,doyouknowtheplanandtheworkingprincipleofWindows?Itcanstartthecorrespondingworkattheappointedtime.It'sveryconvenient.TinkerBell:don'tthinkit'smysterious.Actually
2、,it'sveryeasytodesignsuchaprogramwithVB.Whydon'tyouteachyouhowtomakeasimpleclockprogramtoday?Sothatyoucanarriveattheappointedtimeandthenruntheprogramautomatically.Whatdoyouthinkofit?Smallmushroom:OK,OK.Hurryup.TinkerBell:firstyouneedtoaddthecontrolsthatt
3、heprogramneeds.1,buildanewproject,setthestartuppositionattributeofForm1to2-centerscreen,andsetthemaxbuttonpropertytoFalse".Afterthisprogramruns,thewindowappearsinthemiddleofthescreen,andthemaximizebuttonisinaninvalidstate.2,addthreeCommandButtonintheForm
4、1window,changetheirCaptionattributesto"presetfile","settime","instantstart"and"exit",respectively".3,placeaLabelcontrolbehindthedefaultfilebuttontodisplaythedefaultfilepathandname,andsetitsCaptionpropertytonull.4,placethethreeLabelcontrolsbehindthesettim
5、ebutton,wheretheCaptionpropertyofLabel2andLabel4issettonull,andtheCaptionpropertyoftheLabel3controlissettothecurrenttime:".5,addacommondialogcontrol,butdon'tforgettoaddittothetoolboxfromthecomponentaddwindow.6,addaTimercontrol,anditsintervalpropertyisset
6、to500.Afterallcontrolsareadded,thesettingsshouldbeshownasshown.Smallmushrooms:sosimpleafewcontrolscanachievethefunctionoftimingalarmclock?Doraemon:don'tunderestimatethefunctionoftheVB,readthefollowingcode.1,double-clicktheForm1window,andselectthegenerico
7、bject,enterthefollowinggeneralcode:OptionExplicitDimAlarmTime/declarevariables2,double-clickthepresetfilebuttonandenterthefollowingcode:Private,Sub,Command1_Click()Calldialog/calldialogsubroutineEndSub3,double-clickthesetuptimebuttonandenterthefollowingc
8、ode:Private,Sub,Command2_Click()AlarmTime=InputBox(enterthetimeyouwanttoset,forexample,(19:12:00),smallalarmclock)IfAlarmTime="Then"ExitSubTheIfNotIsDate(AlarmTime)Then/isdatefunctiondetermineswhethertheinputcanbeconverted
