反射控件名vb.net 反射根据方法名获取方法

vb.net 嵌套反射,像Excel里面的那样

你可以把你现在代码，帖上来，然后实际中的问题说出来。

创新互联建站是专业的东兰网站建设公司，东兰接单;提供网站设计制作、成都网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行东兰网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!

像你说的那种嵌套，其实可以分解成很多步。没必要非得那样写。

c#/vb.net如何通过反射获得颜色名称（字符串）对应的颜色（Color类型）？

public Color col(string colorName)

{

Type colorType = typeof(Color);

PropertyInfo info = colorType.GetProperty(colorName, BindingFlags.Public | BindingFlags.Static);

if (infos == null)

{

//throw Exception

}

return(Color)info.GetValue(null, null);

}

是这个意思么？输入“Red”， 返回Color.Red 区分大小写

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

这个简单。

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

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

vb.net的控件name属性问题

i=1、2、3、4......

i=a

dim g as groupbox

g=me.controls.find("GroupBox" i)

if not g is nothing then

g.visible=true

end if

VB.NET中怎样获得某控件在触发事件时所触发的事件名称

类似需求我这样处理过，供参考：

1。我在窗体上加了一个label，每次处理过程都会用一个统一的方法来改变其text，从而知道当前的处理过程来自哪里，干了什么

2。通过对这个label的text的读取，就可以控制代码动态添加的过程怎么处理了

3。整个调试过程中，这个label都是可见的，最后交付时将visible属性设置false就行了，将来检查问题时再打开，很方便的。

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