һ�����ԣ�
��������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���ʽ���� ' '����Ķ���'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 |
'����XMLelement�ṹԪ����ָ���Ķ������ͣ��������� tobjType = Type.GetType(tobjXmlSimpleObjectElement.GetAttribute("ObjectType")) tobjReturnSimpleObject = Convert.ChangeType(tobjXmlSimpleObjectElement.InnerText, tobjType, Nothing) |
Public gobjAppOption As New clsAPPOption |
'��ȡ�����ѡ�� gobjAppOption.fnLoadAppOption() |
gobjAppOption.fnSaveAppOption() '����Ӧ�ó����ѡ�� |
�������������ط��㶼���Ե��ð��Զ���ʼ���ļ����ʵ������ȡ/
�������ѡ��ĵ�ǰֵ��
'���Ժܺõ�����VS�ṩ���Զ��г���Ա�Ĺ����г�����ѡ�� '��ȡѡ���ʾ������ MessageBox.Show(gobjAppOption.mobjAPPGeneralOption.astrShowFileFilter(0)) '����ѡ���ʾ������ 'gobjAppOption.mobjAPPGeneralOption.astrHideFileFilter(0) = "*.zip" |
�����Ƶ
����Ķ�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ʱ�ĸ�ʽ����
�鿴����0������>>