十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
窗体中增加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点虐 )
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、单击“启动倒计时”命令按钮,文本框显示倒计时时间,并时刻变动,至此实现了倒计时功能。
用Timer控件吧,设置1秒执行1次。然后直接在Timer中写代码,将全全局的值来
减减1,如果值为0,则停止Timer
跳出提示框
以下示例:
int
Tatal
=
100;
Timer.Inveral
=
1000;
Timer_()
{
if
(
Tatal
==
0)
{
MessageBox.Show("完成!");
Timer.Stop();
}
else
{
Tatal
--;
}
}
画面添加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