����λ�ã���ҳ������������.Net ר���� ����VB.NETΪ�����豸��д���Զ���ʼ����

����VB.NETΪ�����豸��д���Զ���ʼ����

ʱ�䣺2009/1/16 14:42:00��Դ����վ�������ߣ���Ҫ����(0)

һ�����ԣ�

��������ncf��net������Ӣ����д��������Ա��Ӧ�ó���ѡ���һ��ֻ������;��ѡ��

����1����ѡ���ֵд��ע������������Ӧ�ó���ֵ����д��ע�����������ս�����ע������ռ��ϵͳ��Դ����Ӱ��ϵͳ������Ч�ʣ���������Ǻܶ������Ӳ���豸֮�ò����°�װ��ԭ�����ִ������д��"��������ϵͳ����"��˼�룬�����������Ƽ�ʹ�á�

����2����ѡ��ֵ��һ����ʼ���ļ��ķ�ʽ���棬��������������޶ȱ���ϵͳ��Դռ�ã���߳������ж����ԣ���������������Ϊ�ǽ�Ϊ��ȡ�ķ�������������������.net��������ʵ�ַdz�������ֱ����XML���л�����ʵ�֡�����רΪ�����ƶ��豸������net������У����ڲ��ṩXML���л����ԣ�ʹ�ñ����ʹ�ó���ѡ��������������������Ա���ò���ÿһ������ѡ����д��/��ȡ�ļ��ı��룬���������ζ�IJ�����Բ�����һ����Ȥ�����顣

�����������ܸ�����

���������У��ҽ�����.net�ķ��书�ܣ�����һ���Զ���ɳ�ʼ���ļ��ı���/��д���ܵ��ࡣ��������У�ֻҪ�������������ڲ�������ѡ������ƶ��������ڲ���Ա�������������������Ȼ��Ҫ����Ա�������ڵ��ֹ����룬���Գ������Ϊ���Զ���ʼ���ࣩ���������Զ�������ѡ��ӳ�ʼ���ļ��б���/��ȡ�Ĺ���������Ա�����ٽ��з����Ķ�д�ļ����ֵı��롣���ң������Ĺ�����������һ���ô�������Ӧ�ó����ѡ��Գ�Ա��������ʽ����������ڲ�������Ա��������VS�ṩ���Զ��г�������Ա�Ĺ��ܲ�ѯ��ʼ���ļ���ѡ���������д string myAPPname= tobjAPPOption.General.APPName��������֪����ס�����ij���ѡ���ȷ���ַ�Ҳ����ʲô�������Ŷ8-)

������������ʵ���Ⱦ���������

����1����ʼ���ļ����ݵ�����

�����������ȷ����۲�һ����׼��Windows��ʼ���ļ�win.ini���ݣ�

[Windows]
load=
run=
NullPort=None
device=HP LaserJet 6L PCL,PCL5EMS3,\\E5A18B631240425\HPLaserJ
[Desktop]
Wallpaper=(��)
TileWallpaper=1
WallpaperStyle=0


�����ó�ʼ���ļ��������÷�������ס�IJ������dz�Ϊ��ʼ���ļ��Ľڣ�ÿһ���¶���֯��һϵ���������Ӧ���ܵij���ѡ���desktop���¾ͺ�������ǽֽ��Wallpaper��/����ǽֽ���裨WallpaperStyle�������á��ڳ�ʼ���ļ��г����ѡ��������ַ���/������Щ���������ͽ��б��档

����������һ�����ǵ�Ŀǰ��.net��ʹ��xml�ļ��dz����㣬����ʹ��xml��ʽ����ʵ�ֳ���windows��ʼ���ļ��Ĺ����⣬�����Զ�����νṹ��֯�����ƣ����Ա�����Ƶij�ʼ���ļ�ȷ������xml�ļ���ʽ���������¸�ʽ��XML�ļ���Ԫ�ض��壺

'Net������XMLԪ�ر���ʹ�õĸ�ʽ����
'Net����Ķ���
' ��������

'����Ķ��� Ŀǰ������ʵ�ֵ�����ֻ֧��string��һά����
' Ԫ�ض���
'�����������Ϊnothing���ʽ����
'nothing

'����Ķ���'int32��String��
' ��������
'��SimpleObject���������ڵ�Ԫ��ʱ��objectname���������ά��

