台灣最大程式設計社群網站
線上人數
942
 
會員總數:242476
討論主題:187513
歡迎您免費加入會員
討論區列表 >> VB6 >> VB 倒數天數跳出 預警及到期 要如何寫?
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
VB 倒數天數跳出 預警及到期 要如何寫?
價值 : 10 QP  點閱數:170 回應數:3

樓主

小傑
門外漢
0 3
40 4
發送站內信

VB 倒數天數跳出 預警及到期 要如何寫:
搜尋相關Tags的文章: [ VB ] ,
本篇文章發表於2018-04-29 23:10
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
回應

樹哥
檢舉此回應
' *** 倒數天數要測試程式太久,選擇秒數測試較快,其他請自行改變了...

Dim i, j As Integer
Private Sub Command1_Click()
i = Text1 '計時輸入秒數
Timer1.Enabled = True '計時器動作
End Sub

Private Sub Timer1_Timer()
Label1 = i
i = i - 1
j = j + 1
If i < 0 Then

'****在這媬擗J要執行的指令******
Command1.Caption = "停止"
MsgBox "時間到!" '顯示時間到
Timer1.Enabled = False '計時器關閉
Command1.Caption = "啟動"

End If
End Sub

Private Sub Form_Load()
Command1.Caption = "啟動"
Text1 = 4 '設定倒數計時秒數
Timer1.Interval = 1000
Timer1.Enabled = False
j = 0
End Sub
本篇文章回覆於2018-05-01 07:00
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

小傑
檢舉此回應
EXCEL VB 沒有Timer
本篇文章回覆於2018-05-09 00:14
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
回應

林佳正
檢舉此回應
沒timer有沒timer的寫法
但你想要完全自動化就須要timer來全天後的run
你想要的功能是可以寫在命令鈕裡面
當我看到您的問題時
我就發現問題在你身上
很多有難度的部份
沒錯不是每個人能想到的
求助是能讓人省下很多時間在沒意義的思考上
但有些求助網路真的查的到相關程式
但從你身上我只感覺到
你只想要直接要的答案
沒有努力過程
當您真的遇到困難求救
我相信想幫您的高手就會出手了
再說你的標題…vb
excel不叫vb
稱為vba
簡單說就是vb的簡易版
vba的物件有限
想要在有限的物件達到您想要的完美答案
理論上沒什麼人想理會才對
我把我以前查到的原始資料一字不變給你
你自己修改成你要的功能即可
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to pause for 5 seconds", 4)) = vbYes Then
PauseTime = 5 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox ("Paused for " & TotalTime & " seconds")
Else
End
End If
本篇文章回覆於2018-05-21 20:20
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.