编程学习biancheng.45soft.com 本站提供了各种在线教程和资料,供大家学习与参考.
编程学习
当前位置: 主页 > VB6 > 界面设计 > VB6 界面设计 创建和设计MDI窗体及其子窗体

VB6 界面设计 创建和设计MDI窗体及其子窗体

(1) 创建和设计MDI窗体


创建: “工程/添加MDI窗体”命令

设计:一般有菜单栏、工具栏、状态栏,不可有文本框等控件。(下左图为MDI窗体,下右图是具有一个子窗体的工程资源管理器窗口)


创建和设计MDI窗体及其子窗体_界面设计_VB6


创建和设计MDI窗体及其子窗体_界面设计_VB6



(2) 创建和设计MDI子窗体

创建: MDI的子窗体是一个将普通窗体的MDIChild属性置为True(缺省值为false)的普通窗体。


用MDIForm_Load()时将MDIChild(子窗体)连入MDI窗体,程序代码如下:

Private Sub MDIForm_Load()
    Load(Form1)
End Sub

结果形式如图: 


创建和设计MDI窗体及其子窗体_界面设计_VB6


在程序运行时若要创建多个子窗体,通过窗体类来实现:


设计:子窗体可没有菜单栏,但必须有文本框。

'要使建立的子窗体标题列在窗口菜单之下,只需在建立窗口菜单时选中显示窗口列表选项即可。当点击窗口菜单中的窗口标题时将激活该子窗口。
Private Sub munAddForm_Click() '添加子窗体菜单事件
    'NewForm 是用程序生成的子窗体实例,它与Form1 子窗体具有相同的属性、控件和代码
    '多次触发这个事件,则产生多个Form1的实例
    Static No% '静态局部变量
    Dim NewForm As New Form1 '定义并建立一个NewForm窗体变量
    No = No + 1
    NewForm.Caption = "子窗体 " & No '新窗体的标题
    NewForm.Show() '显示新窗体。当父窗体的(MDIForm窗体)属性AutoShowChild设为True时没有这一句也照样显示子窗体
End Sub



编程学习 VB6 界面设计 创建和设计MDI窗体及其子窗体 转载请保留此行.谢谢.

VB6