重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Dim Bt as New Button
创新互联公司电话联系:18980820575,为您提供成都网站建设网页设计及定制高端网站建设服务,创新互联公司网页制作领域十年,包括成都石牌坊等多个行业拥有丰富的网站运维经验,选择创新互联公司,为企业锦上添花。
Bt.Size=New Size(100,100)
Bt.Location=New Point(100,100)
Bt.Text="New Button"
Me.Controls.Add(Bt)
动态生成的控件: Private Sub UserControl1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load Dim myPicture = New System.Windows.Forms.PictureBox() Me.Panel3.Controls.Add(myPicture) myPicture.Size = New System.Drawing.Size(115, 160) myPicture.TabStop = False myPicture.Name = "p" myPicture.Cursor = Cursors.Hand AddHandler myPicture.Click, AddressOf mypic_Click '添加事件 End Sub 处理事件的过程: Private Sub mypic_Click() 'ByVal id As String Dim bookInfo As New BookInfo bookInfo.Show() Me.Parent.Enabled = Fals
控件不一定有界面,类也不一定有界面。
以Visual Studio 2012为例
把你的控件封装到类里面,生成exe或dll,在要调用的项目中,进入工具箱,右键任意项,选择项,在.Net Framework组件中浏览到生成的exe或dll,在上面列表中相应的内容,勾选,确定