VB中在汽車客運公司售票系統用計時器做一個發車前15分鐘提醒怎么做，已經有一個專門的車次表businfo，其中的一個屬性是發車時間
uj5u.com熱心網友回復：
能不能說的詳細一點呢？最好打一下代碼，我才剛剛學，是個小白uj5u.com熱心網友回復：
定時器，定一個你喜歡的時間，比如20秒然后在timer事件里逐行進行判斷當前時間和發車時間的差值。對于差值小于15分鐘的進行提醒。
uj5u.com熱心網友回復：
寫好了,代碼如下:
Option Explicit
Private datStartTime As Date
Private Sub Form_Load()
' datStartTime = rs("Starttime")
datStartTime = DateAdd("n", 16, Now) ' 實際使用要用上邊注釋中的陳述句,這條陳述句僅作測驗;
Timer1.Interval = 60000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
If DateDiff("n", Now, datStartTime) = 15 Then
MsgBox "準備出發." & vbCrLf & _
"當前時間:" & Now & vbCrLf & _
"出發時間:" & datStartTime, vbInformation
End If
End Sub
運行示例:
下載地址:
鏈接：https://pan.baidu.com/s/1GlF1EEVhgX19x9uU3h3pqg
提取碼：mrx0
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/28628.html
標籤：控件