有谁帮写个VB的倒计时器，只需要1分钟之内即可，越简单越好，谢谢啦

窗体中增加timer1控件，Interval设为1000（即1秒），enabled=false

创新互联建站于2013年创立，是专业互联网技术服务公司，拥有项目成都网站设计、网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元合水做网站,已为上家服务,为合水各地企业和个人服务,联系电话:028-86922220

添加Label1控件，初始值设为60

添加button1控件，标题=“开始倒计时”

button1.click事件下编写timer1.enabled=true'开始倒计时

Timer1_Timer(vb6)或Timer1_Tick(vb点虐 )事件下编写

Label1.Caption=val(Label1.Caption)-1'(vb6)

或者Label1.Text=val(Label1.Text)-1'(vb点虐 )

VB中怎样制作一个计时器？ 能够设置倒计时的时间，并进行倒计时

1、打开VB6.0，新建一个工程，在窗体中添加三个命令按钮，caption分别改为“设置倒计时”、“启动倒计时”、“继续”，将窗体Form1的caption属性改为“倒计时”，添加一个计时器控件，添加一个文本框。

2、将文本框的Text属性清空，将字体Font属性调整为小四，便于观察，将背景色属性Backcolor调为浅黄色。

3、双击“设置倒计时”命令按钮，进入代码编辑窗口。

4、双击“启动倒计时”命令按钮，进入代码编辑窗口。

5、双击“计时器”控件，进入代码编辑窗口。

6、在代码编辑窗口的通用段进行变量定义：Dim h As Integer, m As Integer, s As Integer '分别存储时分秒Dim a As Integer。

7、双击窗体，进入代码编辑器，在 Form_Load事件中写入代码：Timer1.Enabled = False '先关闭计时器。

8、关闭代码窗口，按下F5运行程序，单击“设置倒计时”命令按钮，弹出输入对话框，此时输入分钟数为1，确定。

9、单击“启动倒计时”命令按钮，文本框显示倒计时时间，并时刻变动，至此实现了倒计时功能。

VB点虐 中如何用timer控件编出一个简单的倒计时器？

用Timer控件吧，设置1秒执行1次。然后直接在Timer中写代码，将全全局的值来

减减1，如果值为0，则停止Timer

跳出提示框

以下示例：

int

Tatal

=

100;

Timer.Inveral

=

1000;

Timer_()

{

if

(

Tatal

==

0)

{

MessageBox.Show("完成！");

Timer.Stop();

}

else

{

Tatal

--;

}

}

求高手用vb点虐 做一个倒计时程序。

画面添加textbox1 timer1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 1000

TextBox1.Text = "2011/12/07 10:35:00"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If IsDate(TextBox1.Text) = True Then

Timer1.Start()

End If

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If Format(Now, "yyyy/MM/dd hh:mm:ss") = TextBox1.Text Then

MsgBox("It's time to go")

Timer1.Stop()

End If

End Sub

当前文章：包含vb点虐 时间倒计时的词条
分享网址：http://csdahua.cn/article/ddscjjo.html