vb.net 鼠标点击控件时 怎样得到控件的名字

这个简单。

创新互联公司-专业网站定制、快速模板网站建设、高性价比南芬网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式南芬网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖南芬地区。费用合理售后完善，10年实体公司更值得信赖。

在VB.net中，每个事件都对应有两个参数：sender 和 e 。提取 sender 参数信息就可以获取控件名称。如果不理解其中机制，你直接 msgbox(sender) 将其输出，就能查看其中玄机。

获取控件名称代码：CType(sender, Control).Name。

vb.net怎样获取同类控件名称

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

你好，我想请教一下vb.net中怎么调用用户控件，谢谢！

与使用System.Windows.Forms命名空间中的控件的用法没有区别。

首先添加引用。

其次导入(Imports)命名空间。

接着就可以使用了：

1、要使用用户控件的实例成员，就先创建一个用户控件的实例，再通过实例名.实例成员名访问；

2、要使用用户控件的共享（Shared）成员，通过用户控件类名.共享成员名访问。

如果你问的是怎样创建自己的用户控件类：

1、继承类System.Windows.Forms.UserControl；

2、继承任何一个已经存在的控件类（只要这个控件类不是NotInheritable的就行）。

VB.NET 变量和字符串组成控件名

直接For就行了

Dim ctl As Control

Dim lbl as Label

For Each ctl In Me.Controls

If ctl.GetType.ToString = "System.Windows.Forms.Label" Then

lbl = CType(ctl,Label)

'得到一个Label,可以对它进行赋值操作了

Msgbox lbl.Name

End If

Next

本文名称：vb.net控件id vbnet控件位置
文章转载：http://pwwzsj.com/article/dojscsj.html