189 8069 5689
timer要用timer.start（）开始记时，timer.Interval = 2000简单来说：在timer事件下一个textbox.selectAll()两秒全选一次textbox内容，运行不完不会有什么影响，线程等内容现在不必考虑
创新互联公司是一家专注于成都做网站、网站设计、外贸营销网站建设与策划设计,班玛网站建设哪家好?创新互联公司做网站,专注于网站建设十载,网设计领域的专业建站公司;建站业务涵盖:班玛等地区。班玛做网站价格咨询:18982081108
//一部分指令……
int duration = 1000; //设定进程挂起时间，单位毫秒
System.Threading.Thread.Sleep(duration); 挂起当前进程
//另一部分指令……
如果你用控制台应用程序，这样就可以了。如果你用窗体应用程序且在窗体主线程下运行，则需要用到计时器或多线程等。
Public Class Form1
Private Past As Date
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Past = Now
IO.File.AppendAllText("test.txt", Past.ToString, System.Text.Encoding.Default)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Now1 As Date = CDate(IO.File.ReadAllText("test.txt", System.Text.Encoding.Default))
Dim Now2 As Date = Now
MsgBox("从" Now1.ToString "到" Now2.ToString "经过了" CStr(CDate((Now2 - Now1).ToString)))
End Sub
实际情况修改下。
End Class
用Timer解决问题的思路很简单，首先设定Timer类的Interval属性（单位是毫秒），也就是时间间隔；然后在Timer的Elapsed的事件里写执行代码，每过一个设置好的Interval时间间隔，将执行一次Elapsed中的事件 （这和VB程序中的Timer控件基本没有区别）。
那知道了用什么类，这些代码要写在哪里呢？把代码写在Global.asax件中，在VS的项目上右键，点添加--》新建项，选“全局应用程序类”，项目中就会有Global.asax文件了。
为了表达清楚直接上代码（首先在Global.asax文件头部引入system.Timers命名控件）：
span style="font-size:18px;" public class Global : System.Web.HttpApplication
{
//在网站运行时这段代码同时启动
protected void Application_Start(object sender, EventArgs e)
{
System.Timers.Timer objTimer = new System.Timers.Timer();
objTimer.Interval = 60*1000; //这个时间单位：毫秒
objTimer.Enabled = true; //设置Timer类的可用性
//将Timer的Elapsed事件绑定到新建立的timer对象上
objTimer.Elapsed += new ElapsedEventHandler(objTimer_Elapsed);
}/span
下面是在Timer的Elapsed事件中的代码
span style="font-size:18px;"void objTimer_Elapsed(object sender, ElapsedEventArgs e)
{
string Time = DateTime.Now.ToShortTimeString();//获得当前时间
//从配置文件里获得当前设置的时间。
string OrderTime = ConfigurationManager.AppSettings["OrderFoodTime"];
/*测试数据*/
if(Time.Equals(OrderTime))
{
//如果时间相等，执行你要执行的操作，这里可以调用你程序中的其他类的方法
}
}/span
在vb程序中让两条语句的执行间隔一段时间，可以用API函数的Sleep函数实现。
参考例子：
'************************************************************
'延时
Public Sub Wait(delay As Single)
'Delay app the selected no. of seconds
'example Wait 3.5
'app will loop here for 3.5 seconds
starttime! = Timer
Do Until Timer = starttime! + delay
Loop
End Sub
'************************************************************
延时2秒
则用
wait(2)