多重窗体程序设计.pptVIP

Visual Basic 程序设计 各窗体统一的属性为： 如何去掉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 封面窗体FormCover 除去Caption和Name外，另外3个“战”窗体都相同。建立完全部6个窗体后，在“工程资源管理器”窗口中会列出已经建立的窗体文件名称。窗体文件的名称与该窗体的Name值相同，扩展名为frm。利用“工程资源管理器”窗口，可以修改任何一个窗体和代码。 各窗体显示位置一致性的调整 逐一调整各窗体的Height和Width属性，使大小全部一致。 将右下角的“窗体布局窗口”拖放到适当位置并放大。在“工程资源管理器”中逐一选择各窗体，在布局窗口中叠加各窗体（安排窗体在Windows窗口的默认打开位置），以保障本程序运行时各窗口的一致性。 三、按执行顺序编写程序代码 程序执行顺序 显示封面窗体 “Continue”，封面消失，显示目录窗体；“Finish”，程序结束。 选定目录项，目录窗消失，显示相应窗体。 单击“返回”，该战法窗消失，回到目录窗体。 在目录窗单击“返回”，目录窗消失，回到封面。 * * 多重窗体程序设计 你们可要努力哟! 对于较为简单的应用程序，一个窗体就足够了。对于复杂的应用程序，往往需要通过多重窗体（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 控件的事件，隐藏窗体的控件仍然是可用的。 窗体被隐