这个简单。
创新互联建站专注为客户提供全方位的互联网综合服务，包含不限于网站设计制作、成都网站建设、九龙坡网络推广、微信小程序、九龙坡网络营销、九龙坡企业策划、九龙坡品牌公关、搜索引擎seo、人物专访、企业宣传片、企业代运营等，从售前售中售后，我们都将竭诚为您服务，您的肯定，是我们最大的嘉奖；创新互联建站为所有大学生创业者提供九龙坡建站搭建服务，24小时服务热线：028-86922220，官方网址：www.cdcxhl.com
在VB点虐 中，每个事件都对应有两个参数：sender 和 e 。提取 sender 参数信息就可以获取控件名称。如果不理解其中机制，你直接 msgbox(sender) 将其输出，就能查看其中玄机。
获取控件名称代码：CType(sender, Control).Name。
关于用户控件的使用，点虐 与v6环境下是有那么小小的区别。v6环境下的用户控件编写后可以直接使用，而在点虐 环境下，则需要先生成控件库（dll，应用程序扩展格式），然后再将这个控件库导入到点虐 编程环境的工具箱上方可使用。其具体方法如下（以VS 2010，Visual Basic点虐 为例）：1、新建项目-Visual Basic-Windows-Windows 窗体控件库-键入控件库名称（默认为Usercontrol1）确定；2、设计你的用户控件，完成后按“F7”进行编译；3、在该解决方案目录下找到控件库扩展（默认为UserControl1.dll），确认项目已经生成。在上三项为控件库DLL的生成方式，下面是调用方式：4、新建项目-Visual Basic-Windows-Windows 窗体应用程序-确定；5、打开工具箱，以任意一个控件上点击右键-选择项-点虐 framework组件-浏览-定位到生成的控件库扩展-确定；6、在工具箱中找到新添加的用户控件，将其拖至窗体中进行设计。经测，在点虐 环境下编译的用户控件是通用的。也就是说使用Visual Basic点虐 编写的用户控件，也可以在C#工程里使用，反之亦然。这充分体现了点虐 语言的交互性，在我看来，点虐 下各种语言能力相当，它们都是作为一种中间语言，编译出中间代码。所以，在点虐 环境下，采用混合编程也未尝不是一样提高效率的一种可选的方式。
子控件集合。
.controls
第一个子控件的子控件集合。
.controls(0).controls
Private ctrName As String '控件名称
Private isClick As Boolean '鼠标点击状态
'注：如果已知点击目标控件的父控件，ctrParent变量可以不要。
Private WithEvents ctrParent As Control '父控件
Private Sub ControlAMouseDown(sender As Object, e As MouseEventArgs) _
Handles Button1.MouseDown
isClick = (e.Button = MouseButtons.Left _
Or e.Button = MouseButtons.Right) '左键或右键按下
If isClick Then
Dim ctr As Control = CType(sender, Control) '转换Object为控件类型
ctrName = ctr.Name '获取控件名称
ctrParent = ctr.Parent '获取控件的父控件
End If
End Sub
'增加这个父控件事件，是为了正确判别鼠标弹起时是否已进入指定目标
Private Sub ParentMouseMove(sender As Object, e As EventArgs) _
Handles ctrParent.MouseMove '如果已取消ctrParent变量，改为相应的父控件
If isClick Then isClick = False '点击状态关闭
End Sub
Private Sub ControlBMouseUp(sender As Object, e As EventArgs) _
Handles Button2.MouseEnter
If isClick Then '如果点击状态为打开
Dim ctr As Control = CType(sender, Control) '转换Object为控件类型
MsgBox(ctrName " | " ctr.Name) '弹出消息显示结果
End If
End Sub
