189 8069 5689
你可以把你现在代码，帖上来，然后实际中的问题说出来。
创新互联建站是专业的东兰网站建设公司，东兰接单;提供网站设计制作、成都网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行东兰网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
像你说的那种嵌套，其实可以分解成很多步。没必要非得那样写。
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中，每个事件都对应有两个参数：sender 和 e 。提取 sender 参数信息就可以获取控件名称。如果不理解其中机制，你直接 msgbox(sender) 将其输出，就能查看其中玄机。
获取控件名称代码：CType(sender, Control).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
类似需求我这样处理过，供参考：
1。我在窗体上加了一个label，每次处理过程都会用一个统一的方法来改变其text，从而知道当前的处理过程来自哪里，干了什么
2。通过对这个label的text的读取，就可以控制代码动态添加的过程怎么处理了
3。整个调试过程中，这个label都是可见的，最后交付时将visible属性设置false就行了，将来检查问题时再打开，很方便的。
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