織物組織CAD軟件的開發(fā)

第六章織物組織CAD軟件的開發(fā)一、CAD系統(tǒng)功能概述菜單化設計集成織物組織CAD設計的功能，配合密碼登錄管理；參數(shù)化設計功能，輸入?yún)?shù)后，可生成三原、變化、聯(lián)合組織，以及自定義組織；可以保存數(shù)據(jù)文件和圖像文件，并能打開相應的數(shù)據(jù)文件和圖像文件。二、菜單設計根據(jù)系統(tǒng)功能，進行相應的菜單設計，可如下表進行分級：文件管理原組織變化組織聯(lián)合組織自定義組織幫助建立下拉式菜單打開VB，新建EXE文件；選擇菜單/工具/菜單編輯器，或直接從工具欄選擇菜單編輯器，進入菜單編輯狀態(tài)。依次編輯各級菜單，分別填寫標題和名稱；插入和刪除分別表示增加或刪除一個菜單命令項；上下箭頭表示菜單位置上下移動；左右箭頭表示菜單級別調整，左表示級別高；三、分別建立各子模塊1、平紋模塊（窗體設計+代碼編寫）窗體設計：新建exe文件建立1個picturebox控件2個commandbutton控件1個frame控件在frame控件內放置1個label控件；2個radio按鈕；1個text控件控件屬性調整：Form：caption屬性改為：平紋Picturebox屬性：Autoredraw設為：true；Height、width、scaleheight、scalewidth均設為相同的值，如6000Commandbutton的caption屬性分別為：繪圖、退出Frame的caption屬性為：參數(shù)選擇Label的caption屬性為：循環(huán)次數(shù)Text的text設定為：默認值，如10單選按鈕分別設定caption為：單起、雙起將單起對應的單選按鈕的value設為：true代碼編寫：通用模塊部分：Dimx,y,w,hAsSingleDimi,jAsIntegerDimnAsIntegerDima()AsInteger退出按鈕：PrivateSubCommand2_Click()UnloadMeEndSub繪圖按鈕（第一部分）PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n=Val(Text1.Text)*2'獲取組織圖幅面w=Picture1.Width/n'定義組織點尺寸h=Picture1.Height/nReDima(1Ton,1Ton)AsInteger'定義組織矩陣IfOption1.Value=TrueThen'單起Fori=1Ton'組織矩陣編碼Forj=1Tonk=i+jIfkMod2=0Thena(i,j)=0Elsea(i,j)=1EndIfNextjNextiEndIfIfOption2.Value=TrueThen'雙起Fori=1Ton'組織矩陣編碼Forj=1Tonk=i+jIfkMod2=0Thena(i,j)=1Elsea(i,j)=0EndIfNextjNextiEndIf繪圖按鈕（第二部分）Fori=1TonForj=1TonIfa(i,j)=1Then'判斷元素1處繪制實心矩形Picture1.Line(x+(i-1)*w,y+(j-1)*h)-(x+i*w,y+j*h),RGB(0,0,255),BFEndIfNextjNextix=0'組織圖框線y=0Fori=1Ton+1Picture1.Line(x+(i-1)*w,y)-(x+(i-1)*w,y+n*h),RGB(0,0,0)Picture1.Line(x,y+(i-1)*h)-(x+n*w,y+(i-1)*h),RGB(0,0,0)NextiEndSub繪圖按鈕（第三部分）2、斜紋組織窗體設計：1個picturebox控件；1個frame控件，內含：3個文本框控件；2個單選按鈕控件；1個標簽控件；1條水平線段；2個commandbutton控件控件屬性調整：參照前面的設置方法，結合右圖代碼編寫通用部分：Dimx,y,w,hAsSingleDimi,jAsIntegerDimn,n1,n2,n3,n4

