vb点虐 怎么制作控件 vbnet createobject

vb点虐 自定义控件

mytest1是继承自什么类，通常应该继承自UerControl，虽然你这样也能编译通过，但实际上没有任何意义。所以你先改了再说。继承之后，编译，工具箱就会多这么个控件，拖动到Form1上，这样按钮下就不用再new了。然后你再来问。

成都创新互联公司专注于晋安网站建设服务及定制，我们拥有丰富的企业做网站经验。 热诚为您提供晋安营销型网站建设，晋安网站制作、晋安网页设计、晋安网站官网定制、小程序开发服务，打造晋安网络公司原创品牌,更为您提供晋安网站排名全网营销落地服务。

请教vb点虐 怎么制作一个可以作为容器的用户控件

Public Class 用户控件

Inherits  System.Windows.Forms.Panel

Public Sub New() '初始化

End Sub 

Private Sub 用户控件_KeyDown(sender As Object, e As Forms.KeyEventArgs) Handles Me.KeyDown

' ……

End Sub

'……

End Class

VB.NET中如何动态创建控件

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