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

王朝vb·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

兄弟前些日子做项目,第一次使用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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有  導航