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

完工！！！