多重窗体程序设计

《多重窗体程序设计》由会员分享，可在线阅读，更多相关《多重窗体程序设计（22页珍藏版）》请在金锄头文库上搜索。

1、Visual Basic Visual Basic 程序设计程序设计程序设计程序设计多重窗体程序设计你你们们可可要要努努力力哟哟!对于较为简单的应用程序，一个窗体就对于较为简单的应用程序，一个窗体就足够了。对于复杂的应用程序，往往需足够了。对于复杂的应用程序，往往需要通过多重窗体（要通过多重窗体（MultiForm）来实现。来实现。每一个窗体可以有不同的界面和程序代每一个窗体可以有不同的界面和程序代码，以完成不同的功能。如有的窗体用码，以完成不同的功能。如有的窗体用来输入数据，有的窗体用来显示结果等来输入数据，有的窗体用来显示结果等等。等。建立多重窗体应用程序建立多重窗体应用程序1.1.添加窗

2、体添加窗体单击单击“工程工程 | | 添加窗体添加窗体”命令或单击工具条上命令或单击工具条上的的“添加窗体添加窗体”按钮按钮 ; ;打开打开“添加窗体添加窗体”对话框，单击对话框，单击“新建新建”选项卡选项卡; ;从列表框中选择一种新窗体的类型；或者单击从列表框中选择一种新窗体的类型；或者单击“现存现存”选项卡，将属于其他工程的窗体添加到当选项卡，将属于其他工程的窗体添加到当前过程中。前过程中。 建立多重窗体应用程序建立多重窗体应用程序2.2.与多重窗体程序设计有关的语句和方法与多重窗体程序设计有关的语句和方法多重窗体的操作需要在各个窗体之间进行切换，涉多重窗体的操作需要在各个窗体之间进行切换

3、，涉及到窗体的及到窗体的“建立建立”、“装入装入”、“显示显示”、“隐隐藏藏”、“删除删除”等操作。等操作。（1 1）LoadLoad语句语句LoadLoad语句的作用是将一个窗体装入内存，但并不显语句的作用是将一个窗体装入内存，但并不显示窗体，其语法格式为：示窗体，其语法格式为：Load Load 窗体名称窗体名称（2 2）UnloadUnload语句语句UnloadUnload语句的功能与语句的功能与LoadLoad语句相反，是将窗体从内语句相反，是将窗体从内存中删除。存中删除。UnloadUnload语句的语法格式为：语句的语法格式为：Unload Unload 窗体名称窗体名称（3）S

4、how方法方法Show方法的语法格式为：方法的语法格式为： 窗体名称窗体名称.Show 模式模式（4）Hide方法方法用以隐藏窗体对象，但不能使其卸载。用以隐藏窗体对象，但不能使其卸载。Hide方法的语法格式为：方法的语法格式为： 窗体名称窗体名称.Hide隐藏窗体时，窗体就从屏幕上被删除，并将其隐藏窗体时，窗体就从屏幕上被删除，并将其 Visible 属性设置属性设置为为 False。 用户将无法访问隐藏窗体上的控件，但是对于运行中的用户将无法访问隐藏窗体上的控件，但是对于运行中的 Visual Basic 应用程序，或对于通过应用程序，或对于通过 DDE 与该应用程序通讯的进与该应用程序通

5、讯的进程及对于程及对于 Timer 控件的事件，隐藏窗体的控件仍然是可用的。控件的事件，隐藏窗体的控件仍然是可用的。窗体被隐藏时，用户只有等到被隐藏窗体的事件过程的全部代码窗体被隐藏时，用户只有等到被隐藏窗体的事件过程的全部代码执行完后才能够与该应用程序交互。执行完后才能够与该应用程序交互。如果调用如果调用 Hide 方法时窗体还没有加载，那么方法时窗体还没有加载，那么 Hide 方法将加载该方法将加载该窗体但不显示它。窗体但不显示它。 3.3.不同窗体之不同窗体之间的数据交的数据交换 可以在多重窗体之可以在多重窗体之间存取控件或全局存取控件或全局变量的量的值。4.4.设置启置启动对象象 在具

6、有多个窗体的在具有多个窗体的应用程序中，各个窗体之用程序中，各个窗体之间是并列关系。程序是并列关系。程序 运行运行时，首先，首先执行的行的对象模象模认为第一个第一个创建的窗口建的窗口Form1Form1，称，称为 启启动对象。根据需要可以指定其他窗体或象。根据需要可以指定其他窗体或MainMain子子过程程为启启动对象象指定启动对象指定启动对象l设计一个百战奇略程序。从目录中找到某战的名字，然后显示该战的内容。l和单窗体程序一样，多窗体程序设计也基本上分三步： 建立界面、编写代码、运行程序 百百战奇略奇略（原名百战奇法）作为一部以论述作战原则和作战方法为主旨的古代军事理论专著而问世，这无论是在

