vb.net 中MDI子窗体对其父窗体属性的获取与修改

最新推荐文章于 2022-07-01 14:46:59 发布

转载最新推荐文章于 2022-07-01 14:46:59 发布 · 1.3k 阅读

文章标签：

#vb.net #class #access

eBook.VB.Net 专栏收录该内容

48 篇文章

订阅专栏

本文分享了VB.NET编程中MDI窗体的实用技巧，特别关注如何从子窗体控制父窗体的菜单项及按钮可见性等属性。通过示例代码介绍了实现这些功能的具体步骤。

兄弟前些日子做项目，第一次使用vb.net，碰上不少问题，相信很多初学者多多少少都会遇到这些问题，为了初学者学习方便，小弟总结了一些小经验，供大家参考讨论。
第一篇：如何在MDI子窗体中控制父窗体的属性等等
功能：比如打开一个子窗体后，就要设置父窗体中的某个菜单项或者按钮为不可见状态，诸如此类。
内容：
MDI父窗体和MDI子窗体类定义如下：
MDI父窗体：
Class MDIForm
Inherits System.Windows.Forms.Form
.........
'member mnuMain
Friend WithEvents mnuEditPaste As System.Windows.Forms.MenuItem
.......
'member
Friend WithEvents toolScan As System.Windows.Forms.ToolBarButton
private sub showChild()
dim frmTmp as new MDIChildFom'define a new instantce of MDIChildForm
frmTmp.MdiParent = me 'set the new form to be a Mdichild
frmTmp.show() 'show the new form
end sub
end Class
MDI子窗体：
Class MDIChildForm
.......
'set mnuEditPaste & toolScan cannot be seen
private sub setMDIMnuToolUnvisible()
'***************************************'
' first method you can set a menuitem to be unvisible'
'***************************************'
'this method you could not control one MenuItem
'you can only set a group of menuitems
me.MdiParent.Menu.Menuitems(0).visible = False 'set the first group menuitem can not be seen
'with this method you have not right to modify toolScan

dim frmMdi as MDIForm
if tyhpeof me.MdiParent is MDIForm
frmMdi = DirectCast(me.Mdiparent, MDIForm)'get the instantce of me.MdiParent
'then you should access all the members of class MDIForm without private members
frmMdi.mnuEditPaste = False
frmMdi.toolScan = Flase
'like this you could do everything with MDIForm you want
end if

end sub
end Class