vb點虐 怎么重啟自己

你需要兩個創(chuàng)建兩個程序...

公司主營業(yè)務(wù)：成都網(wǎng)站制作、成都網(wǎng)站設(shè)計、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對我們的高要求，感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn)，讓我們激情的團(tuán)隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)推出黃南州免費做網(wǎng)站回饋大家。

首先在你的主程序的代碼里面添加它們:

'main program

public sub restart()

shell app.path "\restart.exe " app.path "你的主程序的名字.exe",vbhide

end

end sub

用于重啟的程序,叫做restart.exe

先創(chuàng)建標(biāo)準(zhǔn)exe工程

然后再在右邊的工程資源管理器中右鍵點擊form1

在彈出的菜單中選擇移除form1

然后點擊菜單條上面的添加模塊

在新添加的module1里添加它們

'restart program

sub main

shell command

end sub

生成exe到你的主程序所在的目錄

這時你便可以在主程序的任意地方添加一行restart來重新啟動你的程序了

vb點虐 怎樣才能在程序運行時一直重復(fù)執(zhí)行一個子函數(shù)而不影響程序運行

首先這個要看的子函數(shù)執(zhí)行的情況了，比如你子函數(shù)要8秒才能執(zhí)行完成，你1秒鐘執(zhí)行一次，到時會有好幾個子函數(shù)在運行，肯定會影響程序運行的。你要調(diào)整時間才能讓子函數(shù)不影響主程序；

再一個，如果不想影響主程序，你可以再建一個程序，專門用來執(zhí)行子函數(shù)，然后讓那個程序用定時器每秒執(zhí)行一次子函數(shù)，這樣就不會影響主程序；

在VB點虐 中我想實現(xiàn)“先暫停該程序，等其他程序運行完再繼續(xù)執(zhí)行該程序”的功能，請問怎么實現(xiàn)？

詳細(xì)查看了你的問題，完全不需要使用線程sleep的方法。

在這邊，我要給你引入一個概念。就是Form窗體的兩個方法。

Form.Show()和Form.ShowDialog()

第一個Show方法運行后，你的主程序還是會進(jìn)行，你的代碼還是會繼續(xù)進(jìn)行下去。此時，窗體還是彈出的。

第二個ShowDialog方法運行后，此時，彈出的一個窗體，你不將其關(guān)閉，那么，主程序就會一直等待這個窗體關(guān)閉后，才執(zhí)行后面的代碼。

所以，你只需要使用showdialog這個方法，即可達(dá)到你想要的結(jié)果。

那么，如何才能讓彈出的窗體不改變呢？很簡單

你可以找到窗體的formcloseing事件，在這個事件中，有一個參數(shù)：e

這個e有一個屬性，就是e.handle，表示是否處理過這個事件了。

這個時候，如果你不想讓窗體關(guān)閉，你可以寫：

e.handle=true，那么表示已經(jīng)處理過窗體關(guān)閉的事件了。

注：有些情況，可能是：e.cancel=true

小技巧：VB.NET實現(xiàn)關(guān)機和重新啟動

Private Declare Function ExitWindowsEx Lib user (ByVal uFlags As Integer ByVal dwReserved As Integer) As IntegerConst EWX_FORCE As Short = Const EWX_LOGOFF As Short = Const EWX_REBOOT As Short = Const EWX_SHUTDOWN As Short = Dim retval As Integer 定義Esc按鍵Const VK_ESCAPE As Short = H BsPrivate Sub Command _Click(ByVal eventSender As System Object ByVal eventArgs As System EventArgs) Handles Command ClickIf Option Checked Then 注銷當(dāng)前用戶retval = ExitWindowsEx(EWX_FORCE )ElseIf Option Checked Then 關(guān)閉計算機retval = ExitWindowsEx(EWX_SHUTDOWN )ElseIf Option Checked Then 重新啟動retval = ExitWindowsEx(EWX_REBOOT )End IfEnd SubPrivate Sub Command _Click(ByVal eventSender As System Object ByVal eventArgs As System EventArgs) Handles Command ClickMe Close()End Sub 按Esc鍵時 結(jié)束應(yīng)用程序Private Sub Form _KeyPress(ByVal eventSender As System Object ByVal eventArgs As System Windows Forms KeyPressEventArgs) Handles MyBase KeyPressDim KeyAscii As Short = Asc(eventArgs KeyChar)If KeyAscii = VK_ESCAPE ThenMe Close()End IfIf KeyAscii = TheneventArgs Handled = TrueEnd IfEnd Sub本實例通過使用ExitWindowEx()API函數(shù)來達(dá)到關(guān)機和重新啟動的目的 在ExitWindowEx()函數(shù)中 參數(shù)uFlags指定要進(jìn)行何種操作 在表 中列出了參數(shù)uFlags的值及其說明 表 　參數(shù)uFlags的值及說明 lishixinzhi/Article/program/net/201311/13585

網(wǎng)站標(biāo)題：vb點虐 重新執(zhí)行 vbnet doevent
新聞來源：http://chinadenli.net/article12/ddgscgc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站建設(shè)、網(wǎng)站設(shè)計公司、網(wǎng)站維護(hù)、企業(yè)網(wǎng)站制作、面包屑導(dǎo)航、自適應(yīng)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)