重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
用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秒永不重复且随机