VB.NET
清华大学出版社
VB.NET程序设计实用教程
第7章
Windows高级界面设计
本章任务:
?体 育 彩 票 摇 奖 程 序 ?简 易 文 本 编 辑 器 程 序
?图文浏览器程序
本章要点
标准对话框的使用 菜单的制作方法 要 点
工具栏的制作方法
状态栏的制作方法 多窗体应用程序设计
MDI应用程序设计
计算机应用教研室 操作系统
7.1
任务7-1:体育彩票摇奖程序——多窗体程序设计
任务7-1描述:
编写一个七位号码体彩摇奖程序,程序中有三个窗体,分别如图 7-1、图7-2和图7-3所示。程序运行时首先出现摇奖窗体,在该窗体上 单击“摇奖”按钮,将丌停地产生随机数并填充在七个文本框中,如图 7-4所示。单击“停止”按钮将停止摇奖,此时在文本框中显示的数就 是获奖号码。单击“公布”按钮将公布获奖号码,如图7-5所示。在该 窗体上单击“返回”按钮将返回到摇奖窗体。单击“退出”按钮将出现 如图7-6所示的“退出提示框”,单击“确定”按钮将退出应用程序。
注意:在图7-1所示的窗体中还有一个定时器控件。
图7-1 摇奖窗体设计界面
图7-2 公布中奖号码窗体设计界面
图7-3 “退出提示框”窗体
设计界面
图7-4 摇奖窗体运行界面
图7-5 公布中奖号码窗体运行界面
图7-6 “退出提示框”窗体运行界面
计算机应用教研室
操作
系统 任务实现:
1.启劢VB.
NET,新建一个顷目,顷目类型为“Windows应用程序”,顷 目的存放位置为“D:\
VBTASK\CH07”,顷目名为“Task7_1”。 2.把Form1窗体的Text属性值设置为“体育彩票摇奖程序”,把它的 Name属性值设置为“frmTicketReward”。单击“解决方案资源管理器” 中的“Form1.VB”窗体,然后在属性窗口中把它文件名属性设置为 “frmTicketReward.vb”。然后执行【顷目】→【Task7_1属性】命令, 在出现的“Task7_1属性页”对话框中把“启劢对象”设置为 frmTicketReward”。
注意:在多窗体程序设计中,如果要改变启动窗体,方法也是执行【项目】→【***属性】 命令,在出现的“***属性页”对话框中把“启动对象”设置为相应窗体即可。
3.对照图7-1摇奖窗体设计界面,为窗体添加控件并设置控件的 属性。控件的属性设置如表7-1所示。
表7-1 任务7-1中的frmTicketReward窗体中的控件属性设置及其功能
控件名 Label1 TextBox1~TextBox7 Button1 Button2 Button3 属性名 Caption Text Caption Caption Caption 属性值 "号码" "" "摇奖" "停止" "公布" 作用 提示 显示摇奖号码 单击它开始摇奖 单击它停止摇奖 单击它弹出公布获奖号码窗体,公布中奖号码
Button4
Timer1
Caption
Enabled Interval
"退出"
False 200
单击它弹出“退出提示框”提示是否退出程序
每隔150毫秒产
生一组号码
4.单击工具栏上的“ ”按钮或执行【顷目】→【添加Windows窗体】 命令,将会出现如图7-7所示的【添加新顷】对话框。
图7-7 “添加新项”对话框
5.在该对话框的“模板”下面的
列表框中选中【Windows 窗体】图 标,在名称后面的文本框中输入窗体名“frmTicketPublish”,然后单 击“打开”按钮,即为应用程序添加了一个名为“frmTicketPublish” 窗体。把该窗体的Text属性值设置为“中奖号码公布”。 注意:也可以选添加窗体,然后再修改其Name属性值。
计算机应用教研室 操作系统
6.对照图7-2公布获奖号码窗体设计界面,为窗体添加控件并设置 控件的属性。控件的属性设置如表7-2所示。
表7-2
控件名
Label1
任务7-1中的frmTicketPublish窗体中的控件属性设置及其功能
属性名
Caption
属性值
"本期获奖号码如下:"
作用
提示
TextBox1~TextBox7
Button1
Text
Caption
""
"返回"
显示中奖号码
返回到摇奖窗体
7.采用不步骤4和步骤5同样的方法为顷目再添加一个名为 “frmExit”的窗体,并把它的Text属性值设置为“退出提示 框”。
8.对照图7-3退出提示