7、宋以前或是宋以后，都是不多见的。因此，从其产生以来，就为兵家所重视和推崇，给予很高评价，并一再刊行，广为流传。明弘治十七年（年）陕西布政使司左参政李赞，称该书是“极用兵之妙，在兵家视之，若无余策” ；他认为：只要“握兵者平时能熟于心，若将有事而精神筹度之，及夫临敌，又能相机而应之以变通之术”，那就可以建“成凯奏之功”。明万历二十七年（年），骠骑将军王鸣鹤认为：该书“殊足以启发后人，而战道略备矣” 。崇祯间邹复认为：“以此书教战于昔人，用兵之妙思过半矣”，倘若“神明而善用之，虽以百战而百胜可也” 。清咸丰间满人麟桂认为：是书“启发神智，或不无所补” ，等等。从明、清诸多论兵者的这些赞语中，可以明

8、显看出，该书在我国兵学理论发展史上的重要影响和地位。 多重窗体应用程序示例多重窗体应用程序示例一、一、 建立全部六个窗体建立全部六个窗体窗体窗体NameNameCaptionCaption封面封面FormCoverFormCover多窗体程序示例多窗体程序示例目录目录ListFormListForm百战奇略百战奇略第一战第一战z1z1计战计战第二战第二战z2z2谋战谋战第三战第三战z3z3间战间战第四战第四战z4z4选战选战各窗体统一的属性为：各窗体统一的属性为：控件控件控件控件属性属性属性属性设置值设置值设置值设置值MaxButtonMaxButtonFalseFalse右上角无放大符号右上

9、角无放大符号右上角无放大符号右上角无放大符号MinButtonMinButtonFalseFalse右上角无缩小符号右上角无缩小符号右上角无缩小符号右上角无缩小符号ControlBoxControlBoxTrueTrue保留左上角控制框保留左上角控制框保留左上角控制框保留左上角控制框BorderStyleBorderStyle3-Fixed Dialog3-Fixed Dialog不能改变窗体大小不能改变窗体大小不能改变窗体大小不能改变窗体大小MoveableMoveableFalseFalse不能移动窗体不能移动窗体不能移动窗体不能移动窗体如何去掉VB窗体右上角关闭按钮窗体右上角的窗体右上角

10、的X X按钮通常用来关闭一个程序，这个小按钮通常用来关闭一个程序，这个小X X按钮是和按钮是和系统菜单的系统菜单的“ “关闭关闭” ”菜单项关联在一起的。系统菜单就是点击菜单项关联在一起的。系统菜单就是点击窗体左上角的小图标时所弹出的菜单。其中有窗体左上角的小图标时所弹出的菜单。其中有“ “恢复恢复” ”、“ “移移动动” ”、“ “最大化最大化” ”、“ “最小化最小化” ”、“ “关闭关闭” ”等按钮。系统菜单等按钮。系统菜单用普通的方法不能编辑和改变，可通过用普通的方法不能编辑和改变，可通过APIAPI函数函数GetSystemMenuGetSystemMenu来得到它的句柄，然后通过来

11、得到它的句柄，然后通过APIAPI函数函数RemoveMenuRemoveMenu函数去掉窗体右上角的关闭按钮函数去掉窗体右上角的关闭按钮 。程序中用到了两个程序中用到了两个APIAPI函数函数GetSystemMenuGetSystemMenu、RemoveMenuRemoveMenu，其中其中GetSystemMenuGetSystemMenu函数用来得到系统菜单的句柄，函数用来得到系统菜单的句柄，RemoveMenuRemoveMenu用来删除指定的菜单条目用来删除指定的菜单条目详见详见 http:/www.coderoom.org/visual_basic/004/410.htmlht

12、tp:/www.coderoom.org/visual_basic/004/410.html 或或 http:/ Declare Function Private Declare Function GetSystemMenuGetSystemMenu Lib user32 ( Lib user32 (ByValByVal hwndhwnd As Long, As Long, ByValByVal bRevertbRevert As Long) As Long As Long) As LongPrivate Declare Function Private Declare Function Re

