代码

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