资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb.net控件id vbnet控件位置

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://cdkjz.cn/article/dojscsj.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220