大橙子网站建设,新征程启航

为企业提供网站建设、域名注册、服务器等服务

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://dzwzjz.com/article/hgjdgc.html
在线咨询
服务热线
服务热线:028-86922220
TOP