建站
咨詢
售后
建站咨詢
新聞中心
用VB.net做一個時間計時器
'添加一個label標簽名字label1 用來顯示時間
我們提供的服務有：成都網站建設、網站制作、微信公眾號開發(fā)、網站優(yōu)化、網站認證、錦屏ssl等。為上千多家企事業(yè)單位解決了網站和推廣的問題。提供周到的售前咨詢和貼心的售后服務，是有科學管理、有技術的錦屏網站制作公司
'再添加一個timer控件 名字timer1 interval屬性=1000 用來計時
'窗體添加代碼
Dim t As Date '用來記錄時間
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登錄時間:" t.TimeOfDay.ToString
End Sub
VB.NET,如何用TIMER控件計時
這種功能用不到TIMER，TIMER控件用在這種地方也不適合。(假如你所統(tǒng)計的時間很短，在幾分中內話，可以使用，假如你統(tǒng)計的時間很長:幾小時、幾天幾夜，建議改用以下方式):
在你需要開始計時的地方加入一個記錄當前時間，在你想結束的地方也得到一個當前時間。然后將兩個時間相減。
希望以上思路可以幫到你。
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
VB.NET 計時器的問題
不對。步驟如下：
添加一個label標簽名字label1 用來顯示時間
再添加一個timer控件 名字timer1 interval屬性=1000 用來計時
窗體添加代碼
Dim t As Date '用來記錄時間
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登錄時間:" t.TimeOfDay.ToString
End Sub
VB.net module中如何使用計時器？
控制臺調用Timer和窗體是類似的。首先在項目引用里面加入System.Windows.Forms程序集，然后在代碼頂部引入命名空間：
Imports System.Windows.Forms
在控制臺的Module中聲明一個計時器：
Private WithEvents Timer1 As New Timer()
把計時器的Tick事件靜態(tài)綁定到處理函數(shù)中：
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'一些代碼
End Sub
在需要開始計時的地方，修改其Interval、Enabled屬性：
Timer1.Interval = 1000
Timer1.Enabled = True
網站欄目：包含vb.net時間自動計時的詞條
當前網址：http://fisionsoft.com.cn/article/hejodd.html
