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