《多重窗体程序设计》PPT课件.ppt

Visual Basic 程序设计,多重窗体程序设计,你们可要努力哟!,对于较为简单的应用程序，一个窗体就足够了。对于复杂的应用程序，往往需要通过多重窗体（MultiForm）来实现。每一个窗体可以有不同的界面和程序代码，以完成不同的功能。如有的窗体用来输入数据，有的窗体用来显示结果等等。,建立多重窗体应用程序,1.添加窗体 单击“工程 | 添加窗体”命令或单击工具条上的“添加窗体”按钮 ; 打开“添加窗体”对话框，单击“新建”选项卡; 从列表框中选择一种新窗体的类型；或者单击“现存”选项卡，将属于其他工程的窗体添加到当前过程中。,建立多重窗体应用程序,2.与多重窗体程序设计有关的语句和方法 多重窗体的操作需要在各个窗体之间进行切换，涉及到窗体的“建立”、“装入”、“显示”、“隐藏”、“删除”等操作。 （1）Load语句 Load语句的作用是将一个窗体装入内存，但并不显示窗体，其语法格式为： Load 窗体名称 （2）Unload语句 Unload语句的功能与Load语句相反，是将窗体从内存中删除。Unload语句的语法格式为： Unload 窗体名称,（3）Show方法 Show方法的语法格式为： 窗体名称.Show 模式 （4）Hide方法 用以隐藏窗体对象，但不能使其卸载。Hide方法的语法格式为： 窗体名称.Hide 隐藏窗体时，窗体就从屏幕上被删除，并将其 Visible 属性设置为 False。 用户将无法访问隐藏窗体上的控件，但是对于运行中的 Visual Basic 应用程序，或对于通过 DDE 与该应用程序通讯的进程及对于 Timer 控件的事件，隐藏窗体的控件仍然是可用的。 窗体被隐藏时，用户只有等到被隐藏窗体的事件过程的全部代码执行完后才能够与该应用程序交互。 如果调用 Hide 方法时窗体还没有加载，那么 Hide 方法将加载该窗体但不显示它。,3.不同窗体之间的数据交换 可以在多重窗体之间存取控件或全局变量的值。 4.设置启动对象 在具有多个窗体的应用程序中，各个窗体之间是并列关系。程序 运行时，首先执行的对象模认为第一个创建的窗口Form1，称为 启动对象。根据需要可以指定其他窗体或Main子过程为启动对象,指定启动对象,设计一个百战奇略程序。从目录中找到某战的名字，然后显示该战的内容。 和单窗体程序一样，多窗体程序设计也基本上分三步： 建立界面、编写代码、运行程序 百战奇略（原名百战奇法）作为一部以论述作战原则和作战方法为主旨的古代军事理论专著而问世，这无论是在宋以前或是宋以后，都是不多见的。因此，从其产生以来，就为兵家所重视和推崇，给予很高评价，并一再刊行，广为流传。明弘治十七年（年）陕西布政使司左参政李赞，称该书是“极用兵之妙，在兵家视之，若无余策” ；他认为：只要“握兵者平时能熟于心，若将有事而精神筹度之，及夫临敌，又能相机而应之 以变通之术”，那就可以建“成凯奏之功”。明万历二十七年（年），骠骑将军王鸣鹤认为：该书“殊足以启发后人，而战道略备矣” 。崇祯间邹复认为：“以此书教战于昔人，用兵之妙思过半矣”，倘若“神明而善用之，虽以百战而百胜可也” 。清咸丰间满人麟桂认为：是书“启发神智，或不无所补” ，等等。从明、清诸多论兵者的这些赞语中，可以明显看出，该书在我国兵学理论发展史上的重要影响和地位。,多重窗体应用程序示例,一、 建立全部六个窗体,各窗体统一的属性为：,如何去掉VB窗体右上角关闭按钮,窗体右上角的X按钮通常用来关闭一个程序，这个小X按钮是和系统菜单的“关闭”菜单项关联在一起的。系统菜单就是点击窗体左上角的小图标时所弹出的菜单。其中有“恢复”、“移动”、“最大化”、“最小化”、“关闭”等按钮。系统菜单用普通的方法不能编辑和改变，可通过API函数GetSystemMenu来得到它的句柄，然后通过API函数RemoveMenu函数去掉窗体右上角的关闭按钮 。 程序中用到了两个API函数GetSystemMenu、RemoveMenu，其中GetSystemMenu函数用来得到系统菜单的句柄，RemoveMenu用来删除指定的菜单条目 详见 /visual_basic/004/410.html 或 /2005/05/02/11845.html,如何去掉VB窗体右上角关闭按钮,Private Declare Function GetSystemMenu Lib “user32“ (ByVal hwnd As Long, ByVal bRevert As Long) As Long Private Declare Function RemoveMenu Lib “user32“ (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long Private Sub Form_Load() MyMenu = GetSystemMenu(Me.hwnd, 0) 得到系统菜单的句柄，Me.hwnd表示当前窗体的句柄 RemoveMenu MyMenu, &HF060, MF_BYCOMMAND 移去“关闭”菜单项，&HF060“关闭”菜单项的命令ID End Sub,二、分别设置各个窗体的布局和独立属性 1、封面窗体（默认的“标准EXE”） 一个Label，二个button，1幅背景图 FormCover的属性,封面窗体FormCover,Label的属性,Command的属性,2、目录窗体 工程 添加窗体 在窗体上建立三个控件：1个Label , 1个ListBox , 1个Button。,3、“计战”窗体 工程 添加窗体 在窗体上建立三个控件：1个Label , 1个TextBox , 1个Button。,“计战”窗体各个控件设置,除去Caption和Name外，另外3个“战”窗体都相同。 建立完全部6个窗体后，在“工程资源管理器”窗口中会列出已经建立的窗体文件名称。窗体文件的名称与该窗体的Name值相同，扩展名为frm。 利用“工程资源管理器”窗口，可以修改任何一个窗体和代码。,各窗体显示位置一致性的调整,逐一调整各窗体的Height和Width属性，使大小全部一致。 将右下角的“窗体布局窗口”拖放到适当位置并放大。在“工程资源管理器”中逐一选择各窗体，在布局窗口中叠加各窗体（安排窗体在Windows窗口的默认打开位置），以保障本程序运