建站
咨詢
售后
建站咨詢
新聞中心
vb.net 我想編一個(gè)計(jì)時(shí)器，計(jì)時(shí)器顯示格式00:00:00 （只能用一個(gè)label）怎么做？
Dim hour, min, sec As Integer
創(chuàng)新互聯(lián)建站自2013年創(chuàng)立以來，是專業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目網(wǎng)站制作、做網(wǎng)站網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢想脫穎而出為使命，1280元呼和浩特做網(wǎng)站,已為上家服務(wù),為呼和浩特各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:18982081108
Private Sub Command1_Click()
If Command1.Caption = "開始計(jì)時(shí)" Then
Command1.Caption = "停止計(jì)時(shí)"
Timer1.Enabled = True
Else
If Command1.Caption = "停止計(jì)時(shí)" Then
Command1.Caption = "開始計(jì)時(shí)"
Timer1.Enabled = False
End If
End If
End Sub
Private Sub Form_Load()
hour = 0
min = 0
sec = 0
Label1.Caption = Format(hour, "00") ":" Format(min, "00") ":" Format(sec, "00")
End Sub
Private Sub Timer1_Timer()
sec = sec + 1
If sec 59 Then
sec = 0
min = min + 1
If min 59 Then
min = 0
hour = hour + 1
End If
End If
Label1.Caption = ""
Label1.Caption = Format(hour, "00") ":" Format(min, "00") ":" Format(sec, "00")
End Sub
用VB.net做一個(gè)時(shí)間計(jì)時(shí)器
'添加一個(gè)label標(biāo)簽名字label1 用來顯示時(shí)間
'再添加一個(gè)timer控件 名字timer1 interval屬性=1000 用來計(jì)時(shí)
'窗體添加代碼
Dim t As Date '用來記錄時(shí)間
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles Timer1.Tick
t = t.AddSeconds(1)
Label1.Text = "登錄時(shí)間:" t.TimeOfDay.ToString
End Sub
VB.net 定時(shí)刷新的問題
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Timer1.Interval = 2000(兩秒)
Me.Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
MsgBox("Hello World")
End Sub
在界面拖一個(gè)Button和Timer試試這個(gè)效果，在界面雙擊Timer控件，代碼應(yīng)該很明白了
VB.NET怎樣設(shè)計(jì)定時(shí)關(guān)機(jī)
1、開機(jī)進(jìn)入桌面后，按下“Windows徽標(biāo)鍵+I”鍵，選中并打開“控制面板”
2、在“控制面板”中的“系統(tǒng)和安全”里，選中“管理工具”里的“計(jì)劃任務(wù)”，并打開“計(jì)劃任務(wù)”
3、在“任務(wù)計(jì)劃程序”里，打開“創(chuàng)建任務(wù)”
4、在“創(chuàng)建任務(wù)”的“常規(guī)”中，根據(jù)相應(yīng)需求設(shè)置，比如“名稱：定時(shí)關(guān)機(jī)”
5、在“創(chuàng)建任務(wù)”的“觸發(fā)器”中，點(diǎn)“新建”，并在“新建觸發(fā)器”中，根據(jù)相應(yīng)需求設(shè)置后，點(diǎn)“確定”
6、在“創(chuàng)建任務(wù)”的“操作”中，點(diǎn)“新建”，并在“新建操作”中的“程序或腳本”里，根據(jù)下圖依次輸入“shutdown”和“-s”后，“點(diǎn)“確定”
7、在“創(chuàng)建任務(wù)”的“條件”中，根據(jù)相應(yīng)需求設(shè)置
8、在“創(chuàng)建任務(wù)”的“設(shè)置”中，根據(jù)相應(yīng)需求設(shè)置后，點(diǎn)“確定”
9、這時(shí)“定時(shí)關(guān)機(jī)”的任務(wù)已創(chuàng)建完成！
關(guān)于vb.net定時(shí)器問題
Timer1.Interval = 500
Private Sub Timer1_Timer()
Timer1.Enabled = False
Dim ss As String
ss = Format(Now, "HH:mm:ss")
If ss = "12:00:00" Then
'執(zhí)行備份語句
End If
Timer1.Enabled = True
End Sub
還有一個(gè)辦法就是可以用SQL自身的功能，在SQL里面可以添加任務(wù) ，設(shè)置周期為每天，時(shí)間為12點(diǎn)，到時(shí)候執(zhí)行一下備份
網(wǎng)站題目：vb.net整點(diǎn)定時(shí)的簡單介紹
轉(zhuǎn)載注明：http://www.ef60e0e.cn/article/hjogoi.html
