用vb编的倒计时程序怎么暂停和继续呢

你只需要放一个按钮，一个文本框，一个定时器即可，调整好控件的大小的位置，其它的由程序自动完成设置。程序如下（用一个按钮实现和继续）：

Dim N As Date

Private Sub Command1_Click()

    If Command1Caption = "开始" Or Command1Caption = "继续" Then

        A = Now() + CDate(Text1Text)

        Timer1Enabled = True

        Command1Caption = "暂停"

    ElseIf Command1Caption = "暂停" Then

        Timer1Enabled = False

        Command1Caption = "继续"

    End If

End Sub

Private Sub Form_Load()

    Text1Text = "0:10:00"

    Timer1Interval = 100

    Timer1Enabled = False

    Command1Caption = "开始"

End Sub

Private Sub Timer1_Timer()

    If Text1 = "0:00:00" Then

        Timer1Enabled = False

        Text1Text = "时间到！"

        Command1Caption = "开始"

    Else

        Text1 = CDate(A - Now)

    End If

End Sub

已经运行过。

Dim iDayLeft As Integer

Dim timeLeft As Date

Dim dateToReach As Date

Private Sub Command1_Click()

dateToReach = #3/26/2009 4:00:00 PM# '目标日期

Timer1Enabled = True

End Sub

Private Sub Command2_Click()

dateToReach = 0

Timer1Enabled = False

MeCaption = 0

End Sub

Private Sub Form_Load()

Timer1Interval = 1000

End Sub

Private Sub Timer1_Timer()

iDayLeft = CInt(dateToReach - Now) '取整数部分(天数)

timeLeft = CDate((dateToReach - Now) - iDayLeft) '取小数部分(时间)

MeCaption = timeLeft

End Sub

#加 2 个按钮一个Timer 控件

#

#一、在程序中用时钟控件不断触发系统时间与预设定时间时间截止点的时间差：分别计算当前时间和预设定时间截止点之间相差的整年数、当#前时间到时间截止点还差的不足一年的天数和当前时间到时间截止点之间相差的不足一天的秒数并分别显示之。

#

#二、程序中调用系统时间综合使用了“Now”函数和“Format”函数，其完整形式为：

#Format（Now, “hh:mm:ss”）

#Format（Now，“mm/dd/yy”）

#前者可以按照“小时：分钟：秒”的形式返回当前时间；后者可以按照“月/日/年”的形式返回。

#

#三、为保证应用程序的灵活性，倒计时牌上设有暂停、继续、时间校正、时区切换，结束运行等特殊要求的激发点。

在窗体上创建一个计时器Timer1，一个标签LabTime

Private Sub Form_Load()

Dim Days As Integer

Dim Times As Date

Timer1Enabled = True

Timer1Interval = 1000

End Sub

Private Sub Timer1_Timer()

Const date0 As Date = #10/1/2009 10:10:10 AM# '日期

Days = CInt(date0 - Now - 05) '取整数部分(天数)

Times = CDate(date0 - Now)

LabDayCaption = Days & "天" & Hour(Times) & "小时" & Minute(Times) & "分" & Second(Times) & "秒"

End Sub

原创！

请参考: >

'---定义一个全局变量，用于倒计时的开始数public

maxcount

as

long

private

sub

form_load()timer1interval

=

1000end

sub

'开始倒计时，10秒一个循环private

sub

command1_click()maxcount

=

10

'---设计倒计时的起始数label1caption

=

maxcounttimer1enabled

=

true

'使定时器有效end

sub'开始倒计时，20秒一个循环private

sub

command2_click()maxcount

=

20

'---设计倒计时的起始数label1caption

=

maxcounttimer1enabled

=

true

'使定时器有效end

sub

private

sub

timer1_timer()dim

count

as

long

count

=

label1caption

count

=

count

-

1

if

count

<

0

then

count

=

maxcountend

if

label1caption

=

countend

sub

以上就是关于用vb编的倒计时程序怎么暂停和继续呢全部的内容，包括:用vb编的倒计时程序怎么暂停和继续呢、vb倒计时程序、如何用VB编写一个天数倒计时的程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！