布局方面,建議你用FlowLayoutPanel,不用手工控制控件位置了。假設(shè)有一個(gè)FlowLayoutPanel1。
成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),即墨企業(yè)網(wǎng)站建設(shè),即墨品牌網(wǎng)站建設(shè),網(wǎng)站定制,即墨網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷,網(wǎng)絡(luò)優(yōu)化,即墨網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力??沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿,時(shí)刻以成就客戶成長(zhǎng)自我,堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
先在窗體類中建一個(gè)控件的集合:
Dim
TextBoxes
As
New
List(Of
TextBox)
在button1的
Click事件
中寫:
For
i
=
1
To
5
'5是每次加入的數(shù)量
Dim
newTextBox
As
New
TextBox()
'newTextBox.Size
=
New
Size(100,20)
'
TextBoxes.Add(newTextBox)
'加入我們的集合中
FlowLayoutPanel1.Controls.Add(newTextBox)
'加到窗體的FlowLayoutPanel中去
Next
i
然后button2的Click事件中:
For
Each
itemTextBox
As
TextBox
In
TextBoxes
'這里的itemTextBox.Text就代表每個(gè)TextBox里的文本
'如果你需要清空,調(diào)用TextBoxes.Clear()和FlowLayoutPanel.Controls.Clear()即可
Next
可以先定義name,動(dòng)態(tài)生成的時(shí)候,賦給它,你調(diào)用的時(shí)候就使用固定的變量:
dim a(N) as object
Dim ttmp As New TextBox
ttmp.Top = 3
ttmp.Left = 3
ttmp.Width = 100
ttmp.Text = "我是文本框"
a(1) = ttmp
Me.Controls.Add(a(1))
'調(diào)用的時(shí)候可以用a(1).text調(diào)用了呢
似有控件遍歷窗體控件集合,或在控件集合中查詢?cè)摽丶?,公用控件直接名?/p>
Private WithEvents NewTextBox As TextBox
'通過(guò)使用WithEvents關(guān)鍵字聲明一個(gè)對(duì)象變量為新的命令按鈕
Private Sub Command1_Click()
If NewTextBox Is Nothing Then
Set NewTextBox = Controls.Add("VB.TextBox", "cmdNew", Form1)
NewTextBox.Move 200, 200
NewTextBox.Width = Form1.Width - 450
NewTextBox.Height = Form1.Height - 1400
NewTextBox.Visible = True
End If
End Sub
Private Sub Command2_Click()
If NewTextBox Is Nothing Then
Exit Sub
Else
Controls.Remove NewTextBox
Set NewTextBox = Nothing
End If
End Sub
當(dāng)前題目:vb.net動(dòng)態(tài)控件 如何用vb做出動(dòng)態(tài)界面
URL標(biāo)題:http://jinyejixie.com/article24/ddoipje.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供ChatGPT、小程序開發(fā)、App開發(fā)、電子商務(wù)、全網(wǎng)營(yíng)銷推廣、云服務(wù)器
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)