vb.net设置时间的简单介绍
vb.net关于时间和savesetting的问题
1、如果要设置时间变量应该这样:
我们提供的服务有:做网站、成都网站建设、微信公众号开发、网站优化、网站认证、江华ssl等。为近千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的江华网站制作公司
Dim a As Date = Date.FromOADate(24 / 9 / 2010)
2、Sub SaveSetting(ByVal AppName As String, ByVal Section As String, ByVal Key As String, ByVal Setting As String)
此函数只能在注册表的“HKEY_CURRENT_USER\Software\VB and VBA Program Settings\”创建应用程序的参数设置,这个函数是从VB6继承过来的,是为了升级vb6代码而使用的。函数中的AppName为项目名,Section为节点,Key为键名,Setting为键值。例如SaveSetting("MyName","Section1","MainKey","Settingvalue")将会在“HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyName”创建一个节点"Section1",并在Section1下创建一个键名为"MainKey",值为"Settingvalue"的键。
至于如何保存RadioButton的值,可以先用"CStr"函数或"CInt"函数将RadioButton是否被选中的Boolean值转换为String或Integer,再使用SaveSetting函数存入注册表。注意:当使用Cstr函数转换Boolean时,如果Boolean为“真”,转换的String就是“True”,反之则是“False”,转换为Integer是0代表假,1代表真。
不知是否详细。
VB.net 如何设定准确的1秒时间?
form 的load事件中加一句:timer1.interval=1000
在一个按钮里面加入一句触发timer事件开始计时的代码:
timer1.enabled=true
timer的tick事件中加入这么两句:
textbox1.backcolor=color.red
timer1.enabled=false
VB.NET中怎么实现当时间达到设定时间时响铃??急急急。。在线等!谢谢了,大神帮忙啊
首先在form1上建立三个命令按钮,分别为command1(打开预启动的文件);command2(设定时间的按钮);第三个command3(即可启动)按钮可有可无;一个label1用来显示你预打开的文件名的路径;一个lbltime用来显示现在的时间;还有一个commondialog,它在工程菜单的部件中,你可把它加到工具箱中再开始使用;关于对话框你不必自己建,只要从应用程序向导中添加即可;一个timer,它的interval=500。 其次在form1的属性中设置为:startupposition=2-centerscreen和maxbutton=false;label1的属性中设置为:alignment=2-center。 外观大致是如图所示: 下面我们开始编程: OptionExplicit DimAlarmTime '申明变量 --------- PrivateSubCommand1_Click() Calldialog '调用dialog子程序 EndSub -------- PrivateSubCommand2_Click() AlarmTime=InputBox(“请输入你想设定的时间,例如(19:12:00)",“小闹钟") IfAlarmTime=“"ThenExitSub IfNotIsDate(AlarmTime)Then MsgBox“你所输入的不是时间格式,请重试!",,“Wrong" Else AlarmTime=CDate(AlarmTime) EndIf '判断输入的是否可转换成time格式 'isdate函数是判断输入的是否可转换成date格式 EndSub -------------- PrivateSubCommand3_Click() Calldeng '调用deng子程序 EndSub --------------- PrivateSubForm_Click() frmAbout.Show '显示关于对话框 EndSub ------------- PrivateSubForm_Load() Command3.Enabled=0 AlarmTime=“" '初始化时command3为不可用的 EndSub --------------- PrivateSubForm_Resize() IfWindowState=1Then mintime else caption=“小闹钟" EndIf '如果窗口被最小化,则调用mintime程序 EndSub --------------- PrivateSubmintime() Caption=Format(Time,“longTime") '使用长时间格式来显示时间 EndSub --------------- PrivateSubTimer1_Timer() IflblTime.CaptionCStr(Time)Then lblTime.Caption=Time EndIf '显示时间每秒钟的变化 IfTime=AlarmTimeThen Calldeng EndIf '判断如果现在的时间超过了设定的时间,则调用deng子程序 IfWindowState=1Then IfMinute(CDate(Caption))Minute(Time)Then mintime EndIf EndIf '最小化时显示时间每分钟的变化 EndSub ------------- Subdialog() CommonDialog1.Flags=cdlCFBoth CommonDialog1.ShowOpen Label1.Caption=CommonDialog1.filename IfLabel1“"Then Command3.Enabled=-1 Else ExitSub EndIf '把打开的文件名给于label1 '如果label1不为空时,则command3即可用 EndSub -------------- Subdeng() Dimss ss=Shell(Label1.Caption,1) End '启动指定的文件,并且结束小闹钟程序 EndSub 最后在about对话框中要提的是:在form_load中app.title表示你的应用程序的名字;app.major、minor、revision是关于应用程序的版本信息;lblDescription.Caption用于对本程序的一些说明描述之类的话;lblDisclaimer.Caption用于版权信息或警告等。 好了,至此我们已完成了一个简单的VB程序的编写,希望你能设计出更好的闹钟程序来!
vb.net datetime怎么显示时分秒
将datePicker设置为该日期,这样就可以确保每次从nib中加载此视图时,选取器都会重置为当前得日期和时间就可以了。
文章标题:vb.net设置时间的简单介绍
地址分享:http://pwwzsj.com/article/hdsgjc.html