AsIntegerDimsAsIntegerDima()asintegerDimbase()asinteger退出按鈕：PrivateSubCommand2_Click()UnloadMeEndSub繪圖按鈕：PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Text1.Text)'將文本框1的字符轉為數(shù)值，循環(huán)次數(shù)n2=Val(Text2.Text)'將文本框2的字符轉為數(shù)值，分子n3=Val(Text3.Text)'將文本框3的字符轉為數(shù)值，分母n=n1*(n2+n3)'獲取組織圖幅面w=Picture1.Width/n'定義組織點尺寸h=Picture1.Height/nn4=n2+n3s=1ReDima(1Ton,1Ton)AsInteger'定義循環(huán)后組織矩陣ReDimbase(1Ton4,1Ton4)AsInteger'定義組織矩陣IfOption1.Value=TrueThen'右斜Fori=1Ton4Ifi<=n3Thenbase(1,i)=0Elsebase(1,i)=1EndIfNextiForj=2Ton4Fori=1Ton4Ifi+s<=n4Thenbase(j,i)=base(j-1,i+s)Elsebase(j,i)=base(j-1,(i+s)Modn4)EndIfNextiNextjEndIf二維數(shù)組，列前，行后數(shù)組base首列賦值數(shù)組base其他列賦值n2=3n3=1n4=4j=2j=1j=3j=4IfOption2.Value=TrueThen'左斜Fori=1Ton4Ifi<=n3Thenbase(n4,i)=0Elsebase(n4,i)=1EndIfNextiForj=n4-1To1Step-1Fori=1Ton4Ifi+s<=n4Thenbase(j,i)=base(j+1,i+s)Elsebase(j,i)=base(j+1,(i+s)Modn4)EndIfNextiNextjEndIfj=3j=4j=2j=1n2=3n3=1n4=4二維數(shù)組，列前，行后數(shù)組base末列賦值數(shù)組base其余列賦值Fori=1Ton1Forj=1Ton1Fork=1Ton4Forl=1Ton4a((i-1)*n4+k,(j-1)*n4+l)=base(k,l)NextlNextkNextjNextiFori=1TonForj=1TonIfa(i,j)=1Then'判斷元素1處繪制實心矩形Picture1.Line(x+(i-1)*w,y+(j-1)*h)-(x+i*w,y+j*h),RGB(0,0,255),BFEndIfNextjNextix=0'組織圖框線y=0Fori=1Ton+1Picture1.Line(x+(i-1)*w,y)-(x+(i-1)*w,y+n*h),RGB(0,0,0)Picture1.Line(x,y+(i-1)*h)-(x+n*w,y+(i-1)*h),RGB(0,0,0)NextiEndSub產生循環(huán)矩陣an1=2n2=3n3=1n4=4bbbb3、緞紋組織窗體設計1個picturebox控件；1個frame控件內含：3個text控件；2個單選按鈕控件；3個label控件；2個commandbutton按右圖進行控件屬性設置控件代碼編寫：通用模塊：Dimi,jAsIntegerDimn,n1,n2,n3,n4,n5,n6AsInteger'申明整形變量，其中n1,n2,n3分別表示循環(huán)次數(shù)，枚數(shù)，飛數(shù)，n4，n5，n6為判斷枚飛互質的中間變量，n為循環(huán)后經緯紗數(shù)Dima()AsInteger'申明動態(tài)整型數(shù)組a，循環(huán)后數(shù)組Dimbase()AsInteger'申明動態(tài)整型數(shù)組base，基礎緞紋組織數(shù)組退出：PrivateSubCommand2_Click()UnloadMeEndSub繪圖按鈕：PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Text1.Text)'循環(huán)次數(shù)n2=Val(Text2.Text)'枚數(shù)n3=Val(Text3.Text)'飛數(shù)If(n2>=5)And(n3>1)And(n3<n2-1)Then'枚、飛最大公約數(shù)n6n4=n2n5=n3Whilen4<>n5Ifn4>n5Thenn4=n4-n5Elsen5=n5-n4EndIfWendn6=n4EndIf判斷枚數(shù)和飛數(shù)是否合理，計算最大公約數(shù)If(n2>=5)And(n3>1)And(n3<n2-1)And(n6=1)Thenn=n1*n2‘獲取組織圖行列w=Picture1.Width/n‘組織點寬h=Picture1.Height/n‘組織點高ReDima(1Ton,1Ton)AsInteger‘定義循環(huán)后組織矩陣ReDimbase(1Ton2,1Ton2)AsInteger‘定義基礎組織矩陣IfOption2.Value=TrueThen'緯面Fori=1Ton2Ifi=1Thenbase(i,n2)=1Elsebase(i,n2)=0EndIfNexti緯面緞紋末行賦值n2=5n3=3Forj=(n2-1)To1Step-1Fori=1Ton2Ifi+n3<=n2Thenbase(i+n3,j)=base(i,j+1)Elsebase((i+n3)Modn2,j)=base(i,j+1)EndIfNextiNextjEndIfIfOption1.Value=TrueThen'經面Fori=1Ton2Ifi<n2Thenbase(1,i)=1Elsebase(1,i)=0EndIfNexti緯面緞紋其他行賦值經面緞紋首列賦值n2=5n3=3Forj=2Ton2Fori=1Ton2Ifn2+i-n3<=n2Thenbase(j,n2+i-n3)=base(j-1,i)Elsebase(j,(n2+i-n3)Modn2)=base(j-1,i)EndIfNextiNextjEndIfFori=1Ton1Forj=1Ton1Fork=1Ton2Forl=1Ton2a((i-1)*n2+k,(j-1)*n2+l)=base(k,l)NextlNextkNextjNexti經面緞紋其他列賦值循環(huán)矩陣的產生n1=2bbbbFori=1TonForj=1TonIfa(i,j)=1Then'判斷元素1處繪制實心矩形Picture1.Line(x+(i-1)*w,y+(j-1)*h)-(x+i*w,y+j*h),RGB(0,0,255),BFEndIfNextjNextix=0'組織圖框線y=0Fori=1Ton+1Picture1.Line(x+(i-1)*w,y)-(x+(i-1)*w,y+n*h),RGB(0,0,0)Picture1.Line(x,y+(i-1)*h)-(x+n*w,y+(i-1)*h),RGB(0,0,0)NextiElseMsgBox"請重新設置枚數(shù)和飛數(shù)",0,"請改正錯誤"EndIfEndsub錯誤提示對話框4.方平組織模塊代碼編程：通用部分：Dimi,jAsInteger'申明變量i，j為整形變量，用來作為循環(huán)變量Dimx,y,w,hAsSingle'申明單精度實型x,y為坐標，w，h為單元格尺寸Dimn,n1,n2AsInteger'申明整形變量，其中n1,n2分別表示循環(huán)次數(shù)，方格組織邊長，n為循環(huán)后經緯紗數(shù)Dima()AsInteger'申明動態(tài)整型數(shù)組a，循環(huán)后數(shù)組繪圖按鈕command1PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色Picture1.DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Text1.Text)'循環(huán)次數(shù)n2=Val(Text2.Text)'方格邊長n=n1*n2*2'獲取組織圖幅面w=Picture1.Width/n'組織點寬h=Picture1.Height/n'組織點高ReDima(1Ton,1Ton)AsInteger'定義組織矩陣Fori=1Ton'產生方平組織矩陣第1列IfiMod2*n2<=n2AndiMod2*n2>0Thena(1,i)=0Elsea(1,i)=1EndIfNextiForj=2Ton'產生方平組織矩陣其余各列Fori=1TonIfjMod2*n2<=n2AndjMod2*n2>0ThenIfa(1,i)=1Thena(j,i)=1Elsea(j,i)=0EndIfElseIfa(1,i)=1Thena(j,i)=0Elsea(j,i)=1EndIfEndIfNextiNextjFori=1TonForj=1TonIfa(i,j)=1Then'判斷元素1處繪制實心矩形Picture1.Line(x+(i-1)*w,y+(j-1)*h)-(x+i*w,y+j*h),RGB(0,0,255),BFEndIfNextjNextix=0'組織圖框線y=0Fori=1Ton+1Picture1.Line(x+(i-1)*w,y)-(x+(i-1)*w,y+n*h),RGB(0,0,0),BPicture1.Line(x,y+(i-1)*h)-(x+n*w,y+(i-1)*h),RGB(0,0,0),BNextiEndSub退出按鈕Command2部分：PrivateSubCommand2_Click()UnloadMe'卸載窗體EndSub4、變化方平模塊通用模塊：Dimx,y,w,hAsSingleDimi,jAsIntegerDimn,n1,n4,n5AsInteger'組織圖幅面Dimn2,n3AsString‘經浮長字符串，緯浮長字符串退出和窗體加載，和前面代碼一樣繪圖按鈕：PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Text1.Text)'循環(huán)次數(shù)n2=Text2.Text'經浮長字符串n3=Text3.Text'緯浮長字符串n4=Len(n2)'經緯浮長對數(shù)ReDimwarp(1Ton4)AsIntegerReDimweft(1Ton4)AsIntegerReDimtemp(1Ton4)AsIntegern5=0Fori=1Ton4warp(i)=Val(Mid(n2,n4-i+1,1))'從經浮長字符串依次取得各經浮長weft(i)=Val(Mid(n3,n4-i+1,1))'從緯浮長字符串依次取得各緯浮長temp(i)=warp(i)+weft(i)n5=n5+temp(i)'獲取完全組織循環(huán)數(shù)Nextin=n1*n5'獲取組織圖幅面w=Picture1.Widthh=Picture1.HeightPicture1.ScaleHeight=h'定義圖片框內部大小Picture1.ScaleWidth=ww=w/n'定義組織點尺寸h=h/nReDima(1Ton,1Ton)AsInteger‘定義循環(huán)組織圖矩陣ReDimb(1Ton5,1Ton5)AsInteger'定義完全組織矩陣ReDimn6(0Ton4)AsIntegern6(0)=0Fori=1Ton4n6(i)=n6(i-1)+temp(i)Nexti'產生第1經紗Fori=1Ton4Forj=(1+n6(i-1))Ton6(i)Ifj<=(n6(i-1)+weft(i))Thenb(1,j)=0Elseb(1,j)=1EndIfNextjNextiReDimbb(1Ton5)'判斷向量Fori=1Ton5bb(i)=b(1,n5-i+1)Nexti'根據(jù)判斷向量依次產生其他經紗Forj=2Ton5Ifbb(j)=1ThenFori=1Ton5b(j,i)=b(1,i)NextiElseFori=1Ton5b(j,i)=Abs(1-b(1,i))NextiEndIfNextjFori=1Ton1Forj=1Ton1Fork=1Ton5Forl=1Ton5a((i-1)*n5+k,(j-1)*n5+l)=b(k,l)NextlNextkNextjNextI剩下部分為繪圖部分，和前面一致。Endsub5、復合斜紋窗體設計1個picturebox1個frame內含：3個text控件；1個label控件；2個單選按鈕；1個水平線2個commandbutton控件屬性修改參考右圖代碼編寫：通用模塊：Dimi,jAsInteger'申明變量i，j為整形變量，用來作為循環(huán)變量Dimx,y,w,hAsSingle'申明單精度實型x,y為坐標，w，h為單元格尺寸Dimn,n1,n4,n5AsInteger'申明整形變量，其中n1為循環(huán)次數(shù)；n4表示分子分母對數(shù)；n5表示完全組織循環(huán)數(shù)；n為循環(huán)后經緯紗數(shù)Dimn2,n3AsString'申明字符串變量n2表示經浮點字符串；n3表示緯浮點字符串DimsAsInteger'申明整型變量s，飛數(shù)Dimwarp()AsInteger'申明動態(tài)整型數(shù)組warp，經浮點數(shù)組Dimweft()AsInteger'申明動態(tài)整型數(shù)組weft，緯浮點數(shù)組Dimtemp()AsInteger'申明動態(tài)整型數(shù)組temp，臨時存放數(shù)組Dima()AsInteger'申明動態(tài)整型數(shù)組a，循環(huán)后數(shù)組Dimbase()AsInteger'申明動態(tài)整型數(shù)組base，基礎復合斜紋數(shù)組Dimn6()AsInteger'申明動態(tài)整型數(shù)組temp，臨時存放數(shù)組繪圖按鈕：PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Text3.Text)'循環(huán)次數(shù)n2=Text1.Text'分子字符串賦給n2n3=Text2.Text'分母字符串賦給n3n4=Len(n2)'分子、分母對數(shù)ReDimwarp(1Ton4)AsIntegerReDimweft(1Ton4)AsIntegerReDimtemp(1Ton4)AsIntegern5=0Fori=1Ton4warp(i)=Val(Mid(n2,n4-i+1,1))'將字符串n2逐個字符轉為數(shù)值并存入經浮點數(shù)組weft(i)=Val(Mid(n3,n4-i+1,1))'將字符串n3逐個字符轉為數(shù)值并存入緯浮點數(shù)組temp(i)=warp(i)+weft(i)'建立每次經緯交織的經緯浮長總數(shù)n5=n5+temp(i)'獲取完全組織循環(huán)數(shù)Nextin=n1*n5'獲取循環(huán)后組織圖行列w=Picture1.Width/n'組織點寬h=Picture1.Height/n'組織點高s=1'飛數(shù)ReDima(1Ton,1Ton)AsInteger'定義組織圖矩陣ReDimbase(1Ton5,1Ton5)AsInteger'定義完全組織矩陣ReDimn6(0Ton4)AsIntegern6(0)=0Fori=1Ton4n6(i)=n6(i-1)+temp(i)NextIIfOption2.Value=TrueThen'右斜Fori=1Ton4Forj=(1+n6(i-1))Ton6(i)Ifj<=(n6(i-1)+weft(i))Then'基礎組織首列賦值base(1,j)=0Elsebase(1,j)=1EndIfNextjNextiForj=2Ton5'基礎組織其余列賦值Fori=1Ton5Ifi+s<=n5Thenbase(j,i)=base(j-1,i+s)Elsebase(j,i)=base(j-1,(i+s)Modn5)EndIfNextiNextjEndIfIfOption1.Value=TrueThen'左斜Fori=1Ton4'基礎組織末列賦值Forj=(1+n6(i-1))Ton6(i)Ifj<=(n6(i-1)+weft(i))Thenbase(n5,j)=0Elsebase(n5,j)=1EndIfNextjNextiForj=(n5-1)To1Step-1'基礎組織其余列賦值Fori=1Ton5Ifi+s<=n5Thenbase(j,i)=base(j+1,i+s)Elsebase(j,i)=base(j+1,(i+s)Modn5)EndIfNextiNextjEndIfFori=1Ton1'根據(jù)循環(huán)次數(shù)將基礎組織base鋪設產生數(shù)組aForj=1Ton1Fork=1Ton5Forl=1Ton5a((i-1)*n5+k,(j-1)*n5+l)=base(k,l)NextlNextkNextjNextiFori=1TonForj=1TonIfa(i,j)=1Then'判斷元素1處繪制實心矩形Picture1.Line(x+(i-1)*w,y+(j-1)*h)-(x+i*w,y+j*h),RGB(0,0,255),BFEndIfNextjNextix=0'組織圖框線y=0Fori=1Ton+1Picture1.Line(x+(i-1)*w,y)-(x+(i-1)*w,y+n*h),RGB(0,0,0),BPicture1.Line(x,y+(i-1)*h)-(x+n*w,y+(i-1)*h),RGB(0,0,0),BNextiEndSub

