Option?Explicit

專注于為中小企業(yè)提供成都做網(wǎng)站、成都網(wǎng)站制作服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)龍南免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動了超過千家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(zhuǎn)變。
Private?WithEvents?NewTextBox?As?TextBox
'通過使用WithEvents關(guān)鍵字聲明一個對象變量為新的命令按鈕
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
1.
web.config里注冊,類似下面
system.web
pages
controls
add tagPrefix="scottgu" src="~/Controls/Header.ascx" tagName="header"/
add tagPrefix="scottgu" src="~/Controls/Footer.ascx" tagName="footer"/
/controls
/pages
/system.web
注意這里的路徑一定不能錯,否則顯示不出來
2.
注冊用戶控件時使用絕對路徑,而不是相對路徑
mytest1是繼承自什么類,通常應(yīng)該繼承自UerControl,雖然你這樣也能編譯通過,但實際上沒有任何意義。所以你先改了再說。繼承之后,編譯,工具箱就會多這么個控件,拖動到Form1上,這樣按鈕下就不用再new了。然后你再來問。
用vs.net創(chuàng)建控件項目,其他的和vb類似...
新建項目-windows 窗體控件庫
網(wǎng)站標題:vb.net自己寫控件 vb通過代碼生成控件
分享地址:http://www.chinadenli.net/article42/dooeoec.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站收錄、App開發(fā)、定制開發(fā)、網(wǎng)站排名、網(wǎng)站設(shè)計、搜索引擎優(yōu)化
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)