nbdb.net
当前位置:首页 >> 急急急!VB初学问大虾们!我想做的倒计时是这样的... >>

急急急!VB初学问大虾们!我想做的倒计时是这样的...

在时间到的时候,用if语法判断 判断为真时 Me.Timer1.Enabled = False 就成了

你把代码复制一下,看看。图片看不清。 肯定是代码有问题。 这个程序很简单的

添加text1 command1 Dim t As IntegerPrivate Sub Command1_Click() Timer1.Interval = 1000 Timer1.Enabled = True t = 120End SubPrivate Sub Form_Load()Text1.Text = "2:00"End SubPrivate Sub Timer1_Timer()t = t - 1Text1.Text = CStr(t ...

用VB6.0写的,运行时单击“设置”按钮,弹出Inputbox输入框供用户输入倒计时的时间(以分钟为单位)。单击“开始”按钮则在文本框内显示剩余的时间数(以时:分:秒的格式),同时滚动条上的滚动块同步随时间自左向右移动。dim shi as long dim fen ...

在窗体上创建一个计时器Timer1,一个标签LabTime Private Sub Form_Load() Dim Days As Integer Dim Times As Date Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Timer1_Timer() Const date0 As Date = #10/1/2009 10:10:...

Dim x As Integer Private Sub Form_Load() Timer1.Enabled = True Timer1.Interval = 1000 x = Val(InputBox("输入倒计时秒数")) Me.Caption = x End Sub Private Sub Timer1_Timer() Me.Caption = Me.Caption - 1 If Me.Caption = 0 Then MsgB...

创建一个Timer控件:Timer1 设置Timer1的Interval属性为1000 创建一个显示倒计时的Lable:lblTime 代码: dim i as long private sub form_load() i=60 endsub private sub timer1_timer() i=i-1 lblTime.caption="倒计时" & i if i

在窗体中画一个文本框,Text属性为60,再画一个计时器,Interval属性设置为1000(单位为毫秒,1000毫秒等于1秒),Enabled属性为True.按后编写如下计时器事件: Private Sub Timer1_Timer() If Text1.Text = "0" Then Text1.Text = "60" Else Tex...

窗口放一个Label,一个Time,一个按钮,代码如下 Private Sub Command1_Click() Label1.Caption = "60" Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() If Val(Label1.Caption) = 0 Then Label1.Caption = "...

在Form内创建一个Timer控件名为Timer1,键入如下代码: Private Sub Timer1_Timer()Timer1.Enabled = FalseMsgBox "倒计时结束" '这里是倒计时结束后的处理代码End SubPrivate Sub CountDown(Timel As Long)Timer1.Interval = TimelTimer1.Enabl...

网站首页 | 网站地图
All rights reserved Powered by www.nbdb.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com