汽配人首頁 > 問答首頁

VB高手進(jìn)，求倒計時器軟件精確到千分之一秒的代碼

想求的VB制作的倒計時軟件精確到千分之一秒。倒計時計算可使用兩種形式，一種是給出要倒計時的時間長度，另一個是給出發(fā)生時間（根據(jù)所給時間，計算出要從幾天幾小時...開始倒數(shù)）。使用optionbutton來自行選擇以上兩種模式。在還有1min時，倒計時數(shù)字背景為黑色，字體為紅色。其他時候正常就行。輸出倒計時的格式是DDD，HH：MM：SS（秒的右下邊是少小的MS三位），比如在還差零天，零時，零分，5秒。125毫秒時，輸出為000，00：00：05（右下角125）請VB高手給出詳細(xì)的代碼，最好是直接復(fù)制到VB代碼窗口里就行。以及詳細(xì)的制作過程。希望各位能在下周二前分析并研究出來，謝謝。完全符合提議，并對小弟細(xì)心幫助的，追加50分。毫秒輸出格式示例: 問提問者：網(wǎng)友 | 2017-04-13

最佳回答

在窗體上加一個Label控件，一個Timer控件，然后添加如下代碼即可Private Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As IntegerEnd TypePrivate Sub Form_Load()Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Timer1_Timer() Dim a As SYSTEMTIME GetSystemTime a With a Label1 = .wHour & ":" & .wMinute & ":" & .wSecond & ":" & Split(.wMilliseconds / 1000, ".")(1) End WithEnd Sub: 回答者：網(wǎng)友

產(chǎn)品精選

我來回答