自己在窗體上加一個按鈕,以下是詳細代碼(整個類)
創(chuàng)新互聯(lián)成立10年來,這條路我們正越走越好,積累了技術與客戶資源,形成了良好的口碑。為客戶提供網站建設、成都網站制作、網站策劃、網頁設計、國際域名空間、網絡營銷、VI設計、網站改版、漏洞修補等服務。網站是否美觀、功能強大、用戶體驗好、性價比高、打開快等等,這些對于網站建設都非常重要,創(chuàng)新互聯(lián)通過對建站技術性的掌握、對創(chuàng)意設計的研究為客戶提供一站式互聯(lián)網解決方案,攜手廣大客戶,共同發(fā)展進步。
Public Class Form1
Private N As Integer '用來記添加要加入textbox的個數(shù)
Private PL As Integer = 10 'textbox相對于窗體的Left
Private PT As Integer = 10 'textbox相對于窗體的Top
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.AutoScroll = True '窗體自動顯示滾動條
N = 10 '初始化N為10
For i = 1 To N
Dim newtextbox As New TextBox
newtextbox.Left = PL
newtextbox.Top = PT
Me.Controls.Add(newtextbox)
PT += newtextbox.Height + 10 '各 newtextbox上下間隔10-------PL不變是希望左對齊
Next
End Sub
End Class
你還要把過程與控件事件綁定
AddHandler 控件.事件名,addressof 事件過程
RemoveHandler 這個是取消綁定
沒發(fā)現(xiàn)自動生存的事件過程后面還有一個Hander button1.Click之類的,這就是所謂事件句柄。反而跟過程名沒關系,改成阿貓阿狗也可以。
例外也可以像 Private WithEvents obj as ControlClass 這么聲明控件變量,估計像vb6那樣會在下拉列表中列出事件系列。
哎呀,說了半天跑題了。 ff不存在嘛多半不是它的作用域范圍內,應該把ff變量定義在類中,而不是類中的某個過程中。
最好把代碼添多一點,把ff部分也添出來看看。
下面這段代碼完成,在窗體上用語句添加2個 GroupBox控件,且在每個GroupBox控件中添加4個 RadioButton 控件。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
'添加2個GroupBox
Dim MyGroupBox(2) As GroupBox
For i = 1 To 2
'將一個GroupBox控件加入到Form上
MyGroupBox(i) = New GroupBox
Me.Controls.Add(MyGroupBox(i))
'設置該GroupBox控件的屬性
MyGroupBox(i).Height = 240
MyGroupBox(i).Width = 600
MyGroupBox(i).Top = (i - 1) * (240 + 20) + 20
MyGroupBox(i).Left = 20
'修改新加入控件的Text值
MyGroupBox(i).Text = "GroupBox" CStr(i)
Next
'每個GroupBox中添加4個單選按鈕
Dim MyRadioButton1(4) As RadioButton
Dim MyRadioButton2(4) As RadioButton
For i = 1 To 4
MyRadioButton1(i) = New RadioButton
Me.Controls.Add(MyRadioButton1(i))
MyRadioButton1(i).Parent = MyGroupBox(1)
'設置該GroupBox控件的屬性
MyRadioButton1(i).Height = 20
MyRadioButton1(i).Width = 120
MyRadioButton1(i).Top = (i - 1) * (20 + 20) + 40
MyRadioButton1(i).Left = 20
'修改新加入控件的Text值
MyRadioButton1(i).Text = "RadioButton1_" CStr(i)
Next
For i = 1 To 4
MyRadioButton2(i) = New RadioButton
Me.Controls.Add(MyRadioButton2(i))
MyRadioButton2(i).Parent = MyGroupBox(2)
'設置該GroupBox控件的屬性
MyRadioButton2(i).Height = 20
MyRadioButton2(i).Width = 120
MyRadioButton2(i).Top = (i - 1) * (20 + 20) + 40
MyRadioButton2(i).Left = 20
'修改新加入控件的Text值
MyRadioButton2(i).Text = "RadioButton2_" CStr(i)
Next
End Sub
分享文章:vb.net動態(tài)添加代碼,vb 動態(tài)添加控件
文章URL:http://sd-ha.com/article36/hcoisg.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供網站導航、定制網站、虛擬主機、網站設計公司、營銷型網站建設、面包屑導航
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)