日期:2012-11-21  浏览次数:20423 次

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