189 8069 5689
Public Class UserControl1
成都创新互联是专业的长葛网站建设公司，长葛接单;提供成都做网站、成都网站制作、成都外贸网站建设,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行长葛网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
#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
用vs.net创建控件项目，其他的和vb类似...
新建项目-windows 窗体控件库
添加一个TextBox控件（比如叫TextBox1）。
类似于Lable控件的功能，你可以修改TextBox控件的Text属性来达到目的：
不是在设计器里修改，而是在代码中用“TextBox1.Text="你想要显示的字符串";”这样的语句，这样就可以在程序运行时改变显示的内容。
设置或者取消星号，你可以通过代码修改TextBox1的PasswordChar属性，跟上面的是类似的：
在其他的控件的事件中比如Button的Click事件中修改——“TextBox1.PasswordChar="";//不显示***”
“TextBox1.PasswordChar="*（或者任何你想要的字符）";//显示为***”
至于什么时候改就完全随你的意思了。
首先，你已经完成的步骤是：
1.新建一个用户控件[注意，用户控件（UserControl）不是自定义控件（CustomControl）]
2.给用户控件起个名字（我在此处起名叫 RadioList）
3.在用户控件上画一个 GroupBox，命名为 RadioGroup，
并将其 Dock 属性设置为 Fill
然后，你需要做的是动态增减控件。
如果你以前用过 VB 6，你可能会想到控件数组，
但在此处，你可以直接增删控件。
具体实现如下：
4.在 GroupBox 里画一个 FlowLayoutPanel，命名为 RadioPanel，
将其 AutoScroll 属性设置为 True，即自动显示滚动条，
并设置其 FlowDirection 属性（例如设置为 TopDown）
这样就省去了手动调整 RadioButton 位置的麻烦
5.实现选项的动态增减（以下只是我的思路，你可以发挥一下）
（十分简洁，注释除外）：
''' summary
''' 创建一个新的 RadioButton。
''' /summary
Private Function CreateRadio() As RadioButton
Dim NewRadio As New RadioButton
components.Add(NewRadio)
'components 字段由控件设计器自动创建，
'此代码目的是使控件在销毁（Dispose）时能自动销毁 RadioButton
'详情参见 RadioList.Designer.vb
NewRadio.Parent = RadioPanel
'设置容器
AddHandler NewRadio.CheckedChanged, AddressOf RadioButtons_CheckedChanged
'设置事件处理程序
Return NewRadio
End Function
''' summary
''' 移除已存在的 RadioButton。
''' /summary
Private Sub RemoveRadio(ByVal dest As RadioButton)
components.Remove(dest)
dest.Dispose()
End Sub
'无中生有的 RadioButton 的事件处理程序
Private Sub RadioButtons_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
'在此处设置选中项的属性，通过 sender 来确定不同的 OptionButton
'你可以通过将 OptionButton 放在一个列表，
'如 List(Of OptionButton) 中来像数组一样维护选项的次序
'注意，此处需要判断 sender 的 Checked 属性是否为 True
'因为 Changed 是“改变”，而不是“选中”
'例如：
If DirectCast(sender, RadioButton).Checked Then
SelectedIndex = ...
End If
End Sub
把你的控件 继承Panel类，而不要集成UserControl类。
你可以在集成Panel后，往Panel里面加一些你自己的方法或Control来实现你需要的功能。向里面拖控件的功能则由Panel来控制，你自己就不用管了。
先生成dataset,然后用datarow装载dataset的需要编辑的记录，再把datarow的值赋给textbox的text显示给用户编辑，用户修改后，把textbox的text赋值回给datarow，最后update dataset更新数据.