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

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

最佳回答

在窗體上加一個(gè)Label控件，一個(gè)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)品精選

我來(lái)回答