vb.net自己制作控件 vb通过代码生成控件

vb.net 控件制作

先生成dataset,然后用datarow装载dataset的需要编辑的记录，再把datarow的值赋给textbox的text显示给用户编辑，用户修改后，把textbox的text赋值回给datarow，最后update dataset更新数据.

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

VB.net 如何编写用户控件？

Public Class UserControl1

#Region "变量"

Dim Down_Color As Color = Color.Blue

Dim UP_Color As Color = Color.Gray

Dim Mode As Short = 0

Dim flag As Boolean

Dim offset_X As Integer

Dim offset_Y As Integer

Dim Mouse_P As Point

#End Region

#Region "属性"

'按下颜色

Public Property _DownColor As Color

Get

Return Down_Color

End Get

Set(ByVal value As Color)

Down_Color = value

End Set

End Property

'弹起颜色

Public Property _UpColor As Color

Get

Return UP_Color

End Get

Set(ByVal value As Color)

UP_Color = value

End Set

End Property

'滑动模式 0-横 1-竖

Public Property _Mode As Short

Get

Return Mode

End Get

Set(ByVal value As Short)

Mode = value

End Set

End Property

#End Region

Private Sub UserControl1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Me.BackColor = UP_Color

End Sub

'鼠标按下

Private Sub UserControl1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown

Me.BackColor = Down_Color

Mouse_P = e.Location

flag = True

End Sub

'鼠标移动

Private Sub UserControl1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

If flag = False Then Exit Sub

Select Case Mode

Case 0 '横向·

offset_X = e.X - Mouse_P.X

If Me.Location.X + offset_X + Me.Width = Me.ParentForm.Width Or Me.Location.X + offset_X = 0 Then

flag = False

Else

Me.Location = New Point(Me.Location.X + offset_X, Me.Location.Y)

End If

Case 1 '竖向·

offset_Y = e.Y - Mouse_P.Y

If Me.Location.Y + offset_Y + Me.Height + 30 = Me.ParentForm.Height Or Me.Location.Y + offset_Y = 0 Then

flag = False

Else

Me.Location = New Point(Me.Location.X, Me.Location.Y + offset_Y)

End If

End Select

End Sub

'鼠标弹起

Private Sub UserControl1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp

Me.BackColor = UP_Color

flag = False

End Sub

End Class

如何用VB.NET的知识制作带*的文本框控件

添加一个TextBox控件（比如叫TextBox1）。

类似于Lable控件的功能，你可以修改TextBox控件的Text属性来达到目的：

不是在设计器里修改，而是在代码中用“TextBox1.Text="你想要显示的字符串";”这样的语句，这样就可以在程序运行时改变显示的内容。

设置或者取消星号，你可以通过代码修改TextBox1的PasswordChar属性，跟上面的是类似的：

在其他的控件的事件中比如Button的Click事件中修改——“TextBox1.PasswordChar="";//不显示***”

“TextBox1.PasswordChar="*（或者任何你想要的字符）";//显示为***”

至于什么时候改就完全随你的意思了。

vb.net 窗口控件的制作

把你的控件 继承Panel类，而不要集成UserControl类。

你可以在集成Panel后，往Panel里面加一些你自己的方法或Control来实现你需要的功能。向里面拖控件的功能则由Panel来控制，你自己就不用管了。

vb.net自定义控件

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

VB.NET 如何做 控件

用vs.net创建控件项目，其他的和vb类似...

新建项目-windows 窗体控件库