首页 第10章

第10章

举报
开通vip

第10章null第十章 多重窗体和环境应用第十章 多重窗体和环境应用null内容提要:本章主要介绍Visual Basic 6.0应用程序界面设计中的多重窗体程序设计与Visual Basic工程结构的组成。 本章重点:着重掌握如何在一个应用程序中创建多重窗体,掌握其设计方法及相关语句,并熟练地运用。10.1 多重窗体(Multi-Form)10.1 多重窗体(Multi-Form)VB中允许应用程序有多个窗体,每个窗体有自己的代码和不同的操作,从而实现复杂的功能。 有关语句: Load :将窗体载入内存,但并不显示。 U...

第10章
null第十章 多重窗体和环境应用第十章 多重窗体和环境应用null内容提要:本章主要介绍Visual Basic 6.0应用程序界面设计中的多重窗体程序设计与Visual Basic工程结构的组成。 本章重点:着重掌握如何在一个应用程序中创建多重窗体,掌握其设计方法及相关语句,并熟练地运用。10.1 多重窗体(Multi-Form)10.1 多重窗体(Multi-Form)VB中允许应用程序有多个窗体,每个窗体有自己的代码和不同的操作,从而实现复杂的功能。 有关语句: Load <窗体名>:将窗体载入内存,但并不显示。 UnLoad <窗体名>:将窗体从内存中消除。 <窗体名> .Show [模式]:显示窗体,模式取0(非模态)或1(模态),默认模式为0。 <窗体名> .Hide:隐藏窗体(并不从内存中消除)。多重窗体设计多重窗体设计多重窗体设计与单重窗体设计一致,大致可分为三步: 建立界面 编写代码 运行程序 指定启动窗体:在“工程/工程属性/通用”中可以根据需要指定应用程序的启动窗体。null 例10-1 多重窗体应用程序 窗体1的代码 Private Sub Command1_Click() 'Load Form2 Form1.Hide Form2.Show Form2.Text1.Text = UCase(Form1.Text1) End Sub (待续)null(接上页) Private Sub Command2_Click() 'Load Form3 Form1.Hide Form3.Show Form3.Text1.Text = LCase(Form1.Text1) End Sub Private Sub Command3_Click() End End Sub (待续) null窗体2的代码: Private Sub Command1_Click() Form1.Show Form2.Hide End Sub Private Sub Form_Activate() Text1.Text=Ucase(Form1.Text1.Text) End Subnull窗体3的代码: Private Sub Command1_Click() Form1.Show Form3.Hide End Sub Private Sub Form_Activate() Text1.Text=Lcase(Form1.Text1.Text) End Sub null例10-2 窗体1的代码: Private Sub cmd1_Click() Form1.Hide '隐藏form1 Unload Form2 '卸载form2 End Sub 窗体2的代码: Private Sub Cmd2_Click() Form1.Show '显示form1 End Sub 10.2 Visual Basic工程结构10.2 Visual Basic工程结构标准模块 VB中主要有三种模块: 标准模块:由全局变量声明、模块层声明及通用过程等组成,所以也叫全局模块或总模块。 窗体模块:每个窗体都有一个对应的窗体模块,通常包括声明、通用过程及事件过程三部分。 Sub Main过程:通常设置为启动对象,主要用于应用程序的初始化工作;该过程必须建立在标准模块中,一个程序中可以有多个标准模块,但最多只能有一个Sub Main模块。null例10-3 标准模块的应用 标准模块的代码: Function isprime(t_I As Integer) As Boolean Dim J As Integer isprime = False For J = 2 To t_I / 2 If t_I Mod J = 0 Then Exit For Next J If J > t_I / 2 Then isprime = True End Function (待续)null(接上页) 窗体1的代码: Private Sub C1_Click() Dim s As Long, a As Integer, b As Integer, i As Integer If Op1.Value = True Then a = 100 b = 200 ElseIf Op2.Value = True Then a = 200 b = 400 End If (待续) null(接上页) For i = a To b If isprime(i) = True Then s = s + i End If Next i T1.Text = s End Sub 此部分详见教材P236-237讲解: 窗体模块 Sub Main过程 闲置循环与DoEvents语句10.3 综合应用程序举例10.3 综合应用程序举例例10-4 多重窗体应用:计算学生学习成绩 窗体frmMain的代码: Private Sub cmdInput_Click() frmInput.Show frmMain.Hide End Sub Private Sub cmdOutput_Click() frmOutput.Show frmMain.Hide End Sub (待续) null(接上页) 窗体frmInput的代码: Private Sub cmdReturn_Click() sMath = Val(Text1) sChinese = Val(Text2) sChemistry = Val(Text3) sEnglish = Val(Text4) sPhysics = Val(Text5) frmInput.Hide frmMain.Show End Sub (待续) null(接上页) 窗体frmOutput的代码: Private Sub Command1_Click() frmOutput.Hide frmMain.Show End Sub Private Sub Form_Activate() stotal = sMath + sChinese + sChemistry + sEnglish + sPhysics txtAverage = stotal / 5 txtTotal = stotal End Sub (待续)null(接上页) Private Sub Form_Load() stotal = sMath + sChinese + sChemistry + sEnglish + sPhysics txtAverage = stotal / 5 txtTotal = stotal End Sub 标准模块的代码: Public sMath, sPhysics, sChemistry, sEnglish, sChinese As Single
本文档为【第10章】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
下载需要: 免费 已有0 人下载
最新资料
资料动态
专题动态
is_240534
暂无简介~
格式:ppt
大小:113KB
软件:PowerPoint
页数:0
分类:互联网
上传时间:2012-06-08
浏览量:2