布局方面,建議你用FlowLayoutPanel,不用手工控制控件位置了。假設有一個FlowLayoutPanel1。

成都創(chuàng)新互聯(lián)是一家集網(wǎng)站建設,即墨企業(yè)網(wǎng)站建設,即墨品牌網(wǎng)站建設,網(wǎng)站定制,即墨網(wǎng)站建設報價,網(wǎng)絡營銷,網(wǎng)絡優(yōu)化,即墨網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè),幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強企業(yè)競爭力。可充分滿足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時我們時刻保持專業(yè)、時尚、前沿,時刻以成就客戶成長自我,堅持不斷學習、思考、沉淀、凈化自己,讓我們?yōu)楦嗟钠髽I(yè)打造出實用型網(wǎng)站。
先在窗體類中建一個控件的集合:
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就代表每個TextBox里的文本
'如果你需要清空,調(diào)用TextBoxes.Clear()和FlowLayoutPanel.Controls.Clear()即可
Next
可以先定義name,動態(tài)生成的時候,賦給它,你調(diào)用的時候就使用固定的變量:
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)用的時候可以用a(1).text調(diào)用了呢
似有控件遍歷窗體控件集合,或在控件集合中查詢該控件名字,公用控件直接名字
Private WithEvents NewTextBox As TextBox
'通過使用WithEvents關鍵字聲明一個對象變量為新的命令按鈕
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
當前題目:vb.net動態(tài)控件 如何用vb做出動態(tài)界面
URL標題:http://www.chinadenli.net/article24/ddoipje.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供ChatGPT、小程序開發(fā)、App開發(fā)、電子商務、全網(wǎng)營銷推廣、云服務器
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)