VBNET程序设计实用教程电子讲稿7.ppt

VB.NET程序设计实用教程;本章任务：;计算机应用教研室;7.1 任务7-1：体育彩票摇奖程序——多窗体程序设计;计算机应用教研室;1．启动VB.NET，新建一个项目，项目类型为“Windows应用程序”，项 目的存放位置为“D:\VBTASK\CH07”，项目名为“Task7_1”。 2．把Form1窗体的Text属性值设置为“体育彩票摇奖程序”，把它的Name属性值设置为“frmTicketReward”。单击“解决方案资源管理器”中的“Form1.VB”窗体，然后在属性窗口中把它文件名属性设置为 “frmTicketReward.vb”。然后执行【项目】→【Task7_1属性】命令，在出现的“Task7_1属性页”对话框中把“启动对象”设置为frmTicketReward”。 注意：在多窗体程序设计中，如果要改变启动窗体，方法也是执行【项目】→【***属性】 命令，在出现的“***属性页”对话框中把“启动对象”设置为相应窗体即可。;;计算机应用教研室;;; 9．在“解决方案资源管理器”中双击“frmTicketReward”窗体， 并切换到“frmTicketReward”窗体的代码窗口，在代码窗口的最顶部 加上如下程序代码。 Imports Task7_1.frmTicketPublish Imports Task7_1.frmExit 注意：在多窗体程序设计中，每个窗体相当于一个类，在一个窗体中要调 用其它窗体，必须通过Imports语句把该窗体作为命名空间引入进来。;11．编写本窗体的Load事件过程代码，如下。 Private Sub frmTicketReward_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Randomize() 随机数初始化 End Sub 12．编写Button1按钮的Click事件过程代码，如下。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True 启动定时器，开始摇号 Button2.Enabled = True 停止按钮可用 Button1.Enabled = False 摇奖按钮不可用 End Sub; 13．编写Timer1控件的Tick事件过程代码，如下。 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 产生七位随机数作为中奖号码 a1 = Int(Rnd() * 10) : a2 = Int(Rnd() * 10) a3 = Int(Rnd() * 10) : a4 = Int(Rnd() * 10) a5 = Int(Rnd() * 10) : a6 = Int(Rnd() * 10) a7 = Int(Rnd() * 5) + 1 最后一位是特别号，只能在1~5之间 显示随机产生的七位号码 TextBox1.Text = CStr(a1) : TextBox2.Text = CStr(a2) TextBox3.Text = CStr(a3) : TextBox4.Text = CStr(a4) TextBox5.Text = CStr(a5) : TextBox6.Text = CStr(a6) TextBox7.Text = CStr(a7) End Sub;14．运行程序，单击“摇奖”按钮，会发现各个文本框中不停地出现随 机数。 15．编写Button2按钮的Click事件过程代码，如下。 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Timer1.Enabled = False 关闭定时器，结束摇号 Button3.Enabled = True