VB千里行－讓程序在后臺(tái)運(yùn)行

2019-11-18 17:51:44

字體：大中小

供稿：網(wǎng)友

比如說，我們?cè)诒韱紊显O(shè)置了一個(gè)計(jì)時(shí)器控件，這個(gè)定時(shí)器的任務(wù)就是在表單上顯示當(dāng)前的時(shí)間，同時(shí)設(shè)置當(dāng)程序運(yùn)行時(shí)啟動(dòng)定時(shí)器。程序運(yùn)行后，當(dāng)前的時(shí)間將在表單上實(shí)時(shí)地顯示出來。但如果我們同時(shí)設(shè)置一個(gè)command按鈕，并設(shè)計(jì)它的click事件為調(diào)用msgbox顯示一個(gè)隨意的信息。當(dāng)我們點(diǎn)擊這個(gè)按鈕后，就會(huì)出現(xiàn)一個(gè)對(duì)話框，這時(shí)，請(qǐng)留心看看原本顯示當(dāng)前事件的那個(gè)位置，你發(fā)現(xiàn)了什么？呵呵，時(shí)間不再更新顯示了;-(當(dāng)再次點(diǎn)擊對(duì)話框的按鈕，使之消失時(shí)，時(shí)間又恢復(fù)正常，繼續(xù)實(shí)時(shí)顯示了。

　　問題已經(jīng)描述清楚了。我們將要解決的就是，當(dāng)出現(xiàn)對(duì)話框時(shí)，讓時(shí)間仍能正確地實(shí)時(shí)顯示，也就是說，讓程序在后臺(tái)繼續(xù)運(yùn)行。

　　使用API函數(shù)MessageBox

　　使用VB自帶的函數(shù)MSGBOX是完成不了我們期望的后臺(tái)程序運(yùn)行了，在上面我們已經(jīng)談到。為了解決這個(gè)問題，這里提供一個(gè)簡單并且很好用的技巧：使用WindowsAPI函數(shù)MessageBox。它產(chǎn)生的效果及外觀與使用MSGBOX基本一樣，但卻不會(huì)中止后臺(tái)程序的繼續(xù)運(yùn)行。

　　引用MessageBox

　　為了使用這個(gè)函數(shù)，必須首先在代碼的最前端設(shè)置引用信息，請(qǐng)輸入以下的代碼：

　　DeclareFunctionMessageBoxLib"user32"Alias"MessageBoxA"(ByValhwndAsLong,ByVallpTextAsString,ByVallpCaptionAsString,ByValwTypeAsLong)AsLong

　　例程代碼

　　接著，在表單上添加1個(gè)定時(shí)器控件，2個(gè)按鈕控件，1個(gè)label控件。定時(shí)器控件控制顯示當(dāng)前時(shí)間，一個(gè)命令按鈕調(diào)用MSGBOX對(duì)話框，另一個(gè)命令按鈕調(diào)用MessageBox函數(shù)，Label存放當(dāng)前時(shí)間。你可以通過點(diǎn)擊不同的命令按鈕，查看label中顯示的時(shí)間是否有停止的現(xiàn)象。

　　代碼如下：

　　EndSub

　　PrivateSubTimer1_Timer()
Label1.Caption=Time
EndSub

　　更多的設(shè)想

　　上面的代碼是否很簡單？的確這樣，使用API函數(shù)，有時(shí)能啟動(dòng)意想不到但卻是很實(shí)用的效果。當(dāng)然，你也可以編寫自己的對(duì)話框函數(shù)，這也不是很復(fù)雜，而且能更加細(xì)微地控制用戶的輸入。->

上一篇：解決VisualBasic非正常退出一例

下一篇：自動(dòng)開始上次關(guān)機(jī)時(shí)關(guān)閉的應(yīng)用

學(xué)習(xí)交流

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)

索泰發(fā)布一款GTX 1070 Mini迷你版本:小機(jī)箱大愛...

熱門圖片

猜你喜歡的新聞

猜你喜歡的關(guān)注