13、moveMenuRemoveMenu Lib user32 ( Lib user32 (ByValByVal hMenuhMenu As Long, As Long, ByValByVal nPositionnPosition As Long, As Long, ByValByVal wFlagswFlags As Long) As Long As Long) As LongPrivate Sub Private Sub Form_LoadForm_Load() () MyMenuMyMenu = = GetSystemMenu(Me.hwndGetSystemMenu(Me.hwnd, 0)

14、 , 0) 得到系统菜单的句柄，Me.hwnd表示当前窗体的句柄 RemoveMenuRemoveMenu MyMenuMyMenu, &HF060, MF_BYCOMMAND, &HF060, MF_BYCOMMAND 移去“关闭”菜单项，&HF060“关闭”菜单项的命令ID End Sub End Sub二、分别设置各个窗体的布局和独立属性二、分别设置各个窗体的布局和独立属性1 1、封面窗体（默认的、封面窗体（默认的“标准标准EXE”EXE”） 一个Label，二个button，1幅背景图 FormCoverFormCover的属性的属性属性属性属性属性设置值设置值设置值设置值说明说明说明

15、说明CaptionCaption多窗体程序示例多窗体程序示例NameNameFormCoverFormCoverPicturePicture未命名未命名.JPG.JPG背景图片背景图片封面窗体FormCoverLabel的属性的属性控件控件控件控件NameNameCaptionCaption第第1 1个按纽个按纽Command1Command1ContinueContinue第第2 2个按纽个按纽Command2Command2FinishFinish标签标签Label1Label1百战奇略百战奇略 属性属性设置值设置值说明说明BackStyleBackStyle0-Transparent0-

16、Transparent透明透明FontSizeFontSize7272FontnameFontname华文行揩华文行揩Command的属性的属性属性属性设置值设置值说明说明FontSizeFontSize2424FontnameFontname魏碑魏碑2 2、目录窗体、目录窗体 工程 添加窗体 在窗体上建立三个控件：1个Label , 1个ListBox , 1个Button。 控件控件控件控件属性属性属性属性设置值设置值设置值设置值LabelLabelCaptionCaption请选择要显示的战法请选择要显示的战法ListBoxListBoxButtonButtonCaptionCaptio

17、n返回返回返回返回3 3、“计战计战”窗体窗体 工程 添加窗体 在窗体上建立三个控件：1个Label , 1个TextBox , 1个Button。“计战计战”窗体各个控件设置窗体各个控件设置对象对象对象对象 属性属性属性属性设置设置设置设置窗体窗体窗体窗体CaptionCaption百战奇略百战奇略百战奇略百战奇略 计战计战计战计战NameNamez1z1标签标签标签标签NameNameLabel1Label1BackStyleBackStyle0-Transparent0-TransparentBorderStyleBorderStyle0-None0-None文本框文本框文本框文本框Mu

18、ltiLineMultiLineTrueTrueScrollBarsScrollBars2- Vertical2- Vertical按纽按纽按纽按纽CaptionCaption返回返回返回返回FontSizeFontSize三号三号三号三号FontNameFontName隶书隶书隶书隶书l除去除去除去除去CaptionCaption和和和和NameName外，另外外，另外外，另外外，另外3 3个个个个“ “战战战战” ”窗体都相同。窗体都相同。窗体都相同。窗体都相同。建立完全部建立完全部建立完全部建立完全部6 6个窗体后，在个窗体后，在个窗体后，在个窗体后，在“ “工程资源管理器工程资源管理器

19、工程资源管理器工程资源管理器” ”窗口中会列出已经窗口中会列出已经窗口中会列出已经窗口中会列出已经建立的窗体文件名称。窗体文件的名称与该窗体的建立的窗体文件名称。窗体文件的名称与该窗体的建立的窗体文件名称。窗体文件的名称与该窗体的建立的窗体文件名称。窗体文件的名称与该窗体的NameName值相同，值相同，值相同，值相同，扩展名为扩展名为扩展名为扩展名为frmfrm。利用利用利用利用“ “工程资源管理器工程资源管理器工程资源管理器工程资源管理器” ”窗口，可以修改任何一个窗体和代码。窗口，可以修改任何一个窗体和代码。窗口，可以修改任何一个窗体和代码。窗口，可以修改任何一个窗体和代码。各窗体显示位置一致性的调整逐一调整各窗体的Height和Width属性，使大小全部一致。将右下角的“窗体布局窗口”拖放到适当位置并放大。在“工程资源管理器”中逐一选择各窗体，在布局窗口中叠加各窗体（安排窗体在Windows窗口的默认打开位置），以保障本程序运行时各窗口的一致性。三、按执行顺序编写程序代码程序执行顺序程序执行顺序显示封面窗体“Continue”，封面消失，显示目录窗体；“Finish”，程序结束。选定目录项，目录窗消失，显示相应窗体。单击“返回”，该战法窗消失，回到目录窗体。在目录窗单击“返回”，目录窗消失，回到封面。