dim 一個(gè)窗體 as new form
讓客戶滿意是我們工作的目標(biāo),不斷超越客戶的期望值來(lái)自于我們對(duì)這個(gè)行業(yè)的熱愛(ài)。我們立志把好的技術(shù)通過(guò)有效、簡(jiǎn)單的方式提供給客戶,將通過(guò)不懈努力成為客戶在信息化領(lǐng)域值得信任、有價(jià)值的長(zhǎng)期合作伙伴,公司提供的服務(wù)項(xiàng)目有:主機(jī)域名、雅安服務(wù)器托管、營(yíng)銷軟件、網(wǎng)站建設(shè)、長(zhǎng)垣網(wǎng)站維護(hù)、網(wǎng)站推廣。
with 一個(gè)窗體
.location=...
.size=...'這里是設(shè)置窗體的位置等屬性
end with
一個(gè)窗體.show
直接添加一個(gè)MID父窗體或在已有窗體的屬性中找到IsMDIContainer屬性,然后設(shè)置為T(mén)rue,然后創(chuàng)建第二個(gè)窗體 ,需要加載子窗體的時(shí)候:
Dim NewMDIChild As New Form2
NewMDIChild.MdiParent = Me
NewMDIChild.Show()
Public?Shared?Sub?CheckMDIChildForm(ByVal?MDIForm?As?Windows.Forms.Form,?ByVal?MDIChildForm?As?Windows.Forms.Form,?ByVal?MDIChildFormName?As?String)
If?MDIForm.MdiChildren.Length??1?Then
'如果沒(méi)有任何一個(gè)MDI子窗體,則創(chuàng)該MDI子窗體的窗體實(shí)例
Dim?MDIChildFrm?As?Windows.Forms.Form?=?MDIChildForm?'?定義MDI子窗體
MDIChildFrm.MdiParent?=?MDIForm?'指定父窗體
MDIChildFrm.Show()?'打開(kāi)窗體
Exit?Sub
Else
Dim?x?As?Integer
Dim?frmyn?As?Boolean
For?x?=?0?To?(MDIForm.MdiChildren.Length)?-?1
Dim?tempChild?As?Windows.Forms.Form?=?CType(MDIForm.MdiChildren(x),?Windows.Forms.Form)
If?tempChild.Name?=?MDIChildFormName?Then
'檢測(cè)到有該MDI子窗體,設(shè)為激活?并退出循環(huán)
frmyn?=?True
tempChild.BringToFront()
Exit?For
Else
frmyn?=?False
End?If
Next
If?Not?frmyn?Then
'在打開(kāi)的窗體中沒(méi)檢測(cè)到則新建
Dim?MDIChildFrm?As?Windows.Forms.Form?=?MDIChildForm?'?定義MDI子窗體
MDIChildFrm.MdiParent?=?MDIForm?'指定父窗體
MDIChildFrm.Show()?'打開(kāi)窗體
End?If
End?If
End?Sub
VB用Show方法顯示窗體時(shí)使用style屬性為1,就可使顯示的窗體以模式窗體顯示。 Show 方法,用以顯示 MDIForm 或 Form 對(duì)象。不支持命名參數(shù)。 說(shuō)明 如果調(diào)用 Show 方法時(shí)指定的窗體沒(méi)有裝載,Visual Basic 將自動(dòng)裝載該窗體。
軟件bug。vb.net創(chuàng)建是會(huì)有窗體進(jìn)行應(yīng)用的,沒(méi)有應(yīng)用就是軟件bug原因,需要用戶將軟件關(guān)閉,點(diǎn)擊系統(tǒng)修復(fù)下載,再打開(kāi)軟件即可。