布局方面,建議你用FlowLayoutPanel,不用手工控制控件位置了。假設有一個FlowLayoutPanel1。
成都創新互聯是一家集網站建設,即墨企業網站建設,即墨品牌網站建設,網站定制,即墨網站建設報價,網絡營銷,網絡優化,即墨網站推廣為一體的創新建站企業,幫助傳統企業提升企業形象加強企業競爭力。可充分滿足這一群體相比中小企業更為豐富、高端、多元的互聯網需求。同時我們時刻保持專業、時尚、前沿,時刻以成就客戶成長自我,堅持不斷學習、思考、沉淀、凈化自己,讓我們為更多的企業打造出實用型網站。
先在窗體類中建一個控件的集合:
Dim
TextBoxes
As
New
List(Of
TextBox)
在button1的
Click事件
中寫:
For
i
=
1
To
5
'5是每次加入的數量
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里的文本
'如果你需要清空,調用TextBoxes.Clear()和FlowLayoutPanel.Controls.Clear()即可
Next
可以先定義name,動態生成的時候,賦給它,你調用的時候就使用固定的變量:
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))
'調用的時候可以用a(1).text調用了呢
似有控件遍歷窗體控件集合,或在控件集合中查詢該控件名字,公用控件直接名字
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動態控件 如何用vb做出動態界面
URL標題:http://vcdvsql.cn/article24/ddoipje.html
成都網站建設公司_創新互聯,為您提供ChatGPT、小程序開發、App開發、電子商務、全網營銷推廣、云服務器
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