如何給VB.NET窗體添加子窗體？

直接添加一個MID父窗體或在已有窗體的屬性中找到IsMDIContainer屬性，然后設(shè)置為True，然后創(chuàng)建第二個窗體 ，需要加載子窗體的時候：

創(chuàng)新互聯(lián)網(wǎng)站建設(shè)提供從項目策劃、軟件開發(fā)，軟件安全維護、網(wǎng)站優(yōu)化(SEO)、網(wǎng)站分析、效果評估等整套的建站服務(wù)，主營業(yè)務(wù)為網(wǎng)站制作、成都做網(wǎng)站，成都app軟件開發(fā)以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。創(chuàng)新互聯(lián)深信只要達(dá)到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

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

'如果沒有任何一個MDI子窗體，則創(chuàng)該MDI子窗體的窗體實例

Dim?MDIChildFrm?As?Windows.Forms.Form?=?MDIChildForm?'?定義MDI子窗體

MDIChildFrm.MdiParent?=?MDIForm?'指定父窗體

MDIChildFrm.Show()?'打開窗體

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

'檢測到有該MDI子窗體，設(shè)為激活?并退出循環(huán)

frmyn?=?True

tempChild.BringToFront()

Exit?For

Else

frmyn?=?False

End?If

Next

If?Not?frmyn?Then

'在打開的窗體中沒檢測到則新建

Dim?MDIChildFrm?As?Windows.Forms.Form?=?MDIChildForm?'?定義MDI子窗體

MDIChildFrm.MdiParent?=?MDIForm?'指定父窗體

MDIChildFrm.Show()?'打開窗體

End?If

End?If

End?Sub

在VB.NET中怎么實現(xiàn)多窗體同步