Command2部分：PrivateSubCommand2_Click()UnloadMe'卸載窗體EndSub六、曲線斜紋窗體設計：1個picturebox；1個frame內含：4個text3個label1水平線2個commondialog控件4個commandbutton控件屬性參考右圖設定模塊文件通用模塊：Dimx,y,w,hAsSingleDimi,jAsIntegerDimn,n1,n4,n5AsInteger'組織圖幅面Dimn2,n3AsString'分子，分母字符串Dimn7AsIntegerDimn8AsInteger'緯紗循環(huán)數(shù)Dimn9AsInteger'經紗循環(huán)數(shù)Dimn10AsInteger'飛數(shù)和DimfeiAsString‘飛數(shù)字符串退出和窗體加載部分和前面一致模塊：（公共數(shù)組a，b，c）Publica()AsIntegerPublicb()AsIntegerPublicc()AsInteger繪圖按鈕：PrivateSubCommand1_Click()Picture1.Cls'清除上次的畫圖Picture1.BackColor=RGB(255,255,255)'設置圖片框背景色白色DrawWidth=1'劃線寬度為1x=0'起點x坐標為0y=0'起點y坐標為0n1=Val(Form1.Text1.Text)'循環(huán)次數(shù)n2=Text2.Text'分子字符串n3=Text3.Text'分母字符串fei=Text4.Textn4=Len(n2)‘分子、分母對數(shù)ReDimwarp(1Ton4)AsIntegerReDimweft(1Ton4)AsIntegerReDimtemp(1Ton4)AsIntegern5=0Fori=1Ton4warp(i)=Val(Mid(n2,n4-i+1,1))'從分子中依次取得經紗浮長weft(i)=Val(Mid(n3,n4-i+1,1))'從分母中依次取得緯紗浮長temp(i)=warp(i)+weft(i)n5=n5+temp(i)'獲取完全組織緯紗循環(huán)數(shù)NextiDims2()AsString'字符串數(shù)組s2=Split(fei,",",-1)'按照","分隔字符串fei,并賦給下標0開始的字符串數(shù)組s2n9=UBound(s2)+1'得到字符串數(shù)組最大下標并+1，得到字符串數(shù)組個數(shù)n9ReDims(1Ton9,1)AsInteger'飛數(shù)數(shù)值數(shù)組Fori=1Ton9s(i,1)=Val(s2(i-1))'將字符串數(shù)組s2各元素，轉換為數(shù)值，賦值給數(shù)組sNextin10=0Fori=1Ton9n10=n10+s(i,1)NextiIf(n10Modn5=0)Thenn=n1*n9'獲取組織圖幅面w=Picture1.Widthh=Picture1.HeightPicture1.ScaleHeight=h'定義圖片框內部大小Picture1.ScaleWidth=ww=w/n'定義組織點尺寸h=h/nReDimn6(0Ton4)AsIntegern6(0)=0Fori=1Ton4n6(i)=n6(i-1)+temp(i)NextiReDima(1Ton,1Ton)AsInteger'定義組織矩陣ReDimb(1Ton9,1Ton5)AsInteger'完全組織矩陣Fori=1Ton4Forj=(1+n6(i-1))Ton6(i)Ifj<=(n6(i-1)+weft(i))Thenb(1,j)=0Elseb(1,j)=1EndIfNextjNextIForj=2Ton9Fori=1Ton5Ifi+s(j-1,1)<=n5Andi+s(j-1,1)>0Thenb(j,i)=b(j-1,i+s(j-1,1))ElseIfi+s(j-1,1)<=0Thenb(j,i)=b(j-1,n5-(Abs(i+s(j-1,1))Modn5))ElseIfi+s(j-1,1)>n5Thenb(j,i)=b(j-1,(i+s(j-1,1))Modn5)EndIfEndIfEndIfNextiNextj根據(jù)交織規(guī)律產生第1列經紗根據(jù)飛數(shù)產生其余各列經紗Fori=1Ton1Forj=1Ton/n5Fork=1Ton9Forl=1Ton5a((i-1)*n9+k,(j-1)*n5+l)=b(k,l)NextlNextkNextjNextI繪圖和前面一致ElseMsgBox"飛數(shù)和與完全組織緯紗數(shù)不成倍數(shù)關系，請調整",0,"錯誤"EndIfEndSub數(shù)據(jù)保存按鈕：PrivateSubCommand3_Click()DimintfileAsIntegerDimstrfilenameAsStringOnErrorGoTo100WithCommonDialog1.Filter="所有文件|*.*|文本文件|*.txt"'文件過濾器，選擇txt文件.FilterIndex=2'文本文件缺省索引值為2.DefaultExt="TXT"'缺省的文本文件擴展名TXT.Flags=cd