从品牌网站建设到网络营销策划,从策略到执行的一站式服务
在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()
成都网站建设公司地址:成都市青羊区太升南路288号锦天国际A座10层 建设咨询028-86922220
成都快上网科技有限公司-四川网站建设设计公司 | 蜀ICP备19037934号 Copyright 2020,ALL Rights Reserved cdkjz.cn | 成都网站建设 | © Copyright 2020版权所有.
专家团队为您提供成都网站建设,成都网站设计,成都品牌网站设计,成都营销型网站制作等服务,成都建网站就找快上网! | 成都网站建设哪家好? | 网站建设地图