---mdi窗體和多窗體編程--- 目的:在mdi窗體內(nèi)用toolbar實(shí)現(xiàn)多窗體的實(shí)例,在vb.net中顯示窗體一般代碼如下 private sub toolbar1_buttonclick()sub toolbar1_buttonclick(byval sender as system.object, byval e as system.windows.forms.toolbarbuttonclickeventargs) handles toolbar1.buttonclick select case e.button.text case "ok" '"ok" is toolbarbutton.text dim fr as new frmname fr.mdiparent = me 'me is mdiform fr.show() end select end sub
http://www.chinaaspx.com/club/topic_5_7796.htm
參考了一下,得出下面的代碼
private shared fr as new frmname private sub toolbar1_buttonclick()sub toolbar1_buttonclick(byval sender as system.object, byval e as system.windows.forms.toolbarbuttonclickeventargs) handles toolbar1.buttonclick select case e.button.text case "ok" '"ok" is toolbarbutton.text if fr is nothing or fr.isdisposed then fr = new frmname fr.mdiparent = me fr.show() else fr.mdiparent = me fr.show() fr.focus() end if end select end sub 這樣就實(shí)例了一次窗體~ ---end---