Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
成都創(chuàng)新互聯(lián)公司咨詢熱線:18980820575,為您提供成都網(wǎng)站建設(shè)網(wǎng)頁(yè)設(shè)計(jì)及定制高端網(wǎng)站建設(shè)服務(wù),成都創(chuàng)新互聯(lián)公司網(wǎng)頁(yè)制作領(lǐng)域十載,包括成都混凝土攪拌罐等多個(gè)行業(yè)擁有多年的網(wǎng)站推廣經(jīng)驗(yàn),選擇成都創(chuàng)新互聯(lián)公司,為企業(yè)錦上添花。
TabControl1.TabPages.Add("aa") /添加一個(gè)選項(xiàng)卡
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TabControl1.TabPages.RemoveAt(2) /刪除第二個(gè)的選項(xiàng)卡
End Sub
添加動(dòng)態(tài)按鈕,及關(guān)聯(lián)按鈕事件的方法如下
----------------------
' 聲明對(duì)象
Dim newButton As New System.Windows.Forms.Button
' 預(yù)設(shè)對(duì)象
With newButton
.Name = [按鈕控件名稱]
.Text = [按鈕顯示內(nèi)容]
.Location = New Point([x位置], [y位置])
.Size = New System.Drawing.Size([控件寬], [控件高])
.FlatStyle = FlatStyle.Standard
End With
' 生成添加對(duì)象
Controls.Add(newButton)
' 相關(guān)事件鏈接
AddHandler newButton.Click, AddressOf myButtonHandler_Click
----------------------
若為標(biāo)簽,則 首行對(duì)象為System.Windows.Forms.Label
若為文本框,則 首行對(duì)象為System.Windows.Forms.TextBox
如果要處理其他事件,自己在[相關(guān)事件鏈接]部分添加鏈接就可以了
舉著例子如TextBox的TextChanged事件
AddHandler newTextBox.TextChanged, AddressOf myTextBox_TextChanged
AddHandler 后為事件對(duì)象, AddressOf 后為為事件對(duì)象分配的名稱
這樣在處理事件是,就可以用名稱操作
Private Sub myTextBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
...
End Sub
自己在窗體上加一個(gè)按鈕,以下是詳細(xì)代碼(整個(gè)類)
Public Class Form1
Private N As Integer '用來(lái)記添加要加入textbox的個(gè)數(shù)
Private PL As Integer = 10 'textbox相對(duì)于窗體的Left
Private PT As Integer = 10 'textbox相對(duì)于窗體的Top
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.AutoScroll = True '窗體自動(dòng)顯示滾動(dòng)條
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不變是希望左對(duì)齊
Next
End Sub
End Class
Visual Basic .NET支持動(dòng)態(tài)屬性,其動(dòng)態(tài)屬性儲(chǔ)存在一個(gè)應(yīng)用程序配置文件中,該文件在應(yīng)用程序執(zhí)行時(shí)將會(huì)被讀到。使用動(dòng)態(tài)屬性可以在不重新編譯應(yīng)用程序的情況下改變一些屬性值。你可以使用它們保存數(shù)據(jù)庫(kù)連接字符串、應(yīng)用程序日志信息或者服務(wù)器連接信息。
要看動(dòng)態(tài)屬性的例子,首先在Visual Basic中創(chuàng)建一個(gè)Windows應(yīng)用程序。添加一個(gè)TextBox到默認(rèn)窗體中;確認(rèn)TextBox是被選中的,然后在屬性窗口中定位Dynamic屬性。
點(diǎn)擊Advanced標(biāo)簽旁邊的省略號(hào)按鈕,打開一個(gè)對(duì)話框,該對(duì)話框中列出了TextBox所有的屬性,選擇Text屬性,鍵映射框?qū)?huì)被激活。鍵映射決定了鍵儲(chǔ)存在配置文件中的值。點(diǎn)擊確定關(guān)閉對(duì)話框。
網(wǎng)站欄目:vb.net動(dòng)態(tài)添加標(biāo)簽 vb動(dòng)態(tài)添加控件
文章起源:http://muchs.cn/article22/ddoodjc.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站策劃、外貿(mào)網(wǎng)站建設(shè)、虛擬主機(jī)、搜索引擎優(yōu)化、網(wǎng)頁(yè)設(shè)計(jì)公司、網(wǎng)站導(dǎo)航
聲明:本網(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)