正文
vb.net制作自己控件 vbnet控件开发
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb.net入门之分组控件：GroupBox控件
我们对控件进行分组vb.net制作自己控件的原因不外乎三个
为vb.net制作自己控件了获得清晰的用户界面而将相关的窗体元素进行可视化分组
编程分组 如对单选按钮进行分组
为vb.net制作自己控件了在设计时将多个控件作为一个单元来移动
在中 有GroupBox Panel TabControl这三个控件可以实现上面所提到的三个分组目的 所以我们称它们为分组控件
这三个控件在功用上十分的相似 特别是GroupBox和Panel控件 只存在一点细微的差别而已（这个差别是 只有GroupBox控件可以显示标题 而只有Panel控件可以有滚动条） 这里我们就先来了解GroupBox控件的使用
GroupBox（控件组）控件一般是作为其他控件的组的容器的形式存在的 这样有利于用户识别 使界面变得更加友好（GroupBox控件相当于Visual Basic以前版本的Frame控件） 使用控件组控件可以将一个窗体中的各种功能进一步进行分类 例如 将各种选项按钮控件分隔开
当移动单个GroupBox控件时 它所包含的所有控件也将一起移动
在大多数情况下 对控件组控件没有实际的操作 我们用它对控件进行分组 通常没有必要响应它的事件 不过 它的Name Text和Font等属性可能会经常被修改 以适应应用程序在不同阶段的要求
GroupBox控件在工具箱中的图标如图所示
一 GroupBox控件的常用属性
Anchor和Dock 这两个属性是所有有用户界面的控件都有的定位属性 这里就不啰嗦了
Name属性 标识控件的对象名称
Text属性 显示在GroupBox控件右上方的标题文字 可以用来标识该控件组的描述
Font和ForeColor属性 用于改变GroupBox控件的文字大小以及文字的颜色 需要注意的时候 它不单改变GroupBox控件的Text属性的文字外观 同时也改变其内部控件的显示的Text属性的文字外观
二 创建一组控件
在窗体上放置GroupBox控件 从工具箱中拖放一个GroupBox控件到窗体上的合适位置 调整大小
在属性窗口中改变GroupBox控件的Text属性 作为它的标题
在GroupBox控件内拖放其它需要的控件 例如RadioButton控件
设置示例 如图一所示
图一 用控件组控件对单选按钮分组
我们在拖动单个GroupBox控件的时候 它内部的控件也会随着移动 以保持和GroupBox的相对位置不变 同理 删除GroupBox控件时 它所包含的所有控件也会被删除掉
当我们调整GroupBox控件所包含的控件的Anchor和Dock属性的时候 其参照物将不是Form窗体 而是GroupBox控件了
三 编程添加GroupBox控件以及它所包含的控件
虽然GroupBox控件是在设计时用视图设计布局效果最好 但是无可避免地 很多特殊情况下也是需要在运行做添加控件到控件组中的 这里我们就用代码来完成上图一界面的绘制
动态添加控件一般需要经过下面三个步骤
创建要添加的控件实例
设置新控件的属性
将控件添加到父控件的 Controls 集合
在Form 代码的任意位置增加初始化控件的过程InitializeControl（） 代码如下所示
Sub InitializeControl（）
首先添加Label和TextBox控件
Dim Label As New System Windows Forms Label
Dim TextBox As New System Windows Forms TextBox
Label
Label Location = New System Drawing Point（ ）
Label Name = Label
Label Size = New System Drawing Size（ ）
Label TabIndex =
Label Text = 户主姓名
TextBox
TextBox Location = New System Drawing Point（ ）
TextBox Name = TextBox
TextBox Size = New System Drawing Size（ ）
TextBox TabIndex =
TextBox Text =
把它们添加到父控件Form 的Controls集合中
Me Controls Add（TextBox ）
Me Controls Add（Label ）
添加三个GroupBox控件
Dim GroupBox As New System Windows Forms GroupBox
Dim GroupBox As New System Windows Forms GroupBox
Dim GroupBox As New System Windows Forms GroupBox
GroupBox
GroupBox BackColor = System Drawing SystemColors Control
GroupBox Location = New System Drawing Point（ ）
GroupBox Name = GroupBox
GroupBox Size = New System Drawing Size（ ）
GroupBox TabIndex =
GroupBox TabStop = False
GroupBox Text = 性别
GroupBox
GroupBox Location = New System Drawing Point（ ）
GroupBox Name = GroupBox
GroupBox Size = New System Drawing Size（ ）
GroupBox TabIndex =
GroupBox TabStop = False
GroupBox Text = 单元
GroupBox
GroupBox Location = New System Drawing Point（ ）
GroupBox Name = GroupBox
GroupBox Size = New System Drawing Size（ ）
GroupBox TabIndex =
GroupBox TabStop = False
GroupBox Text = 楼层
把它们添加到父控件Form 的Controls集合中
Me Controls Add（GroupBox ）
Me Controls Add（GroupBox ）
Me Controls Add（GroupBox ）
添加RadioButton控件并分别绘制在GroupBox控件内
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
Dim RadioButton As New System Windows Forms RadioButton
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 男性
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 女性
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 二单元
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 三单元
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 一单元
RadioButton
RadioButton BackColor = System Drawing SystemColors Control
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 四单元
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 二楼
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 三楼
RadioButton
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 一楼
RadioButton
RadioButton BackColor = System Drawing SystemColors Control
RadioButton Location = New System Drawing Point（ ）
RadioButton Name = RadioButton
RadioButton Size = New System Drawing Size（ ）
RadioButton TabIndex =
RadioButton Text = 四楼
分别把它们添加到父控件GroupBox的Controls集合中
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
GroupBox Controls Add（RadioButton ）
End Sub
把上一页的代码复制添加后 把控件初始化过程InitializeControl（）过程添加到Form 的New构造函数中 如下图二所示
图二 在New构造函数中添加过程InitializeControl（）
现在按F 运行 Form 的窗体控件布局（如下图三所示）是不是和我们手工布局的图一的布局是一样的呢？
lishixinzhi/Article/program/ASP/201311/21749
相关问答
Q1: 关于vb.net自定义控件的资料
zzp_buaa | 五级
帮顶。其实VB.NET自定义控件只要新建一个控件库或者新建一个用户控件，然后把标准控件往里拖就行了，类似于窗体编程啊。不过要是复杂的涉及设计时界面等等就有点费劲了。最好的资料就是MSDN，看看里面关于自定义控件的“如何做”差不多能基本入门了。
事件么？
public event 事件A（）
调用的时候 handles 这个事件就行了吧。
是指这个么。
Q2: vb.net自定义控件
mytest1是继承自什么类vb.net制作自己控件，通常应该继承自UerControl，虽然vb.net制作自己控件你这样也能编译通过，但实际上没有任何意义。所以你先改vb.net制作自己控件了再说。继承之后，编译，工具箱就会多这么个控件，拖动到Form1上，这样按钮下就不用再newvb.net制作自己控件了。然后你再来问。
Q3: 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
Q4: vb.net 窗口控件的制作
把你的控件 继承Panel类，而不要集成UserControl类。
你可以在集成Panel后，往Panel里面加一些你自己的方法或Control来实现你需要的功能。向里面拖控件的功能则由Panel来控制，你自己就不用管了。
关于vb.net制作自己控件和vbnet控件开发的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
