图形用户界面到业务对象的映射VB.Net

我目前遇到的问题是将多个GUI字段映射到对象属性(即表示层到业务逻辑层的映射)。更具体地说,这是在VB.Net 2.0 WinForms中。

解决方案的性质要求我们在GUI上有4列显示相同类型的行为——每列由11个文本框组成(我们只使用这个小样本,因为问题超出了11个文本盒)。

Textbox1.tag = "name"
Textbox2.tag = "type"
Textbox3.tag = "speed"

dim objectToMapTo //the generic parent object which all my custom myObjects inherit from

select case sender.parent.tag //the parent object that the property needs to map to
    case "column1"
         objectToMapTo = myObject1
    case "column2"
         objectToMapTo = myObject2
    case "column3"
         objectToMapTo = myObject3
    case "column4"
         objectToMapTo = myObject4
end select

select case sender.tag //the actual textbox's tag value which maps to the property
    case "name"
         objectToMapTo.Name = sender.text //sender.text is conceptual for 
        //the data that needs to be set -- i.e. this could be a calculated 
        //number based on the text, or simply a string, etc
    case "type"
         objectToMapTo.Type = sender.text
    case "speed"
         objectToMapTo.Speed = sender.text
    ...
end select

谢谢你的帮助。