Anchor屬性可以被設(shè)定為Top Bottom Left和Right的任何組合 默認(rèn)設(shè)置是Top Left 這可以保持控件的top left角與視窗邊框具有相同的相對位置 設(shè)置Anchor屬性為Top and Bottom可以垂直地調(diào)整控件 保證從視窗底部到控件底部距離相同
成都創(chuàng)新互聯(lián)公司是一家專注于成都網(wǎng)站設(shè)計、成都網(wǎng)站制作與策劃設(shè)計,涵江網(wǎng)站建設(shè)哪家好?成都創(chuàng)新互聯(lián)公司做網(wǎng)站,專注于網(wǎng)站建設(shè)10多年,網(wǎng)設(shè)計領(lǐng)域的專業(yè)建站公司;建站業(yè)務(wù)涵蓋:涵江等地區(qū)。涵江做網(wǎng)站價格咨詢:028-86922220
Me TextBox Anchor = （System Windows Forms AnchorStyles Top Or System Windows Forms AnchorStyles Left）
Dock屬性
這個屬性可以被設(shè)置為Top Bottom Left Right或Fill 將其設(shè)置為Top Bottom Left或Right可以使控件緊挨指定的視窗邊緣 或者緊挨已放置到相應(yīng)視窗邊緣的其他控件 設(shè)置Dock屬性為Fill可以使控件調(diào)整為充滿視窗的整個客戶區(qū)
Me Panel Dock = System Windows Forms DockStyle Bottom
你還可以使用DockPadding對象來設(shè)置填充視窗邊框和已放置好的控件間的區(qū)域 它有對應(yīng)每個視窗邊框的屬性 如果想要邊框?qū)γ總€邊都一致也可以通過設(shè)置All屬性實現(xiàn)
Me DockPadding All = ? lishixinzhi/Article/program/net/201311/14503
可以實現(xiàn)
首先創(chuàng)建一個Button類型控件數(shù)組：
1、創(chuàng)建“Windows應(yīng)用程序”類型的工程，添加名為ButtonArray的類，并使該類繼承 System.Collection.CollectionBase 類。System.Collections.CollectionBase類是.NET框架類庫中為集合操作提供抽象的基類，通過對它的繼承可以為我們的ButtonArray類具備集合增加、刪除、索引的功能。
2、為ButtonArray類添加ParentForm屬性，即控件組所在窗體，創(chuàng)建初始化函數(shù)（構(gòu)造函數(shù)）；
3、為控件數(shù)組類增加AddItem方法，該方法在控件數(shù)組類中添加成員；
4、為控件數(shù)組類增加RemoveItem方法，該方法在控件數(shù)組中刪除一個成員。
示例代碼：
Public Class ButtonArray
Inherits System.Collections.CollectionBase
Private ReadOnly ParentForm As System.Windows.Forms.Form
Public Sub New(ByVal pForm As System.Windows.Forms.Form)
ParentForm = pForm
End Sub
Default Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Button
Get
Return Me.List.Item(index) ' ButtonArray的List 屬性從CollectionBase 繼承
End Get
End Property
Public Sub AddItem()
Dim btnItem As New System.Windows.Forms.Button
Me.List.Add(btnItem)
ParentForm.Controls.Add(btnItem) '向窗體中增加控件
btnItem.Tag = Me.Count 'Count屬性從CollectionBase 繼承
btnItem.Top = Me.Count * 30
btnItem.Left = 200
btnItem.Text = "Button" Me.Count.ToString
AddHandler btnItem.Click, AddressOf btnItem_Click '綁定事件處理程序
End Sub
Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Button)
Me.List.Add(btnItem)
AddHandler btnItem.Click, AddressOf btnItem_Click '綁定事件處理程序
End Sub
Public Sub RemoveItem()
If Me.Count 0 Then
ParentForm.Controls.Remove(Me(Me.Count - 1))
Me.List.RemoveAt(Me.Count - 1)
End If
End Sub
Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'在這里編寫控件數(shù)組對點擊事件的響應(yīng)
'例如：
MsgBox("點擊：" sender.GetType().ToString CType(CType(sender, Button).Tag, String))
End Sub
End Class
使用創(chuàng)建的控件數(shù)組
在Form1中放置兩個按鈕Button1、Button2，分別測試控件數(shù)組的增添、刪除。
雙擊Form添加代碼：
Public Class Form1
Inherits System.Windows.Forms.Form
……Windows窗體設(shè)計器生成的代碼……
Dim Buttons As New ButtonArray(Me)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Buttons.AddItem()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Buttons.RemoveItem()
End Sub
End Class
其他的控件數(shù)組也可以用類似的方式來實現(xiàn)
例如 Label控件數(shù)組
LabelArray.vb代碼如下：
Public Class LabelArray
Inherits System.Collections.CollectionBase
Private ReadOnly ParentForm As System.Windows.Forms.Form
Public Sub New(ByVal pForm As System.Windows.Forms.Form)
ParentForm = pForm
End Sub
Default Public ReadOnly Property Item(ByVal index As Integer) As System.Windows.Forms.Label
Get
Return Me.List.Item(index) ' ButtonArray的List 屬性從CollectionBase 繼承
End Get
End Property
Public Sub AddItem(ByVal btnItem As System.Windows.Forms.Label)
Me.List.Add(btnItem)
AddHandler btnItem.Click, AddressOf btnItem_Click '綁定事件處理程序
End Sub
Public Sub btnItem_Click(ByVal sender As Object, ByVal e As System.EventArgs)
'在這里編寫控件數(shù)組對點擊事件的響應(yīng)
'例如：
MsgBox("點擊：" sender.GetType().ToString CType(CType(sender, Label).Tag, String))
End Sub
End Class
使用創(chuàng)建的Label控件
在Form1中放置兩個按鈕Label1、Label2
雙擊Form添加代碼：
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows 窗體設(shè)計器生成的代碼 "
Public Sub New()
MyBase.New()
'該調(diào)用是 Windows 窗體設(shè)計器所必需的。
InitializeComponent()
'在 InitializeComponent() 調(diào)用之后添加任何初始化
'用來綁定label
BindArray()
End Sub
……Windows窗體設(shè)計器生成的其他代碼……
#End Region
Dim Labels As New LabelArray(Me)
Public Sub BindArray()
Me.Label1.Tag = "1111"
Me.Label2.Tag = "222"
Labels.AddItem(Me.Label1)
Labels.AddItem(Me.Label2)
End Sub
End Class
然后可以測試點擊兩個label可以顯示相應(yīng)的Tag的信息。
你這是控件數(shù)組？你這明明就是9個不同的 TextBox 控件啊，只不過名字長得像而已。
可以不同。
開發(fā)人員在 Visual Basic 6.0 以及更早的版本中使用控件數(shù)組主要有以下三個理由：
1. 在循環(huán)中訪問數(shù)組中控件的屬性。
2. 向窗體動態(tài)添加新控件。
3. 允許一個事件例程與多個控件連接 。
控件數(shù)組的使用，極大的方便了開發(fā)人員。然而，剛剛從Visual Basic6.0（以下簡稱VB6.0）過渡到Visual Basic.Net（以下簡稱VB.NET）的初學(xué)者卻發(fā)現(xiàn)，在VB.NET中似乎不能使用控件數(shù)組了。筆者仔細查閱了VB.NET的MSDN文檔發(fā)現(xiàn)，在 VB.NET 中，確實不再支持控件數(shù)組。原因是，VB.NET對事件模型作了很大的改動，引入了另外一種數(shù)據(jù)類型――控件集合模型，使控件數(shù)組沒有存在的必要。就像 VB6.0 中的控件數(shù)組可以共享事件一樣，VB.NET 中的事件模型允許任何事件處理程序都可以處理來自多個控件的事件，這就允許創(chuàng)建屬于不同類型但共享相同事件的控件組。
重慶分公司
重慶分公司
