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,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。