框窗体设计界面,为窗体添加控件并设置 控件的属性。控件的属性设置如表7-3所示。
表7-3
对象名
Label1 Button1
任务7-1中的frmExit窗体中的控件属性设置及其功能
属性名
Text Text DialogResult Text DialogResult
属性值
"真的要退出应用
程序吗?" "确定" OK "取消" Cancel
说明
提示信息 单击它将退出应用程序
Button2
单击它将不退出应用程序
然后再把该窗体的FormBorderStyle属性值设置为“FixedSingle” ,把AcceptButton属性值设置为“Button1 ”把CancelButton属 性值设置为“Button2”。至此界面设计基本完成。
9.在“解决
方案资源管理器”中双击“frmTicketReward”窗体, 并切换到“frmTicketReward”窗体的代码窗口,在代码窗口的最顶部 加上如下程序代码。
Imports Task7_1.frmTicketPublish Imports Task7_1.frmExit
注意:在多窗体程序设计中,每个窗体相当于一个类,在一个窗体中要调 用其它窗体,必须通过Imports诧句把该窗体作为命名空间引入进来。
10.在“ ”下面编写如下程序代码,定义7个 全局公享的整型变量,用来存放中奖号码。 Public Shared a1, a2, a3, a4, a5, a6, a7 As Integer '存放摇出来 的中奖号码 注意:必须是在窗体的“Declaration”部分用“Public Shared”定 义的变量才能被其它窗体使用。
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 说明: 该过程每隔200毫秒执行一个,产生7个随机数并显示在文本框 中,产生摇奖的效果。
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 '公布按钮可用 Button2.Enabled = False '停止按钮不可用 End Sub
16.运行程序,单击“摇奖”按钮摇奖后,单击“停止”按钮,会収现 文本框中的数固定了下来,此时的值就可以认为是中奖号码。
17.编写Button3按钮的Click事件过程代码,如下。
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim Frm As New frmTicketPublish '定义一个frmTicketPublish 类的对象 Frm.Show() '显示该对象,窗体将显示出来 End Sub
18.编写Button4按钮的Click事件过程代码,如下。
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim frmExitDialog As New frmExit '根据退出窗体生成对象 If f