vb.net重新開始程序的簡單介紹

VB.NET 多重啟動的問題

VB2008里的設置：

創新互聯建站網站建設公司，提供做網站、網站建設，網頁設計，建網站，PHP網站建設等專業做網站服務;可快速的進行網站開發網頁制作和功能擴展；專業做搜索引擎喜愛的網站，是專業的做網站團隊，希望更多企業前來合作!

項目屬性-應用程序-生成單個實例應用程序

vb.net做一個程序，求教

1，窗體上使用容器控件比如：Panel，在容器控件里添加文本框，用來顯示滾動的號碼。

2，添加一個Timer控件，用來不斷改變上述文本框的Top屬性，實現不斷向上滾動的動態效果。

3，使用系統的隨機函數，生成所想要的適當位數的隨機數，單擊按鈕，停止滾動，顯示隨機數。

4，用數組保存產生的隨機數，再次停止，與已經產生的保存在數組里的隨機進行比較，如果重復，就重新生成隨機數，直到不重復。

vb.net 如何實現繼續運行

看代碼吧！在上次累加的基礎上繼續累加

窗體中包含一個Button1

Public Class Form1

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

Static a As Integer

For i = 1 To 100 '運算100次

a = a + i

Next

End Sub

End Class

static 是聲明靜態變量，只要程序不退出，值就會一直保存

這樣，你第一次點擊 a的值就是5050

第二次點擊a就變成了 10100

VB.NET問題！200分

第一個問題：跳轉到另一個窗體使用語句 Object.show，

你可以在form1任一控件事件下編寫form2.show就行，如果還隱藏form1的話，再添加一句from1.hide

第二個問題

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

op1 = txt1.Text

op2 = txt2.Text

op3 = txt3.Text

op4 = txt4.Text

ba = txt3.Text

If op1 = "" Then

MsgBox("你已沒有錢了，請重新開始", vbOKOnly + vbInformation, "游戲失敗")

txt1.Text = 100

在這個位置添加一句代碼

exit sub

不過我看你這段程序漏洞百出，我改正了一下，不過沒明白你為什么用單選按鈕去接收文本框的數據，所以就按照你的改了。改正后的代碼如下：聲明一下，你程序里的txt在我程序里是text，忘改了。

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

Dim ba As String

op1.Text = Text1.Text

op2.Text = Text2.Text

op3.Text = Text3.Text

op4.Text = Text4.Text

ba = Text3.Text

If op1.Text = "" Then

MsgBox("你已沒有錢了，請重新開始", vbOKOnly + vbInformation, "游戲失敗")

Text1.Text = 100

Exit Sub

ElseIf op1.Text = 0 Then

MsgBox("你已沒有錢了，請重新開始", vbOKOnly + vbInformation, "游戲失敗")

Text1.Text = 100

End If

If op2.Text = "" Then

MsgBox("最少需要下注1", vbOKOnly + vbInformation, "輸入錯誤")

ElseIf op2.Text = 0 Then

MsgBox("請輸入下注金額", vbOKOnly + vbInformation, "輸入錯誤")

End If

If Val(op1.Text) Val(op2.Text) Then

MsgBox("你沒有那么多錢了，請重新輸入", vbOKOnly + vbInformation, " 你沒那么多錢了")

End If

Dim bytcom As Byte

bytcom = Int(Rnd() * 3)

Select Case bytcom

Case 0

Text4.Text = -(Val(op2.Text) * Val(op3.Text))

Text1.Text = Val(op1.Text) - Val(op2.Text) * Val(op3.Text)

MsgBox("你出布，計算機出剪刀，你輸了", vbOKOnly + vbInformation, "很遺憾")

Case 1

Text4.Text = Val(op2.Text) * Val(op3.Text)

Text1.Text = Val(op1.Text) + Val(op2.Text) * Val(op3.Text)

MsgBox("你出布，計算機出石頭，你贏了", vbOKOnly + vbInformation, "恭喜")

Case 2

Text4.Text = 0

MsgBox("你出布，計算機出布，平手", vbOKOnly + vbInformation, "不要灰心")

End Select

If Text1.Text = 1000000 Then

MsgBox("恭喜你通關了！重新開始", vbOKOnly + vbInformation, "游戲通關")

Text1.Text = 1000

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End If

vb.net當程序報錯時,如何重啟

vb.net程序出錯后再重啟程序，目前我能實現的最好的方法就是

先用shell命令 “生一個兒子”，然后“自己死掉”。

第一句

Shell(Application.StartupPath "\我的程序.exe", vbNormalFocus)

第二句

End

完工！！！

分享題目：vb.net重新開始程序的簡單介紹
文章分享：http://m.kartarina.com/article12/hgjdgc.html

成都網站建設公司_創新互聯，為您提供品牌網站建設、全網營銷推廣、關鍵詞優化、做網站、建站公司、App開發

廣告

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