VB.NET为智能设备编写半自动初始化类

四、程序实现核心代码注释

　　1、我将这个半自动初始化文件类命名为clSAPPOption，类内结构及包含过程的功能说明如下：

　　两个区域#Region "应用程序使用的选项结构定义"、#Region "应用程序选项的变量声明"中的内容是按初始化选项级组织的类及类的实例，每一个类表示程序选项的一个初始化节，必须由最终使用者根据实际选项需要自行手工补充。

　　fnGetAppDirectory:取得应用程序的运行目录

　　sbInitialDefaultAPPOption：设置程序选项的默认初始值(这个过程中的代码需根据实际需要手工修改)。

　　fnSaveAppOption：将类内的程序选项保存到一个指定的文件中. (这个过程中的部分代码需根据实际需要手工修改)

　　fnLoadAppOption：在指定的文件中读取应用程序的选项信息并保存到当前类中(这个过程中的部分代码需根据实际需要手工修改)。

　　fnXMLElementToSimpleObject：将一个XMLElement转为它代表的简单对象,所谓简单对象就是诸如int32\int16之类的基本net对象。

　　fnXMLElementToClassObject：将一个XMLElement转换为它代表的类对象。

　　fnXMLElementToArray：将一个XMLElement转为它代表的数组。

　　fnArrayToXML：将一个数组放入XML文件中,目前只支持一维数组：例如dim aString(10) as string

　　fnClassObjectToXML：将一个类对象转换为xml元素的表示形式。

　　fnSimpleObjectToXML：将一个简单对象改为XML元素表示

　　注：其中fnXMLElementToXXXX和fnXXXXToXML功能相对应，互为反函数。

　　2、程序的实现是非常简单的，fnClassObjectToXML对指定的类进行反射操作，使用类的类型的GetFields方法枚举类内的成员变量信息，然后根据成员变量的类型调用fnSimpleObjectToXML或fnArrayToXML，在函数结束的时候，将要转换的类以一个XMLElement对象的形式返回。

tobjClassObjectType = ni_objClassObject.GetType '取得类的类型,以利于反射调用

　　….其它代码

　　REM 以结构内的所有值进行反射取值, 并存入xml对象中

For Each tobjFieldInfo In tobjClassObjectType.GetFields
If tobjFieldInfo.FieldType.IsArray = False Then '只是一个简单类型,直接取得值
tobjXMLElement = fnSimpleObjectToXML(tobjFieldInfo.GetValue(ni_objClassObject), _
ni_objXMLDocument, _
tobjFieldInfo.Name)
tobjXMLClassObjectElement.AppendChild(tobjXMLElement)
Else
REM 如果是一个数组类型,则进行数组方法的调用以取得值,
'目前只支持一维数组元素
tobjXMLElement = fnArrayToXML(tobjFieldInfo.GetValue(ni_objClassObject), ni_objXMLDocument, tobjFieldInfo.Name, tobjFieldInfo.FieldType.FullName)
'将数组对象放入结构的xml对象中
tobjXMLClassObjectElement.AppendChild(tobjXMLElement)
End If

　　fnSimpleObjectToXML的实现也很简单，根据前文确立的简单对象的定义，fnSimpleObjectToXML过程所要生成的xml对象的几个要素可以这样获取：ObjectName在f nClassObjectToXML作反射后已经获取，并以参数传递的方式在调用fnSimpleObjectToXML时提供了。 ObjectType数据类型则可以利用ni_objSimpleObject.GetType.FullName方法取得, ni_objSimpleObject就是在函数调用时传入的简单对象的值。

　　在编写fnArrayToXML过程时出现了一点小问题，由于调用方不可能要求数组的元素逐个传入，所以对数组的元素个数以及元素的值无法在函数中以对象反射的方式直接获取。幸运的是，在Net反射操作中，可以利用Invoke方法来调用原始对象内的函数或属性过程，而数组的共享方法GetLength、GetValue功能适好是取数组元素个数及指定下标的元素值，所以问题立刻迎刃而解。

'利用反射调用数组的getLenght方法取得数组的大小，这里仅支持一维数组，但对于初始化文件已足够用了
tobjXMLAttribute = ni_objXMLDocument.CreateAttribute("ArrayLength")
tobjMethodInfo = tobjArrayType.GetMethod("GetLength")
ReDim taobjParameter(0)
taobjParameter(0) = 0
ti32Tempa = tobjMethodInfo.Invoke(ni_objArray, taobjParameter)
tobjXMLAttribute.Value = ti32Tempa
tobjXMLElement.SetAttributeNode(tobjXMLAttribute)
tobjXMLAttribute = Nothing

'加入数组的内的元素
For ti32LoopA = 0 To ti32Tempa - 1

'利用反射取得数组的GetValue方法取得实际元素的值
ReDim taobjParameterType(0)
taobjParameterType(0) = GetType(Integer)
tobjMethodInfo = tobjArrayType.GetMethod("GetValue", taobjParameterType)
ReDim taobjParameter(0)
taobjParameter(0) = ti32LoopA
tobjTempa = tobjMethodInfo.Invoke(ni_objArray, taobjParameter)
' 将数组元素放入对xml对象中
tobjXMLElementA = fnSimpleObjectToXML(tobjTempa, ni_objXMLDocument, ti32LoopA)
tobjXMLElement.AppendChild(tobjXMLElementA)
Next ti32LoopA

　　从XML转为net对象的过程基本都没有什么技术难度。我只是根据xml中包含的ObjectType信息简单获得简单对象的类型，然后直接调用net强制转换类的功能将XML文件中指定的对象储存的数值重新恢复为原来的net对象。代码如下：

'根据XMLelement结构元素中指定的对象类型，建立对象
tobjType = Type.GetType(tobjXmlSimpleObjectElement.GetAttribute("ObjectType"))
tobjReturnSimpleObject = Convert.ChangeType(tobjXmlSimpleObjectElement.InnerText, tobjType, Nothing)

　　对于Xml转为数组用数组、转为类对象的方法可以参阅本文所附源代码。

　　3、初始化文件类实例的调用：

　　类定义完成以后，可以在程序的全局范围定义初始化类的实例。在模块内定义就可以了：

Public gobjAppOption As New clsAPPOption

　　可以在程序启动的时候读初始化文件信息到类中，我是放在主窗体的load事件中的。

'读取程序的选项
gobjAppOption.fnLoadAppOption()

　　可以在程序的任意地方保存当前半自动初始化类的值到xml文件中，我在主窗体的closed事件中加入保存代码：

gobjAppOption.fnSaveAppOption() '保存应用程序的选项

　　程序的任意地方你都可以调用半自动初始化文件类的实例来读取/保存程序选项的当前值：

'可以很好地利用VS提供的自动列出成员的功能列出程序选项
'读取选项的示例代码
MessageBox.Show(gobjAppOption.mobjAPPGeneralOption.astrShowFileFilter(0))
'保存选项的示例代码
'gobjAppOption.mobjAPPGeneralOption.astrHideFileFilter(0) = "*.zip"

　　虽然这个半自动化初始化文件类还是需要手工添加少量代码（在源代码明确注释要手工添加的部分），但还是那句老话，如果一切事情电脑都会做的时候，离程序员下岗的日子就不远了。