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

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

成都創(chuàng)新互聯(lián)公司：于2013年創(chuàng)立為各行業(yè)開拓出企業(yè)自己的“網(wǎng)站建設(shè)”服務(wù)，為1000多家公司企業(yè)提供了專業(yè)的網(wǎng)站制作、網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計和網(wǎng)站推廣服務(wù)， 按需定制由設(shè)計師親自精心設(shè)計，設(shè)計的效果完全按照客戶的要求，并適當(dāng)?shù)奶岢龊侠淼慕ㄗh，擁有的視覺效果，策劃師分析客戶的同行競爭對手，根據(jù)客戶的實際情況給出合理的網(wǎng)站構(gòu)架，制作客戶同行業(yè)具有領(lǐng)先地位的。

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)閉開機自啟_Click(sender As Object, e As EventArgs) Handles 關(guān)閉開機自啟.Click

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

a.DeleteValue("查看.exe")

End Sub

vb.net關(guān)閉指定windowsname的頁面

使用VB.NET關(guān)閉指定WindowsName的頁面可以通過使用System.Diagnostics.Process類的Kill方法來完成。

Kill方法接受一個參數(shù)，即要關(guān)閉的進程的窗口名稱，該窗口名稱可以通過Process.GetProcessesByName函數(shù)獲得，這樣就可以遍歷找到任何一個指定的窗口名稱并將其關(guān)閉。例如：

Dim process As Process = Process.GetProcessesByName(“MyApplication.exe”)

process.Kill()

求vb.net的源代碼，最好說明其解決問題，越多越好，滿意加50分。

下面這段代碼，是我用來計算每個月存500元進銀行，連續(xù)30年，最后連本帶利能有多少錢。這里面涉及復(fù)利計算。界面中右邊的文本框用來輸出每一次計算的結(jié)果。

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

? Dim nianxian As Integer '年限變量

? Dim dingcun As Integer '定存變量

? Dim fuli_big As Long '大復(fù)利

? Dim fuli_small As Long '小復(fù)利

? Dim i As Integer '循環(huán)變量

? Dim DATAstring As String '數(shù)據(jù)字符串

? nianxian = Val(年限_TextBox.Text)

? dingcun = Val(定存_TextBox.Text)

? DATAstring = ""

? For i = 1 To nianxian

? ? ? fuli_small = dingcun * (1 + 0.1875)

? ? ? dingcun = fuli_small

? ? ? fuli_big = fuli_big + fuli_small

? ? ? DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_big) + Chr(13) + Chr(10)

? ? ? 'DATAstring = DATAstring + "[" + Trim(Str(i)) + "]" + Str(fuli_small) + Chr(13) + Chr(10)

? Next

? 'fuli_big = fuli_small

? TextBox1.Text = DATAstring

? 結(jié)果_TextBox.Text = Str(fuli_big) + "元"

End Sub

跪求vb.net代碼

新建窗口，添加picture控件

利用line()方法畫線

line(開始x坐標,開始y坐標)-(結(jié)束x坐標,結(jié)束y坐標),線的顏色，畫線的方式(默認為線，B為矩形無填充，BF為填充的矩形)

For i = 1 To 16

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(255, 0, 0)

Picture1.Line (0, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(255, 0, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), 0), RGB(0, 255, 0)

Picture1.Line (Picture1.Width, Picture1.Height / 2)-(i * (Picture1.Width / 16), Picture1.Height), RGB(0, 255, 0)

Next i

如果要在窗口上畫也可以調(diào)用窗口的line方法即form.line()

網(wǎng)頁題目：vb.net代碼示例的簡單介紹
轉(zhuǎn)載來于：http://jinyejixie.com/article28/dossijp.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供虛擬主機、移動網(wǎng)站建設(shè)、手機網(wǎng)站建設(shè)、網(wǎng)站營銷、定制開發(fā)、關(guān)鍵詞優(yōu)化

廣告

聲明：本網(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)