點(diǎn)虐 怎么定時(shí)執(zhí)行程序

用Timer解決問題的思路很簡單，首先設(shè)定Timer類的Interval屬性（單位是毫秒），也就是時(shí)間間隔；然后在Timer的Elapsed的事件里寫執(zhí)行代碼，每過一個(gè)設(shè)置好的Interval時(shí)間間隔，將執(zhí)行一次Elapsed中的事件 （這和VB程序中的Timer控件基本沒有區(qū)別）。

10多年的高郵網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。全網(wǎng)營銷推廣的優(yōu)勢是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整高郵建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)建站從事“高郵網(wǎng)站設(shè)計(jì)”,“高郵網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

那知道了用什么類，這些代碼要寫在哪里呢？把代碼寫在Global.asax件中，在VS的項(xiàng)目上右鍵，點(diǎn)添加--》新建項(xiàng)，選“全局應(yīng)用程序類”，項(xiàng)目中就會(huì)有Global.asax文件了。

為了表達(dá)清楚直接上代碼（首先在Global.asax文件頭部引入system.Timers命名控件）：

span style="font-size:18px;" public class Global : System.Web.HttpApplication

{

//在網(wǎng)站運(yùn)行時(shí)這段代碼同時(shí)啟動(dòng)

protected void Application_Start(object sender, EventArgs e)

{

System.Timers.Timer objTimer = new System.Timers.Timer();

objTimer.Interval = 60*1000; //這個(gè)時(shí)間單位：毫秒

objTimer.Enabled = true; //設(shè)置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();//獲得當(dāng)前時(shí)間

//從配置文件里獲得當(dāng)前設(shè)置的時(shí)間。

string OrderTime = ConfigurationManager.AppSettings["OrderFoodTime"];

/*測試數(shù)據(jù)*/

if(Time.Equals(OrderTime))

{

//如果時(shí)間相等，執(zhí)行你要執(zhí)行的操作，這里可以調(diào)用你程序中的其他類的方法

}

}/span

關(guān)于vb點(diǎn)虐 定時(shí)器問題

Timer1.Interval = 500

Private Sub Timer1_Timer()

Timer1.Enabled = False

Dim ss As String

ss = Format(Now, "HH:mm:ss")

If ss = "12:00:00" Then

'執(zhí)行備份語句

End If

Timer1.Enabled = True

End Sub

還有一個(gè)辦法就是可以用SQL自身的功能，在SQL里面可以添加任務(wù) ，設(shè)置周期為每天，時(shí)間為12點(diǎn)，到時(shí)候執(zhí)行一下備份

VB點(diǎn)虐 定時(shí)刷新的問題

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

Me.Timer1.Interval = 2000(兩秒)

Me.Timer1.Start()

End Sub

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

MsgBox("Hello World")

End Sub

在界面拖一個(gè)Button和Timer試試這個(gè)效果，在界面雙擊Timer控件，代碼應(yīng)該很明白了