'ObjectName ��ObjectType�� Lenght ���Ե�ʹ�þ�������
'����Redim mai32Test(7) As String
'ObjectNameȡֵΪmai32Test,ObjectTypeȡֵΪstring[],Length ֵΪ8


����2����.net����һ�ֳ�֮Ϊ����Ĺ��ܣ�����ö���ض����Ͷ����������ij�Ա���������ͼ�����ֵ��������ܾ�����һЩ��ͨ����Ա���ԣ���Ϊ��;�������ڱ����У���һ���ܽ���Ϊ�������Զ�����ʼ������ĺ��ģ���������Ҫ���ֹ��ܽ�д�ڳ�ʼ�����еı������ͺ�ֵ�Զ����ʼ���ļ�������ȡ����Ҫʹ�õķ������ͷ�����˵�����±�
�ġ�����ʵ�ֺ��Ĵ���ע��

����1���ҽ�������Զ���ʼ���ļ�������ΪclSAPPOption�����ڽṹ���������̵Ĺ���˵�����£�

������������#Region "Ӧ�ó���ʹ�õ�ѡ��ṹ����"��#Region "Ӧ�ó���ѡ��ı�������"�е������ǰ���ʼ��ѡ���֯���༰���ʵ����ÿһ�����ʾ����ѡ���һ����ʼ���ڣ�����������ʹ���߸���ʵ��ѡ����Ҫ�����ֹ����䡣

����fnGetAppDirectory:ȡ��Ӧ�ó��������Ŀ¼

����sbInitialDefaultAPPOption�����ó���ѡ���Ĭ�ϳ�ʼֵ(��������еĴ��������ʵ����Ҫ�ֹ��޸�)��

����fnSaveAppOption�������ڵij���ѡ��浽һ��ָ�����ļ���. (��������еIJ��ִ��������ʵ����Ҫ�ֹ��޸�)

����fnLoadAppOption����ָ�����ļ��ж�ȡӦ�ó����ѡ����Ϣ�����浽��ǰ����(��������еIJ��ִ��������ʵ����Ҫ�ֹ��޸�)��

����fnXMLElementToSimpleObject����һ��XMLElementתΪ������ļ���,��ν�����������int32\int16֮��Ļ���net����

����fnXMLElementToClassObject����һ��XMLElementת��Ϊ������������

����fnXMLElementToArray����һ��XMLElementתΪ����������顣

����fnArrayToXML����һ���������XML�ļ���,Ŀǰֻ֧��һά���飺����dim aString(10) as string

����fnClassObjectToXML����һ�������ת��ΪxmlԪ�صı�ʾ��ʽ��

����fnSimpleObjectToXML����һ�������ΪXMLԪ�ر�ʾ

����ע������fnXMLElementToXXXX��fnXXXXToXML�������Ӧ����Ϊ��������

����2�������ʵ���Ƿdz��ģ�fnClassObjectToXML��ָ��������з��������ʹ��������͵�GetFields����ö�����ڵij�Ա������Ϣ��Ȼ����ݳ�Ա���������͵���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"

������Ȼ������Զ�����ʼ���ļ��໹����Ҫ�ֹ�����������루��Դ������ȷע��Ҫ�ֹ���ӵIJ��֣����������Ǿ��ϻ������һ��������Զ�������ʱ�������Ա�¸ڵ����ӾͲ�Զ�ˡ�

�����Ƶ

    û������

����Ķ�VB.NET 2005��д��ʱ�ػ�������VB.net2008��д�õ�Ƭ����VB.NET�в�����ݰ�TreeView��ʵ�ַ���VB.NET��εõ����õ�ǰ���̵ķ������ƺ�������c#(��vb.net)��������Ż�ADO��vb.net�е�ʹ�úͷ������������VB.net�������ݿ�VB.NET�������ݿ��鼰����

��������
��������

��������û�в�ѯ���κμ�¼��

��������ʲô��.NET�е�TDD��ASP.NET AJAX���ż��WebMatrix���Ž̳�VC++2008����ε���GetOpenFileName���ļ�PlaySound������VC++6.0����β������ּ�������VC++�ص�������ô��

��������Ƕ��ʽʵʱ����ϵͳVxWorks���Ž̳�ArrayList �� string��string[] ��ת��C#���������ļ��м���Ŀ¼���ļ�����WebMatrix���Ž̳�asp.net�ж��ļ����ļ����Ƿ����c#�ж�����NULLֵ�ķ���vc++6.0��ôдWindows���ڴ���.net������ݵ���excelʱ�ĸ�ʽ����