Option Explicit
专注于为中小企业提供成都做网站、成都网站制作服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业龙南免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了超过千家企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。
Private WithEvents NewTextBox As TextBox
'通过使用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
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是继承自什么类,通常应该继承自UerControl,虽然你这样也能编译通过,但实际上没有任何意义。所以你先改了再说。继承之后,编译,工具箱就会多这么个控件,拖动到Form1上,这样按钮下就不用再new了。然后你再来问。
用vs.net创建控件项目,其他的和vb类似...
新建项目-windows 窗体控件库
网站标题:vb.net自己写控件 vb通过代码生成控件
分享地址:https://www.cdcxhl.com/article42/dooeoec.html
成都网站建设公司_创新互联,为您提供网站收录、App开发、定制开发、网站排名、网站设计、搜索引擎优化
声明:本网站发布的内容(图片、视频和文字)以用户投稿、用户转载内容为主,如果涉及侵权请尽快告知,我们将会在第一时间删除。文章观点不代表本网站立场,如需处理请联系客服。电话:028-86922220;邮箱:631063699@qq.com。内容未经允许不得转载,或转载时需注明来源: 创新互联