這是一個有趣的問題 我保證某些聰明的編程好手會建議我使用委托 在這種事情發(fā)生之前 讓我們 先探究一下這個問題的幾種解決方案 假定我有兩個窗體 每個窗體都有兩個 textbox 控件 txt stData 和 txt ndData 我怎樣才能保持這兩個窗體中的控件同步呢？對于我們討論的問題來說 有兩個或十個窗體都不重要 問題是相同的 第一個辦法相對簡單 事實上 它甚至比我們直接使用委托更為簡單 我想委托有時會給人用牛刀殺雞的感覺 首先 我建立一個類它包含我希望與應(yīng)用程序中的所有窗體共享的屬性(參見 Figure ) 例如 MyData 和 MoreData 擁有每個窗體都能顯示的數(shù)據(jù) 我將很快回到這個類來 第二 正如我早先提到的我用相同的控件(txt stData 和 txt ndData)建立了兩個窗體 你可以參考 Figure 的布局 兩個窗體都有完全相同的數(shù)據(jù) 并且我將很快解釋為什么 下面 我建立一個名為 modGeneral 的模塊并加入下面一行代碼 Friend DataStuff As DataClass 這一行代碼為我的新類 DataClass 創(chuàng)建了一個友元變量 使你可以完全訪問程序集 對這個簡單例子來說 也就是指完整的應(yīng)用程序 然后我添加了下面的代碼到 Form 的 Load 事件 DataStuff = New DataClass Me txt stData DataBindings Add( Text DataStuff MyData ) Me txt ndData DataBindings Add( Text DataStuff MoreData ) 第一行建立一個 DataClass 新實例 下面兩行代碼將數(shù)據(jù)綁定到 textbox 控件 對這個窗體而言 就這么些操作！ 現(xiàn)在 你怎樣讓它們與 Form 和其它窗體上的數(shù)據(jù)同步呢？將下面兩行加入到 Form 的窗體load 事件中去 Me txt stData DataBindings Add( Text DataStuff MyData ) Me txt ndData DataBindings Add( Text DataStuff Moredata ) 這個方法容易確保所有窗體上的幾乎任何類型的數(shù)據(jù)處于同步狀態(tài) 你可以簡單地將控件綁定到某個類的相同實例上 這就行了 現(xiàn)在來看另一個方法 我創(chuàng)建了一個名為 frmBase 的新窗體 這時我在上面放一個 textbox (txtNextData)和 label 我想 讓應(yīng)用程序的每個窗體都共享這個 textbox 和 label 并且我希望它們互相之間保持同步 于是我重建這個工程 通過從新的 frmBase 中的繼承 我創(chuàng)建了 Form 和Form 因此它們繼承了所有新的控件 但是我怎樣能保持這些控件同步呢？這時必須寫一點代碼去達(dá)到此效果 這些代碼在單個的類中 通過簡單地調(diào)用一個函數(shù)而被復(fù)用 Figure 中的代碼展示了這個稱為 modGeneral 模塊 它的第一個任務(wù)是定義兩個變量 MyForms 和 localNextData MyForms 是一個 集合 它將包含我想要同步的窗體列表 localNextData變量將儲存所有我想要在窗體里顯示的數(shù)據(jù) 注意這些變量可以駐留于某個類中而不是某個模塊里 AddForm 過程來自 modGeneral 帶一個窗體實例參數(shù) 并將其加入 MyForms 集合中 我將在UpdateControlsNextData 過程中使用這個 集合以決定哪些窗體要更新 AddForm 也調(diào)用UpdateControlsNextData 來確保一個新窗體是用正確的數(shù)據(jù)更新的 modGeneral 中的其它代碼是 NextData 屬性 這些屬性的 set 存取器更新 localNextData 并也調(diào)用 UpdateControlsNextData 去同步所有窗體 這時所有我需要做的是 在想要改變它時設(shè)置 NextData 通過調(diào)用 UpdateControlsNextData 所有窗體將被更新 第三個方法是定制鏈接 它是第二個方法的精華版 我創(chuàng)建它以獲得多一些窗體控件處理的靈活性 例如 我只想跟蹤和處理某些窗體 這些窗體包含必須同步的控件 這個方法 還可以讓我自己定義擬同步的控件 并且只處理這些控件的窗體 我為這個辦法添加了另一個模塊 (modGeneralv ) 如 Figure 所示 該模塊包括一個集合(MyFormsToUpdate) 其中包含所有我想要同步的窗體 這個模塊 還有一個新的數(shù)組 (ControlsToUpdate) 它提供一個我要同步的控件列表 該數(shù)組的定義如下 Private ControlsToUpdate() As String = { txtCustomer txtAddress txtName } 這個模塊里有一個新的替代 AddForm 的改良版本 叫做 AddFormToUpdate 該方法工作方式與AddForm 類似 但現(xiàn)在它只添加擁有一個或多 個 ControlsToUpdate 數(shù)組中控件的窗體 因此只有那些含有特定控件的窗體在更新集合中 它使我可以從每個窗體中調(diào)用該函數(shù) 如果我決定以后添加某個特定的控件 它將會被自動添加到窗體列表 我只需對窗體代碼做細(xì)小的改動便可以實現(xiàn) 這個模塊還包含 UpdateControlsOnAllForms 過程 它執(zhí)行更新 代替上一個方法中使用的一個應(yīng)用程序級變量 我現(xiàn)在使用主窗體的概念 因此我可以將那個窗體的值拷貝到集合中的所有其它窗體 UpdateControlsOnAllForms 其實就是一組簡單的 For Nexts 循環(huán)遍歷某個窗體的所有控件 找到需要更新的控體 并更新它們 為了在我的窗體中實現(xiàn)這一功能 我在窗體的 Load 事件中加入了這一行代碼 AddFormToUpdate(Me) 另外一種可選的方法 我可以將它添加到構(gòu)造函數(shù) 這一行代碼將把當(dāng)前窗體實例添加到集合進行更新 現(xiàn)在讓我們考察單個事件過程 Private Sub txt_Leave(ByVal sender As Object _ ByVal e As System EventArgs) Handles txtAddress Leave _ txtCustomer Leave txtName Leave UpdateControlsOnAllForms(Me) End Sub 這段代碼將我想要同步的所有三個控件 (txtAddress txtCustomer 和 txtName)的 Leave 事件捆綁到一個事件句柄上 這時我可以添加一行代碼 來調(diào)用 UpdateControlsOnAllForms Me 被傳遞到該過程調(diào)用 從而導(dǎo)致其它窗體與該窗體同步 現(xiàn)在我有三個版本的代碼 它們都可以同步窗體中控件 因此我可以進行選擇 我可能已經(jīng)使用了自定義事件 在 DataClass 中定義某個事件并讓每個窗體都預(yù)訂它 然后當(dāng)這個事件觸發(fā)時 這些窗體可以從每個事件句柄中獲取新的數(shù)據(jù)并設(shè)置適當(dāng)?shù)目丶?但是這樣做所需的代碼量一點也不會比第一種方法中將控件綁定到類來得少 我可以構(gòu)建單個實現(xiàn)更新的過程 并將該過程放到某個模塊中 我需要向該過程傳遞窗體實例來實現(xiàn)更新 我可以用類中的某個事件句柄觸發(fā)這個過程 此過程看起來就像這樣 Sub UpdateControls(ByVal ThisForm As frmBase) With ThisForm txtNextData Text = localNextData End With End Sub ThisForm 參數(shù)被定義為 frmBase 類型 以便它可以訪問 IntelliSense 并獲得窗體的自定義屬性 簡單地將它寫成 Form 將無法顯示 frmBase 中的屬性及其派生窗體 另一選擇是使用委托 當(dāng)然 委托可以讓我將委托調(diào)用重定向到每個窗體的方法上 如果我使用多播機制 那么我可以讓每個窗體都處理該事件并更新相應(yīng)的控件 用委托建立這樣的功能聽起來確實簡單 但 對我來說它更麻煩且沒有實踐價值 此外 與第三個方法中的 For Next 循環(huán)嵌套相比 這個代碼并不難理解 畢竟 一個應(yīng)用程序花費最大的部分仍然是它的維護 lishixinzhi/Article/program/net/201311/11593

VB.net，在模塊中怎樣引用到窗體中的控件

在模塊中引用到窗體中的控件，必須在該控件名之前由相應(yīng)的窗體名作為前導(dǎo)，例如：

1，要引用窗體Form1中的控件TextBox1

MsgBox(Form1.TextBox1.Text)

2，要引用窗體Form2中的控件TextBox1

MsgBox(Form2.TextBox1.Text)