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