原創(chuàng)|其它|編輯:郝浩|2009-10-19 13:21:05.000|閱讀 1611 次
概述:VB.NET還是比較常用的,于是我研究了一下VB.NET GroupBox控件,在這里拿出來(lái)和大家分享一下,希望對(duì)大家有用。
# 界面/圖表報(bào)表/文檔/IDE等千款熱門軟控件火熱銷售中 >>
VB.NET還是比較常用的,于是我研究了一下VB.NET GroupBox控件,在這里拿出來(lái)和大家分享一下,希望對(duì)大家有用。
編程添加VB.NET GroupBox控件以及它所包含的控件.雖然VB.NET GroupBox控件是在設(shè)計(jì)時(shí)用視圖設(shè)計(jì)布局效果最好,但是無(wú)可避免地,很多特殊情況下也是需要在運(yùn)行做添加控件到控件組中的,這里我們就用代碼來(lái)完成上圖一界面的繪制。
動(dòng)態(tài)添加控件一般需要經(jīng)過(guò)下面三個(gè)步驟:
1、創(chuàng)建要添加的控件實(shí)例
2、設(shè)置新控件的屬性。
3、將控件添加到父控件的 Controls 集合。
在Form1代碼的任意位置增加初始化控件的過(guò)程InitializeControl(),代碼如下所示:
Sub InitializeControl()
'首先添加Label和TextBox控件
Dim Label1 As New System.Windows.Forms.Label
Dim TextBox1 As New System.Windows.Forms.TextBox
'Label1
Label1.Location = New System.Drawing.Point(8, 8)
Label1.Name = "Label1"
Label1.Size = New System.Drawing.Size(64, 16)
Label1.TabIndex = 1
Label1.Text = "戶主姓名"
'TextBox1
TextBox1.Location = New System.Drawing.Point(72, 7)
TextBox1.Name = "TextBox1"
TextBox1.Size = New System.Drawing.Size(128, 21)
TextBox1.TabIndex = 2
TextBox1.Text = ""
'把它們添加到父控件Form1的Controls集合中
Me.Controls.Add(TextBox1)
Me.Controls.Add(Label1)
'添加三個(gè)GroupBox控件
Dim GroupBox1 As New System.Windows.Forms.GroupBox
Dim GroupBox2 As New System.Windows.Forms.GroupBox
Dim GroupBox3 As New System.Windows.Forms.GroupBox
'GroupBox1
GroupBox1.BackColor = System.Drawing.SystemColors.Control
GroupBox1.Location = New System.Drawing.Point(8, 40)
GroupBox1.Name = "GroupBox1"
GroupBox1.Size = New System.Drawing.Size(96, 104)
GroupBox1.TabIndex = 3
GroupBox1.TabStop = False
GroupBox1.Text = "性別"
.......
把上一頁(yè)的代碼復(fù)制添加后,把控件初始化過(guò)程InitializeControl()過(guò)程添加到Form1的New構(gòu)造函數(shù)中就OK了。
本站文章除注明轉(zhuǎn)載外,均為本站原創(chuàng)或翻譯。歡迎任何形式的轉(zhuǎn)載,但請(qǐng)務(wù)必注明出處、不得修改原文相關(guān)鏈接,如果存在內(nèi)容上的異議請(qǐng)郵件反饋至chenjj@fc6vip.cn
文章轉(zhuǎn)載自:IT專家網(wǎng)