vb点虐 mdi子的简单介绍

vb里面怎么创建MDI窗体

在VB6中创建MDI窗体的方法如下：

在平安等地区，都构建了全面的区域性战略布局，加强发展的系统性、市场前瞻性、产品创新能力，以专注、极致的服务理念，为客户提供网站建设、成都网站设计 网站设计制作按需求定制制作,公司网站建设,企业网站建设,品牌网站建设,成都全网营销,成都外贸网站建设,平安网站建设费用合理。

（1）添加MDI主窗体

新建一个VB6工程。在“工程资源管理器”中点鼠标右键调出菜单，添加--添加MDI窗体

（2）添加MDI子窗体

将Form1的MDIChild属性设置为True

（3）运行效果

（4）添加窗体Form2，Form3，将这些窗体的属性MDIChild属性设置为True

（5）修改MDIForm1窗体代码

Option Explicit

Private Sub MDIForm_Load()

'显示子窗体Form2和Form3

Form2.Show

Form3.Show

End Sub

在VB点虐 中MdiParent是什么意思？

选择当前窗体的mdiparent

当另一个窗体作为mdi容器窗体时，可以选择该窗体作为当前窗体的MDI父窗体，当前窗体自动成为该MDI容器窗体的子成员，以后只能显示在该MDI容器窗体内部

VB关于MDI子窗体

1）你应该把你的代码放到QueryUnload事件而不是Unload事件中，前者发生在窗体卸载之前（这时候两个子窗体还没有关闭），后者则发生在窗体的卸载过程中（这时子窗体已经关闭了）。

2）我觉得你可以在MDI窗体中放入一个PictureBox来实现你的目的。

vb点虐 mdiform的父窗口调用子窗口的函数

既然子窗体都有同名函数，就应该对子窗体进行一层封装，子类实现不同方法

Public MustInherit Class AbstractChild

Public MustOverride Sub Method1()

End Class

Public Class ChildClass1

Inherits AbstractChild

Public Overrides Sub Method1()

MessageBox.Show("class1")

End Sub

End Class

Public Class ChildClass2

Inherits AbstractChild

Public Overrides Sub Method1()

MessageBox.Show("class2")

End Sub

End Class

Public Class ChildClass3

Inherits AbstractChild

Public Overrides Sub Method1()

MessageBox.Show("class3")

End Sub

End Class

Dim child1 As New ChildClass1()

Dim child2 As New ChildClass2()

Dim child3 As New ChildClass3()

child1.Method1()

child2.Method1()

child3.Method1()