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

Visual Basic 程序设计
多重窗体程序设计
你们可要努力哟!
整理课件
对于较为简单的应用程序，一个窗体就足够了。对于复杂的应用程序，往往需要通过多重窗体（MultiForm）来实现。每一个窗体可以有不同的界面和程过API函数GetSystemMenu来得到它的句柄，然后通过API函数RemoveMenu函数去掉窗体右上角的关闭按钮[×] 。
程序中用到了两个API函数GetSystemMenu、RemoveMenu，其中GetSystemMenu函数用来得到系统菜单的句柄，RemoveMenu用来删除指定的菜单条目
详见
或
整理课件
如何去掉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(, 0)
'得到系统菜单的句柄，
RemoveMenu MyMenu, &HF060, MF_BYCOMMAND
'移去“关闭”菜单项，&HF060“关闭”菜单项的命令ID
End Sub
整理课件
二、分别设置各个窗体的布局和独立属性
1、封面窗体（默认的“标准EXE”）
一个Label，二个button，1幅背景图
FormCover的属性
属性
设置值
说明
Caption
多窗体程序示例
Name
FormCover
Picture

背景图片
整理课件
封面窗体FormCover
整理课件
Label的属性
控件
Name
Caption
第1个按纽
Command1
Continue
第2个按纽
Command2
Finish
标签
Label1
百战奇略
属性
设置值
说明
BackStyle
0-Transparent
透明
FontSize
72
Fontname
华文行揩
Command的属性
属性
设置值
说明
FontSize
24
Fontname
魏碑
整理课件
2、目录窗体
工程 → 添加窗体
在窗体上建立三个控件：1个Label , 1个ListBox , 1个Button。
控件
属性
设置值
Label
Caption
请选择要显示的战法
ListBox
Button
Caption
返回
整理课件
整理课件
3、“计战”窗体
工程 → 添加窗体
在窗体上建立三个控件：1个Label , 1个TextBox , 1个Button。
整理课件
“计战”窗体各个控件设置
对象
属性
设置
窗体
Caption
百战奇略 – 计战
Name
z1
标签
Name
Label1
BackStyle
0-Transparent
BorderStyle
0-None
文本框
MultiLine
True
ScrollBars
2- Vertical
按纽
Caption
返回
FontSize
三号
FontName
隶书
整理课件
除去Caption和Name外，另外3个“战”窗体都相同。建立完全部6个窗体后，在“工程资源管理器”窗口中会列出已经建立的窗体文件名称。窗体文件的名称与该窗体的Name值相同，扩展名为frm。利用“工程资源管理器”窗口，可以修改任何一个窗体和代码。
整理课件
各窗体显示位置一致性的调整
逐一调整各窗体的Height和Width属性，使大小全部一致。
将右下角的“窗体布局窗口”拖放到适当位置并放大。在“工程资源管理器”中逐一选择各窗体，