第10章 多重窗体和环境应用

《第10章 多重窗体和环境应用》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第10章多重窗体和环境应用主要内容1.建立多重窗体程序。2.多重窗体程序的执行与保存3.VisualBasic工程结构：（1）标准模块（2）窗体模块（3）SubMain过程10.1.多重窗体程序1.有关语句和方法：Load<窗体名>:将窗体载入内存，但并不显示。UnLoad<窗体名>:将窗体从内存中消除。<窗体名>.Hide:隐藏窗体（并不从内存中消除）<窗体名>.Show显示窗体注意：show方法同时具备有Load语句的功能，即当窗体不在内存时，show方法将先把窗体装入内存再显示。实验书P135-29窗体的隐藏和卸载分别用在不同的场合，隐藏Forml和卸载Forml的命

2、令分别是_____。A) Hide Form1 Unload Form1B) Form1.Hide Form1.UnloadC) Form1.Hide Unload Form1D) Hide Form1 Form1.Unloadc多重窗体设计与单重窗体设计一致，分为三步：建立界面编写代码运行程序多重窗体程序的执行与保存指定启动窗体：在“工程/工程属性/通用”多窗体程序的存取：可执行“文件”菜单的“保存工程”或“工程另存为”命令.10.1.2多重窗体程序的执行与保存10.1.2多重窗体程序的执行与保存例10-1多重窗体的简单应用程序，在程序中有三个窗体，form1上有一个文本框和三个

3、命令按钮，单击”转为大写”,隐藏form1,显示form2,并将Form1中文本框中的英文全部转换为大写字母并显示在Form2中的文本框中，单击Form2中的”返回“按钮”，则隐藏Form2，显示Form1，同理，转为小写，显示则Form3中10.1.2多重窗体程序的执行与保存窗体Form1的代码：PrivateSubCommand1_Click()Form1.HideForm2.ShowEndSubPrivateSubCommand2_Click()Form1.HideForm3.ShowEndSubPrivateSubCommand3_Click()EndEndSub10.1.

4、2多重窗体程序的执行与保存窗体Form2的代码：PrivateSubCommand1_Click()Form2.HideForm1.ShowEndSubPrivateSubForm_Activate()Text1.Text=UCase(Form1.Text1.Text)EndSub窗体Form3的代码：PrivateSubCommand1_Click()Form3.HideForm1.ShowEndSubPrivateSubForm_Activate()Text1.Text=LCase(Form1.Text1.Text)EndSub10.2VB工程结构VB中主要有三种模块：标准模块

5、：由全局变量声明、模块层声明及通用过程等组成，所以也叫全局模块或总模块。窗体模块：SubMain过程：通常设置为启动对象，主要用于应用程序的初始化工作；该过程必须建立在标准模块中，一个程序中可以有多个标准模块，但最多只能有一个SubMain模块。10.2VB工程结构例:在应用程序中,有一个窗体文件和一个标准模块文件,标准模块文件中代码如下:Submain()Form1.ShowForm1.Print"北京时间：";TimeEndSub运行前,将submain()设置为启动对象(工程工程属性通用卡,启动对象为submain,程序运行后结果如何?例10-3标准模块应用举例p10-3

6、在名称为Forml的窗体上建立两个单选按钮，名称分别为Opl和op2，标题分别为“100-200之间素数”和“200-400之间素数”，一个文本框（名称为Tl）和一个命令按钮（名称为Cl，标题为“计算”）程序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。提供已创建好的标准模块mode.bas，其中的isprime过程可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False。标准模块mode.bas代码如下：Functionisprime(t_IAsInteger)AsBooleanDimJAsI

7、ntegerisprime=FalseForJ=2Tot_I/2Ift_IModJ=0ThenExitForNextJIfJ>t_I/2Thenisprime=TrueEndFunction综合应用程序举例解析：新建一个工程文件，添加两个单选钮，一个文本框和一个命令按钮，属性如下:对象默认名称属性属性值Text1名称T1Command1名称、CaptionC1、计算Option1名称、CaptionOp1、100-200之间素数Option2名称、CaptionOp2