1、如果要設置時間變量應該這樣:
網(wǎng)站建設哪家好,找創(chuàng)新互聯(lián)!專注于網(wǎng)頁設計、網(wǎng)站建設、微信開發(fā)、微信小程序開發(fā)、集團企業(yè)網(wǎng)站建設等服務項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了鄂溫克免費建站歡迎大家使用!
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)
此函數(shù)只能在注冊表的“HKEY_CURRENT_USER\Software\VB and VBA Program Settings\”創(chuàng)建應用程序的參數(shù)設置,這個函數(shù)是從VB6繼承過來的,是為了升級vb6代碼而使用的。函數(shù)中的AppName為項目名,Section為節(jié)點,Key為鍵名,Setting為鍵值。例如SaveSetting("MyName","Section1","MainKey","Settingvalue")將會在“HKEY_CURRENT_USER\Software\VB and VBA Program Settings\MyName”創(chuàng)建一個節(jié)點"Section1",并在Section1下創(chuàng)建一個鍵名為"MainKey",值為"Settingvalue"的鍵。
至于如何保存RadioButton的值,可以先用"CStr"函數(shù)或"CInt"函數(shù)將RadioButton是否被選中的Boolean值轉換為String或Integer,再使用SaveSetting函數(shù)存入注冊表。注意:當使用Cstr函數(shù)轉換Boolean時,如果Boolean為“真”,轉換的String就是“True”,反之則是“False”,轉換為Integer是0代表假,1代表真。
不知是否詳細。
干嘛不直接用系統(tǒng)時間呢?
在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