VBNET程序设计实用教程7.ppt
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_1.gif)
![资源得分’ title=](/images/score_05.gif)
《VBNET程序设计实用教程7.ppt》由会员分享,可在线阅读,更多相关《VBNET程序设计实用教程7.ppt(82页珍藏版)》请在得力文库 - 分享文档赚钱的网站上搜索。
1、VB.NEVB.NET T清华大学出版社清华大学出版社VB.NET程序设计实用教程程序设计实用教程第第7 7章章 WindowsWindows高级界面设计高级界面设计本章任务:体 育 彩 票 摇 奖 程 序简 易 文 本 编 辑 器 程 序 图 文 浏 览 器 程 序计算机算机应用用教研教研室室操作系操作系统本章要点本章要点菜单的制作方法标准对话框的使用工具栏的制作方法多窗体应用程序设计状态栏的制作方法要要点点MDI应用程序设计7.1 7.1 任务任务7-17-1:体育彩票摇奖程序:体育彩票摇奖程序多窗体程序设计多窗体程序设计任务7-1描述:编写一个七位号码体彩摇奖程序,程序中有三个窗体,分别
2、如图7-1、图7-2和图7-3所示。程序运行时首先出现摇奖窗体,在该窗体上单击“摇奖”按钮,将不停地产生随机数并填充在七个文本框中,如图7-4所示。单击“停止”按钮将停止摇奖,此时在文本框中显示的数就是获奖号码。单击“公布”按钮将公布获奖号码,如图7-5所示。在该窗体上单击“返回”按钮将返回到摇奖窗体。单击“退出”按钮将出现如图7-6所示的“退出提示框”,单击“确定”按钮将退出应用程序。注意:在图7-1所示的窗体中还有一个定时器控件。计算机算机应用用教研教研室室操作系操作系统 图7-1 摇奖窗体设计界面 图7-2 公布中奖号码窗体设计界面图7-3 “退出提示框”窗体设计界面 图7-4 摇奖窗体
3、运行界面图7-5 公布中奖号码窗体运行界面 图7-6 “退出提示框”窗体运行界面1启动VB.NET,新建一个项目,项目类型为“Windows应用程序”,项目的存放位置为“D:VBTASKCH07”,项目名为“Task7_1”。2把Form1窗体的Text属性值设置为“体育彩票摇奖程序”,把它的Name属性值设置为“frmTicketReward”。单击“解决方案资源管理器”中的“Form1.VB”窗体,然后在属性窗口中把它文件名属性设置为“frmTicketReward.vb”。然后执行【项目】【Task7_1属性】命令,在出现的“Task7_1属性页”对话框中把“启动对象”设置为frmTic
4、ketReward”。注意:在多窗体程序设计中,如果要改变启动窗体,方法也是执行【项目】【*属性】命令,在出现的“*属性页”对话框中把“启动对象”设置为相应窗体即可。任务实现:控件名属性名属性值作用Label1Caption号码提示TextBox1TextBox7Text显示摇奖号码Button1Caption摇奖单击它开始摇奖Button2Caption停止单击它停止摇奖Button3Caption公布单击它弹出公布获奖号码窗体,公布中奖号码Button4Caption退出单击它弹出“退出提示框”提示是否退出程序Timer1EnabledIntervalFalse200每隔150毫秒产生一组
5、号码3对照图7-1摇奖窗体设计界面,为窗体添加控件并设置控件的属性。控件的属性设置如表7-1所示。表7-1 任务7-1中的frmTicketReward窗体中的控件属性设置及其功能计算机算机应用用教研教研室室操作系操作系统4单击工具栏上的“”按钮或执行【项目】【添加Windows窗体】命令,将会出现如图7-7所示的【添加新项】对话框。5在该对话框的“模板”下面的列表框中选中【Windows 窗体】图标,在名称后面的文本框中输入窗体名“frmTicketPublish”,然后单击“打开”按钮,即为应用程序添加了一个名为“frmTicketPublish”窗体。把该窗体的Text属性值设置为“中奖
6、号码公布”。注意:也可以选添加窗体,然后再修改其Name属性值。图7-7 “添加新项”对话框控件名属性名属性值作用Label1Caption本期获奖号码如下:提示TextBox1TextBox7Text显示中奖号码Button1Caption返回返回到摇奖窗体6对照图7-2公布获奖号码窗体设计界面,为窗体添加控件并设置控件的属性。控件的属性设置如表7-2所示。7采用与步骤4和步骤5同样的方法为项目再添加一个名为“frmExit”的窗体,并把它的Text属性值设置为“退出提示框”。表7-2 任务7-1中的frmTicketPublish窗体中的控件属性设置及其功能对象名属性名属性值说明Label
7、1Text真的要退出应用程序吗?提示信息Button1TextDialogResult确定OK单击它将退出应用程序Button2TextDialogResult取消Cancel单击它将不退出应用程序8对照图7-3退出提示框窗体设计界面,为窗体添加控件并设置控件的属性。控件的属性设置如表7-3所示。然后再把该窗体的FormBorderStyle属性值设置为“FixedSingle”,把AcceptButton属性值设置为“Button1”把CancelButton属性值设置为“Button2”。至此界面设计基本完成。表7-3 任务7-1中的frmExit窗体中的控件属性设置及其功能 9在“解决方
8、案资源管理器”中双击“frmTicketReward”窗体,并切换到“frmTicketReward”窗体的代码窗口,在代码窗口的最顶部加上如下程序代码。Imports Task7_1.frmTicketPublishImports Task7_1.frmExit注意:在多窗体程序设计中,每个窗体相当于一个类,在一个窗体中要调用其它窗体,必须通过Imports语句把该窗体作为命名空间引入进来。10在“”下面编写如下程序代码,定义7个全局公享的整型变量,用来存放中奖号码。Public Shared a1,a2,a3,a4,a5,a6,a7 As Integer 存放摇出来的中奖号码注意:必须是在
9、窗体的“Declaration”部分用“Public Shared”定义的变量才能被其它窗体使用。11编写本窗体的Load事件过程代码,如下。Private Sub frmTicketReward_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load Randomize()随机数初始化 End Sub12编写Button1按钮的Click事件过程代码,如下。Private Sub Button1_Click(ByVal sender As System.Object,ByVal e
10、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):a
11、2=Int(Rnd()*10)a3=Int(Rnd()*10):a4=Int(Rnd()*10)a5=Int(Rnd()*10):a6=Int(Rnd()*10)a7=Int(Rnd()*5)+1 最后一位是特别号,只能在15之间 显示随机产生的七位号码 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说明:该过程每隔
12、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
13、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 Sub18编写Button4按钮的Click
14、事件过程代码,如下。Private Sub Button4_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button4.Click Dim frmExitDialog As New frmExit 根据退出窗体生成对象 If frmExitDialog.ShowDialog()=DialogResult.OK Then 如果单击了“确定”按钮,则退出 Me.Close()关闭本窗体 Application.Exit()退出应用程序 End If End Sub说明:(1)上述代码首先产生一个fr
15、mExit窗体的实例,然后调用该窗体实例的ShowDialog方法把该窗体实例以对话框的形式显示出来,如果用户在对话框中单击了“是”按钮,则退出应用程序。(2)在VB.NET中,除了可以使用Windows自带的标准对话框外,如MsgBox、InputBox等,用户还可以把自己设计的窗体定义成对话框。使用自定义对话框有以下几个要点。将窗体的FormBorderStyle属性值设置为FixedDialog;根据需要向窗体上添加控件;使用窗体的ShowDialog方法显示窗体,即显示出对话框。19运行程序,单击“退出”按钮,将会出现如图7-6所示的对话框,单击“是”按钮退出应用程序。20在“解决方案
16、资源管理器”中双击“frmTicketPublish”窗体并切换到该窗体,在所有代码之前,加上如下代码。Imports Task7_1.frmTicketReward21编写“frmTicketPublish”窗体的Load事件过程代码,如下。Private Sub frmTicketPublish_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load 把中奖号码显示在各文本框中 TextBox1.Text=CStr(a1):TextBox2.Text=CStr(a2)TextBox
17、3.Text=CStr(a3):TextBox4.Text=CStr(a4)TextBox5.Text=CStr(a5):TextBox6.Text=CStr(a6)TextBox7.Text=CStr(a7)End Sub说明:在窗体中可以访问被引入的其他窗体中定义的全局共享变量。22为该窗体的“关闭”按钮编写Click事件过程代码,如下。Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Button1.Click Me.Close()关闭本窗体 End Su
18、b23运行程序,单击“摇奖”按钮进行摇奖,单击“停止”按钮产生中奖号码,单击“公布”按钮将会出现如图7-5所示的“中奖号码公布”窗口,单击“关闭”按钮将加到“摇奖”窗口。24保存项目,至此本任务全部完成。归纳说明:Windows应用程序很少只由一个窗体组成,一般情况下一个应用程序均拥有很多个窗体。VB.NET项目刚建立时只有一个名为Form1的窗体,要建立多窗体应用程序应首先为项目添加窗体。在VB.NET中还可以任意指定其他窗体为启动窗体。本任务通过体育彩票摇奖程序的实现过程,讲解了多窗体程序设计的方法与注意事项。7.2 7.2 任务任务7-27-2:简易文本编辑器程序:简易文本编辑器程序丰富
19、格式丰富格式文本框、菜单、对话框、工具栏、状态栏等的应用文本框、菜单、对话框、工具栏、状态栏等的应用 任务7-2描述:编写一个简易文本编辑器程序,要求通过菜单能够实现文件的新建、打开、保存、另存为、退出等文件或应用程序操作功能,能够实现撤消、重做、剪切、复制、粘贴、删除、全选等编辑操作功能,能够实现设置文本的字体、颜色、背景色等格式操作功能。对于常用的功能还要通过工具栏实现,还应具有状态栏对当前的状态进行提示。程序的设计界面如图7-10所示,程序的运行界面如图7-11所示。图7-10 程序设计界面 图7-11 程序运行界面任务分析:本 任 务 涉 及 到 菜 单、工 具 栏、状 态 栏 等 多
20、 种 控 件,中 间 涉 及 到 多 种 编 程 技 巧,分 析 起 来 较 困 难,将 在讲 解 的 过 程 中 一 步 一 步 地 加 上 详 细 分 析。任务实现:1启动VB.NET,新建一个项目,项目类型为“Windows应用程序”,项目的存放位置为“D:VBTASKCH07”,项目名为“Task7_2”。2把Form1窗体的Text属性值设置为“简易文本编辑器”,把它的Name属性值设置为“frmTextEditor”。单击“解决方案资源管理器”中的“Form1.VB”窗体,然后在属性窗口中把它文件名属性设置为“frmTextEditor.vb”。然后执行【项目】【Task7_2属性
21、】命令,在出现的“Task7_2属性页”对话框中把“启动对象”设置为“frmTextEditor”。3在工具箱上找到MainMenu(主菜单)控件图标“”,并把该控件添加到窗体上,标题栏下将出现菜单栏,如图7-12所示。图7-12 添加了MainMenu控件后出现的菜单栏 图7-13 在菜单栏中输入了“文件&F”菜单项4在“请在此处输入”文字上单击,然后输入文字“文件&F”,如图7-13所示。然后在属性窗体中把该菜单项的名称设置为“MenuItem1”。5在“文件F”下面的“请在此处输入”文字上单击,输入文字“新建&N”,然后在属性窗口中把Name属性值设置为MenuItem1_1,在属性窗口
22、中选中Shortcut属性,单击其后的向下箭头按钮,在出现的列表中选择快捷键“CtrlN”,如图7-14所示。图7-14 为“文件&F”菜单输入了“新建&N”菜单项 图 7-15 设计好的“文件”菜单6使用同样的方法,为“文件F”菜单再添加5个菜单项,菜单项的标题文字、名称、快捷键如表7-4所示。设置好的文件菜单如图7-15所示。表7-4 “文件”菜单中的其它菜单项及其属性设置菜单标题文字(Text属性值)菜单项名(Name属性值)快捷键(ShortCut属性值)打开&O.MenuItem1_2CtrlO保存SMenuItem1_3CtrlS另存为A.MenuItem1_4None-MenuI
23、tem1_5None退出&XMenuItem1_6CtrlX说明:菜单项的常用属性如下:(1)Text属性:该属性用来获取或设置一个值,通过该值显示菜单项标题。当使用Text属性为菜单项指定标题时,还可以在字符前加一个“&”号来指定热键(访问键,即加下划线的字母)。例如,若要将“File”中的“F”指定为访问键,应将菜单项的标题指定为“&File”。(2)Checked属性:该属性用来获取或设置一个值,通过该值指示选中标记是否出现在菜单项文本的旁边。如果要放置选中标记在菜单项文本的旁边,属性值为True,否则属性值为False。默认值为False。(3)DefaultItem属性:该属性用来获
24、取或设置一个值,通过该值指示菜单项是否为默认菜单项。值为True时,是默认菜单项,值为False时,不是默认菜单项。菜单的默认菜单项以粗体的形式显示。当用户双击包含默认项的子菜单后,默认项被选定,然后子菜单关闭。(4)Enabled属性:该属性用来获取或设置一个值,通过该值指示菜单项是否可用。值为True时表示可用,值为False时表示当前禁止使用。(5)RadioCheck属性:该属性用来获取或设置一个值,通过该值指示选中的菜单项的左边是显示单选按钮还是选中标记。值为True时将显示单选按钮标记,值为False时显示选中标记。(6)Shortcut属性:该属性用来获取或设置一个值,该值指示与
25、菜单项相关联的快捷键。(7)ShowShortcut属性:获取或设置一个值,该值指示与菜单项关联的快捷键是否在菜单项标题的旁边显示。如果快捷组合键在菜单项标题的旁边显示,该属性值True,如果不显示快捷键,该属性值为False。默认值为True。(8)MdiList属性:该属性用来获取或设置一个值,通过该值指示是否用在关联窗体内显示的多文档界面(MDI)子窗口列表来填充菜单项。若要在该菜单项中显示MDI子窗口列表,则设置该属性值为True,否则设置该属性的值为 False。默认值False。7单击“文件F”右边的“请在此处输入”,输入“编辑&E”形成编辑菜单,在属性窗口设置“编辑”菜单的名称为
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBNET 程序设计 实用教程
![提示](https://www.deliwenku.com/images/bang_tan.gif)
限制150内