求高手給一個(gè)VB.NET的程序開機(jī)啟動和關(guān)閉開機(jī)啟動的示例代碼

Private Sub 開機(jī)自動啟動_Click(sender As Object, e As EventArgs) Handles 開機(jī)自動啟動.Click

仁和網(wǎng)站制作公司哪家好，找創(chuàng)新互聯(lián)建站！從網(wǎng)頁設(shè)計(jì)、網(wǎng)站建設(shè)、微信開發(fā)、APP開發(fā)、響應(yīng)式網(wǎng)站設(shè)計(jì)等網(wǎng)站項(xiàng)目制作，到程序開發(fā)，運(yùn)營維護(hù)。創(chuàng)新互聯(lián)建站成立于2013年到現(xiàn)在10年的時(shí)間，我們擁有了豐富的建站經(jīng)驗(yàn)和運(yùn)維經(jīng)驗(yàn)，來保證我們的工作的順利進(jìn)行。專注于網(wǎng)站建設(shè)就選創(chuàng)新互聯(lián)建站。

Dim a As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")

a.SetValue("查看.exe", Application.StartupPath "\查看.exe")

End Sub

Private Sub 關(guān)閉開機(jī)自啟_Click(sender As Object, e As EventArgs) Handles 關(guān)閉開機(jī)自啟.Click

Dim a As Microsoft.Win32.RegistryKey = My.Computer.Registry.CurrentUser.CreateSubKey("Software\Microsoft\Windows\CurrentVersion\Run")

a.DeleteValue("查看.exe")

End Sub

VB.net制作啟動界面

新建一個(gè)Sub ： Main

Private Sub Main()

xxx.show 'xxx指啟動窗體

'載入圖片、數(shù)據(jù)庫之類的

Unload xxx

{from}.show '{from}指主界面

End Sub

然后在工程-屬性將"Main"作為啟動對象

怎樣讓VB.NET做的應(yīng)用程序只啟動一個(gè)實(shí)例

最簡單的方法

If UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) 0 Then End

前提是你的程序名別太普通了容易和別的進(jìn)程重名就不行了

VB.NET編寫軟件隨開機(jī)啟動代碼

要設(shè)置軟件隨開機(jī)啟動，可以這樣寫通過寫入注冊表，來達(dá)到你要的效果：

在適當(dāng)位置，插入如下代碼：

Dim regname As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\\microsoft\\windows\\currentversion\\run", True)

regname.SetValue("自己軟件的名稱", """" Application.StartupPath "\ 自己軟件的名稱.exe""")

你把：“自己軟件的名稱” 替換成自己的應(yīng)用程序的名稱！！

標(biāo)題名稱：vb.net啟動例子 vb的啟動有多種方法
文章分享：http://www.chinadenli.net/article10/dooghgo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供品牌網(wǎng)站建設(shè)、響應(yīng)式網(wǎng)站、App設(shè)計(jì)、域名注冊、外貿(mào)網(wǎng)站建設(shè)、品牌網(wǎng)站制作

廣告

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