十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
在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
选择当前窗体的mdiparent
当另一个窗体作为mdi容器窗体时,可以选择该窗体作为当前窗体的MDI父窗体,当前窗体自动成为该MDI容器窗体的子成员,以后只能显示在该MDI容器窗体内部
1)你应该把你的代码放到QueryUnload事件而不是Unload事件中,前者发生在窗体卸载之前(这时候两个子窗体还没有关闭),后者则发生在窗体的卸载过程中(这时子窗体已经关闭了)。
2)我觉得你可以在MDI窗体中放入一个PictureBox来实现你的目的。
既然子窗体都有同名函数,就应该对子窗体进行一层封装,子类实现不同方法
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()