大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
VB2008里的设置:
创新互联建站网站建设公司,提供做网站、网站建设,网页设计,建网站,PHP网站建设等专业做网站服务;可快速的进行网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,是专业的做网站团队,希望更多企业前来合作!
项目属性-应用程序-生成单个实例应用程序
1,窗体上使用容器控件比如:Panel,在容器控件里添加文本框,用来显示滚动的号码。
2,添加一个Timer控件,用来不断改变上述文本框的Top属性,实现不断向上滚动的动态效果。
3,使用系统的随机函数,生成所想要的适当位数的随机数,单击按钮,停止滚动,显示随机数。
4,用数组保存产生的随机数,再次停止,与已经产生的保存在数组里的随机进行比较,如果重复,就重新生成随机数,直到不重复。
看代码吧!在上次累加的基础上继续累加
窗体中包含一个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
第一个问题:跳转到另一个窗体使用语句 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程序出错后再重启程序,目前我能实现的最好的方法就是
先用shell命令 “生一个儿子”,然后“自己死掉”。
第一句
Shell(Application.StartupPath "\我的程序.exe", vbNormalFocus)
第二句
End
完工!!!