在模塊中引用到窗體中的控件，必須在該控件名之前由相應(yīng)的窗體名作為前導(dǎo)，例如：
我們提供的服務(wù)有：網(wǎng)站設(shè)計、網(wǎng)站制作、微信公眾號開發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、額爾古納ssl等。為近千家企事業(yè)單位解決了網(wǎng)站和推廣的問題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的額爾古納網(wǎng)站制作公司
1，要引用窗體Form1中的控件TextBox1
MsgBox(Form1.TextBox1.Text)
2，要引用窗體Form2中的控件TextBox1
MsgBox(Form2.TextBox1.Text)
NET框架組件太大了 比任何以前所寫的封裝功能的庫都要大 這樣有好處 因為它大幅削減了建立應(yīng)用程序所需編寫的代碼 但是也使我們不可能完全了解該框架組件 但是我們很容易從中找到一些技巧
窗體嵌套
經(jīng)驗豐富的Visual Basic開發(fā)者知道多文檔界面（MDI）應(yīng)用程序能夠包含子窗體 那些子窗體由MDI父窗體管理 但是如果沒有MDI的能力你怎樣實現(xiàn)包含嵌套窗體？例如一個MDI子窗體也可能需要包含另一個窗體
有時能夠使用用戶控件（UserControl）實現(xiàn)這種功能 但是如果你真的需要把一個窗體嵌套進(jìn)另一個窗體 有多種方法可以實現(xiàn) 窗體衍生自Control類 這意味著它能被放入另一個窗體的控件集合中 使用如下的邏輯
Dim f As New frmEmbed ()Me Controls Add(f)f Show()
但是很不幸 這段代碼將會導(dǎo)致一個運行時（runtime）異常（見圖 ）
圖 試圖把一個窗體添加到另一個窗體的控件集合時出現(xiàn)的運行時錯誤
為了避免這種異常 該窗體的TopLevel屬性必須設(shè)置為False（見下面的代碼）
Dim f As New frmEmbed () f TopLevel = False Me Controls Add(f) f Show()
圖 顯示的是使用上面的邏輯實現(xiàn)的一個窗體嵌入另一個窗體 嵌入的窗體有一個標(biāo)題條（它的顏色是未激活的系統(tǒng)顏色） 因此該嵌入窗體能在容器窗體內(nèi)四處拖動 在圖 中 該窗體從它的開始位置（左上角）拖到了右下角
圖 在容器窗體中有一個嵌入的窗體 嵌入的窗體能在容器窗體中拖動
通常在顯示嵌入的窗體前先設(shè)置它的位置 這只需要簡單的設(shè)置嵌入窗體的Left和Top屬性 嵌入窗體的位置與容器窗體是相對的
與MDI子窗體不同 嵌入窗體能覆蓋容器窗體上的控件 圖 顯示了它們的不同
圖 嵌入窗體（左）可以覆蓋容器窗體上的控件 MDI子窗體（右）不能覆蓋MDI父窗體上的控件
在右邊的MDI例子中 沒有辦法使按鈕隱藏在子窗體的后面 但是在左邊該按鈕被嵌入窗體覆蓋了
當(dāng)窗體第一次被嵌入時 它將顯示在容器窗體上的已存在的控件的后面 當(dāng)它被點擊時 它走向前臺并停留在那兒 這會打擾用戶 但是能通過插入下面的代碼防止這種情況發(fā)生
f BringToFront（）
嵌入的窗體可以包含其它的嵌入窗體 沒有實際的限制 圖 顯示了一個本身包含嵌入的窗體的嵌入窗體
lishixinzhi/Article/program/net/201311/12398
使用SplitContainer1控件不就行了，SplitContainer1控件的Fixedpanel屬性設(shè)置為Panel1\x0d\x0aSplitContainer1的Panel2里面再放置一個SplitContainer2\x0d\x0aSplitContainer2控件的Fixedpanel屬性設(shè)置為Panel2\x0d\x0a二個SplitContainer設(shè)置為水平折為器方向\x0d\x0a至于播放器控件就放在SplitContainer2控件Panel1里面\x0d\x0a播放器控件DOCK設(shè)置為FILL\x0d\x0a\x0d\x0a這樣不管放大縮小界面，播放器控件總是自適應(yīng)窗體大小而菜單按鈕總是在最邊緣
我們對控件進(jìn)行分組的原因不外乎三個
為了獲得清晰的用戶界面而將相關(guān)的窗體元素進(jìn)行可視化分組
編程分組 如對單選按鈕進(jìn)行分組
為了在設(shè)計時將多個控件作為一個單元來移動
在中 有GroupBox Panel TabControl這三個控件可以實現(xiàn)上面所提到的三個分組目的 所以我們稱它們?yōu)榉纸M控件
這三個控件在功用上十分的相似 特別是GroupBox和Panel控件 只存在一點細(xì)微的差別而已（這個差別是 只有GroupBox控件可以顯示標(biāo)題 而只有Panel控件可以有滾動條） 這里我們就先來了解GroupBox控件的使用
GroupBox（控件組）控件一般是作為其他控件的組的容器的形式存在的 這樣有利于用戶識別 使界面變得更加友好（GroupBox控件相當(dāng)于Visual Basic以前版本的Frame控件） 使用控件組控件可以將一個窗體中的各種功能進(jìn)一步進(jìn)行分類 例如 將各種選項按鈕控件分隔開
當(dāng)移動單個GroupBox控件時 它所包含的所有控件也將一起移動
在大多數(shù)情況下 對控件組控件沒有實際的操作 我們用它對控件進(jìn)行分組 通常沒有必要響應(yīng)它的事件 不過 它的Name Text和Font等屬性可能會經(jīng)常被修改 以適應(yīng)應(yīng)用程序在不同階段的要求
GroupBox控件在工具箱中的圖標(biāo)如圖所示
一 GroupBox控件的常用屬性
Anchor和Dock 這兩個屬性是所有有用戶界面的控件都有的定位屬性 這里就不啰嗦了
Name屬性 標(biāo)識控件的對象名稱
Text屬性 顯示在GroupBox控件右上方的標(biāo)題文字 可以用來標(biāo)識該控件組的描述
Font和ForeColor屬性 用于改變GroupBox控件的文字大小以及文字的顏色 需要注意的時候 它不單改變GroupBox控件的Text屬性的文字外觀 同時也改變其內(nèi)部控件的顯示的Text屬性的文字外觀
二 創(chuàng)建一組控件
在窗體上放置GroupBox控件 從工具箱中拖放一個GroupBox控件到窗體上的合適位置 調(diào)整大小
在屬性窗口中改變GroupBox控件的Text屬性 作為它的標(biāo)題
在GroupBox控件內(nèi)拖放其它需要的控件 例如RadioButton控件
設(shè)置示例 如圖一所示
圖一 用控件組控件對單選按鈕分組
我們在拖動單個GroupBox控件的時候 它內(nèi)部的控件也會隨著移動 以保持和GroupBox的相對位置不變 同理 刪除GroupBox控件時 它所包含的所有控件也會被刪除掉
當(dāng)我們調(diào)整GroupBox控件所包含的控件的Anchor和Dock屬性的時候 其參照物將不是Form窗體 而是GroupBox控件了
三 編程添加GroupBox控件以及它所包含的控件
雖然GroupBox控件是在設(shè)計時用視圖設(shè)計布局效果最好 但是無可避免地 很多特殊情況下也是需要在運行做添加控件到控件組中的 這里我們就用代碼來完成上圖一界面的繪制
動態(tài)添加控件一般需要經(jīng)過下面三個步驟
創(chuàng)建要添加的控件實例
設(shè)置新控件的屬性
將控件添加到父控件的 Controls 集合
在Form 代碼的任意位置增加初始化控件的過程InitializeControl（） 代碼如下所示
Sub InitializeControl（）
首先添加Label和TextBox控件
Dim Label As New System Windows Forms Label
Dim TextBox As New System Windows Forms TextBox
Label
Label Location = New System Drawing Point（ ）
Label Name = Label
Label Size = New System Drawing Size（ ）
Label TabIndex =
Label Text = 戶主姓名
TextBox
TextBox Location = New System Drawing Point（ ）
TextBox Name = TextBox
TextBox Size = New System Drawing Size（ ）
TextBox TabIndex =
TextBox Text =
把它們添加到父控件Form 的Controls集合中
Me Controls Add（TextBox ）
Me Controls Add（Label ）
添加三個GroupBox控件
Dim GroupBox As New System Windows Forms GroupBox
Dim GroupBox As New System Windows Forms GroupBox
Dim GroupBox As New System Windows Forms GroupBox
GroupBox
GroupBox BackColor = System Drawing SystemColors Control
GroupBox Location = New System Drawing Point（ ）
GroupBox Name = GroupBox
GroupBox Size = New System Drawing Size（ ）
GroupBox TabIndex =
GroupBox TabStop = False
GroupBox Text = 性別
GroupBox
GroupBox Location = New System Drawing Point（ ）
GroupBox Name = GroupBox
GroupBox Size = New System Drawing Size（ ）
GroupBox TabIndex =
GroupBox TabStop = False
GroupBox Text = 單元
GroupBox
GroupBox Location = New System Drawing Point（ ）
GroupBox Name = GroupBox
GroupBox Size = New System Drawing Size（ ）
GroupBox TabIndex =
GroupBox TabStop = False
GroupBox Text = 樓層
把它們添加到父控件Form 的Controls集合中
Me Controls Add（GroupBox ）
Me Controls Add（GroupBox ）
Me Controls Add（GroupBox ）
添加RadioButton控件并分別繪制在GroupBox控件內(nèi)
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 男性
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 女性
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 二單元
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 三單元
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 一單元
RadioButton
RadioButton BackColor = System Drawing SystemColors Control
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 四單元
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 二樓
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 三樓
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 一樓
RadioButton
RadioButton BackColor = System Drawing SystemColors Control
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 四樓
分別把它們添加到父控件GroupBox的Controls集合中
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
End Sub
把上一頁的代碼復(fù)制添加后 把控件初始化過程InitializeControl（）過程添加到Form 的New構(gòu)造函數(shù)中 如下圖二所示
圖二 在New構(gòu)造函數(shù)中添加過程InitializeControl（）
現(xiàn)在按F 運行 Form 的窗體控件布局（如下圖三所示）是不是和我們手工布局的圖一的布局是一樣的呢？
lishixinzhi/Article/program/ASP/201311/21749
重慶分公司
重慶分公司
