Dim?Bt?as?New?Button

創(chuàng)新互聯(lián)專注于西峰企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站建設(shè),購物商城網(wǎng)站建設(shè)。西峰網(wǎng)站建設(shè)公司,為西峰等地區(qū)提供建站服務(wù)。全流程按需策劃設(shè)計(jì),專業(yè)設(shè)計(jì),全程項(xiàng)目跟蹤,創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)
Bt.Size=New?Size(100,100)
Bt.Location=New?Point(100,100)
Bt.Text="New?Button"
Me.Controls.Add(Bt)
工具箱右鍵單擊——選擇項(xiàng)……——選擇.net組件或com組件——點(diǎn)擊“瀏覽”選擇控件dll文件,然后工具箱中就會(huì)出現(xiàn)新加的控件
你還要把過程與控件事件綁定
AddHandler 控件.事件名,addressof 事件過程
RemoveHandler 這個(gè)是取消綁定
沒發(fā)現(xiàn)自動(dòng)生存的事件過程后面還有一個(gè)Hander button1.Click之類的,這就是所謂事件句柄。反而跟過程名沒關(guān)系,改成阿貓阿狗也可以。
例外也可以像 Private WithEvents obj as ControlClass 這么聲明控件變量,估計(jì)像vb6那樣會(huì)在下拉列表中列出事件系列。
哎呀,說了半天跑題了。 ff不存在嘛多半不是它的作用域范圍內(nèi),應(yīng)該把ff變量定義在類中,而不是類中的某個(gè)過程中。
最好把代碼添多一點(diǎn),把ff部分也添出來看看。
Private WithEvents NewTextBox As TextBox
'通過使用WithEvents關(guān)鍵字聲明一個(gè)對(duì)象變量為新的命令按鈕
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
分享標(biāo)題:vb.net增加控件,vb中如何添加控件
分享URL:http://chinadenli.net/article21/dsihgcd.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供外貿(mào)建站、微信小程序、微信公眾號(hào)、網(wǎng)站維護(hù)、標(biāo)簽優(yōu)化、網(wǎng)頁設(shè)計(jì)公司
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場,如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來源: 創(chuàng)新互聯(lián)