扫二维码与项目经理沟通
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
用Timer控件吧，设置1秒执行1次。然后直接在Timer中写代码，将全全局的值来
目前创新互联公司已为数千家的企业提供了网站建设、域名、虚拟空间、网站托管、企业网站设计、贵南网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
减减1，如果值为0，则停止Timer
跳出提示框
以下示例：
int
Tatal
=
100;
Timer.Inveral
=
1000;
Timer_()
{
if
(
Tatal
==
0)
{
MessageBox.Show("完成！");
Timer.Stop();
}
else
{
Tatal
--;
}
}
跟vb一样,加一个timer控件,interval就是时间,毫秒的,1000就是1s
然后双击timer控件,写代码
form1.hide '隐藏form1
form2.show '显示form2
timer.enable=false '暂停timer,免得多次运行
首先这个要看的子函数执行的情况了，比如你子函数要8秒才能执行完成，你1秒钟执行一次，到时会有好几个子函数在运行，肯定会影响程序运行的。你要调整时间才能让子函数不影响主程序；
再一个，如果不想影响主程序，你可以再建一个程序，专门用来执行子函数，然后让那个程序用定时器每秒执行一次子函数，这样就不会影响主程序；
把 TextBox2.Text = Chr(Val("H" B))
改为
TextBox2.Text =TextBox2.Text Chr(Val("H" B)) VbCrlf
试试？而且 TextBox2 的MultyLine属性要事先改为True
或者是：
TextBox2.Text =TextBox2.Text Chr(Val("H" B)) “ ”
其实用Environment.TickCount就可以了，函数获取系统启动后经过的毫秒数
因为时间不重复，所以如果间隔1秒永不重复且随机
我们在微信上24小时期待你的声音
解答本文疑问/技术咨询/运营咨询/技术建议/互联网交流
微信二维码
移动版官网