Private WithEvents NewTextBox As TextBox
讓客戶滿意是我們工作的目標,不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術通過有效、簡單的方式提供給客戶,將通過不懈努力成為客戶在信息化領域值得信任、有價值的長期合作伙伴,公司提供的服務項目有:域名申請、網頁空間、營銷軟件、網站建設、景縣網站維護、網站推廣。
'通過使用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
Visual Basic .NET支持動態(tài)屬性,其動態(tài)屬性儲存在一個應用程序配置文件中,該文件在應用程序執(zhí)行時將會被讀到。使用動態(tài)屬性可以在不重新編譯應用程序的情況下改變一些屬性值。你可以使用它們保存數據庫連接字符串、應用程序日志信息或者服務器連接信息。
要看動態(tài)屬性的例子,首先在Visual Basic中創(chuàng)建一個Windows應用程序。添加一個TextBox到默認窗體中;確認TextBox是被選中的,然后在屬性窗口中定位Dynamic屬性。
點擊Advanced標簽旁邊的省略號按鈕,打開一個對話框,該對話框中列出了TextBox所有的屬性,選擇Text屬性,鍵映射框將會被激活。鍵映射決定了鍵儲存在配置文件中的值。點擊確定關閉對話框。
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TabControl1.TabPages.Add("aa") /添加一個選項卡
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TabControl1.TabPages.RemoveAt(2) /刪除第二個的選項卡
End Sub
TabControl1.TabPages.Add("NEW")
Dim ttl As Integer = TabControl1.TabPages.Count
TabControl1.SelectedIndex = ttl - 1
添加動態(tài)按鈕,及關聯(lián)按鈕事件的方法如下
----------------------
' 聲明對象
Dim newButton As New System.Windows.Forms.Button
' 預設對象
With newButton
.Name = [按鈕控件名稱]
.Text = [按鈕顯示內容]
.Location = New Point([x位置], [y位置])
.Size = New System.Drawing.Size([控件寬], [控件高])
.FlatStyle = FlatStyle.Standard
End With
' 生成添加對象
Controls.Add(newButton)
' 相關事件鏈接
AddHandler newButton.Click, AddressOf myButtonHandler_Click
----------------------
若為標簽,則 首行對象為System.Windows.Forms.Label
若為文本框,則 首行對象為System.Windows.Forms.TextBox
如果要處理其他事件,自己在[相關事件鏈接]部分添加鏈接就可以了
舉著例子如TextBox的TextChanged事件
AddHandler newTextBox.TextChanged, AddressOf myTextBox_TextChanged
AddHandler 后為事件對象, AddressOf 后為為事件對象分配的名稱
這樣在處理事件是,就可以用名稱操作
Private Sub myTextBox_TextChanged(ByVal sender As Object, ByVal e As EventArgs)
...
End Sub
當前題目:vb.net動態(tài)添加標簽,vb添加標簽控件
文章來源:http://chinadenli.net/article4/hechoe.html
成都網站建設公司_創(chuàng)新互聯(lián),為您提供Google、域名注冊、網站導航、小程序開發(fā)、手機網站建設、虛擬主機
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯(lián)