大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
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代表真。
不知是否详细。
干嘛不直接用系统时间呢?
在start按下时 textbox4.text=now
在stop按下时 textbox5.text=now
加个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