vb.net逝去时间的简单介绍

vb.net关于时间和savesetting的问题

1、如果要设置时间变量应该这样：

网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、微信小程序开发、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了鄂温克免费建站欢迎大家使用！

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关于时间的问题。我用Vb.net的GetTickCount取时间，计算时间差，编的程序是不是出错了？

干嘛不直接用系统时间呢？

在start按下时 textbox4.text=now

在stop按下时 textbox5.text=now

VB.net做计时器。。。

加个timer，两个label，以下是代码:

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Label1.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label2.Text = Format(Now(), "yyyy-MM-dd HH:mm:ss")

If DateDiff(DateInterval.Hour, DateTime.Parse(Label1.Text), DateTime.Parse(Label2.Text)) = 3 Then

MsgBox("超过3小时了！", , "信息提示")

Timer1.Enabled = False 'timer终止，不然会一直谈对话框！

End If

End Sub