‘壹’ 濡备綍鍦ㄧ数鑴戜笂瀹炵幇浠ｇ爜闆锛
cmd浠ｇ爜鏁板瓧闆ㄩ渶瑕佸缓涓涓鏂囦欢锛屽湪鏂囦欢鍐呭啓鍏ョ浉搴旂殑浠ｇ爜锛屼缭瀛桦悗锛岀偣鍑昏繍琛屽氨鍙浠ュ湪鐢佃剳灞忓箷涓婂嚭鐜颁唬镰侀洦锛屽叿浣撴柟娉曞备笅锛
宸ュ叿锛氭埓灏擪550銆乧md浠ｇ爜銆乄in11銆
1銆佺数鑴戠敤鎴峰湪镊宸辩殑鐢佃剳妗岄溃涓婂垱寤轰竴涓鏂囨湰鏂囦欢銆傚垱寤轰互钖庢墦寮銆
‘贰’ 濡备綍鐢ㄨ颁簨链缂栫▼
銆銆璺熸垜瀛﹀仛璁颁簨链-缂栫▼瀹炰緥
銆銆鐢╒B锅氢竴涓璁颁簨链瀹炲湪涓嶅緢澶嶆潅锛屾垜浠瀹屽叏鍙浠ラ氲繃钖戝兼潵寰堟柟渚垮湴锅氩嚭𨱒ャ备絾链鏂囧彧镓撶畻璁ㄨ虹敤镓嫔姩鏂规硶鍒朵綔璁颁簨链锛屾棬鍦ㄥ悜VB鍒濆﹁呭𪾢绀猴细瀛VB铡熸潵鏄濡傛ゅ规槗锛
銆銆阃氲繃阒呰汇佺爷绌舵湰鏂囧苟鎸夋湰鏂囨墍杩拌繘琛屽皾璇曪纴鍒濆﹁呭皢瀛﹀埌寰埚氢笢瑗,濡傛庢牱浣跨敤RichText鎺т欢𨱒ユ墦寮鍜屼缭瀛樻枃浠讹纴镐庢牱鍒朵綔凿滃崟銆佸伐鍏锋爮鍜岀姸镐佹爮浠ュ强濡备綍瀵瑰叾缂栧啓浠ｇ爜绛夈
銆銆绗涓绔 璁╂垜浠镄勮颁簨链椹涓婅繍琛
銆銆镐ヤ簬姹傛垚鏄鍒濆﹁呭叡链夌殑蹇冩効銆傞偅濂斤纴璇锋寜濡备笅涓変釜姝ラゅ仛锛屾垜浠镄勬効链涚珛鍗冲氨鍙浠ュ疄鐜帮紒
銆銆姝ラや竴锛氱粯鍒剁晫闱銆
銆銆鏂板缓涓涓镙囧嗳EXE宸ョ▼锛屽皢鍏禖aption灞炴ф敼涓衡滆秴绾ц颁簨链钬濓纴镣瑰嚮Icon灞炴х粰瀹冩垒涓钖堥傜殑Icon锲炬爣銆傚崟鍑昏彍鍗曗滃伐绋嬧-钬滈儴浠垛濓纴鍦ㄥ脊鍑虹殑钬滈儴浠垛濆硅瘽妗嗛噷镓惧埌Microsoft
銆銆RichText Box 6.0鍜屽叕鍏卞硅瘽妗哅icrosoft Common Dialog 6.0骞堕変腑瀹冧滑锛屽崟鍑烩灭‘瀹气濇寜阍銆傝繖镞跺乏杈圭殑宸ュ叿镙忎笂鍑虹幇浜嗘垜浠鍒氭墠鏂版坊镄勪袱涓鎺т欢浜嗐傚湪绐椾綋涓婄粯鍒禦ichText
銆銆Box鍜孋ommn Dialog锛屽叾涓璕ichText Box镄勫ぇ灏忓拰浣岖疆鍙涓岖敤鐞嗙涠锛屾垜浠灏嗗湪浠ｇ爜涓澶勭悊瀹冿纴褰撶劧锛屾湁蹇呰佹妸瀹幂殑ScrollBar灞炴ц句负2-rtfVertical锛岃繖镙峰湪镓揿紑鍜岀紪杈戞枃浠舵椂鍨傜洿婊氩姩𨱒℃墠鍙鐢ㄣ
銆銆姝ラや簩锛氱紪杈戣彍鍗曘
銆銆鎸塁trl+E璋冨嚭凿滃崟缂栬緫鍣锛屾垜浠𨱒ュ仛濡备笅鍑犱釜凿滃崟锛
銆銆涓.鏂囦欢凿滃崟锛
銆銆鏂囦欢锛堢涓灞傦级 mnuFile
銆銆鏂板缓锛堢浜屽眰锛 mnuNew
銆銆镓揿紑锛堢浜屽眰锛 mnuOpen
銆銆淇濆瓨锛堢浜屽眰锛 mnuSave
銆銆- 锛堢浜屽眰锛 mnuFileSep (鍒嗛殧绾匡级
銆銆阃鍑猴纸绗浜屽眰锛 mnuExit
銆銆浜.缂栬緫凿滃崟锛
銆銆缂栬緫锛堢涓灞傦级 mnuEdit
銆銆澶嶅埗锛堢浜屽眰锛 mnuCopy
銆銆鍓鍒囷纸绗浜屽眰锛 mnuCut
銆銆绮樿创锛堢浜屽眰锛 mnuPaste
銆銆- 锛堢浜屽眰锛 mnuEditSep 锛埚垎闅旂嚎锛
銆銆鍏ㄩ夛纸绗浜屽眰锛 mnuSelecAll
銆銆涓.鎼灭储凿滃崟锛
銆銆鎼灭储锛堢涓灞傦级 mnuSearch
銆銆镆ユ垒锛堢浜屽眰锛 mnuFind
銆銆镆ユ垒涓嬩竴涓锛堢浜屽眰锛 mnuFindOn
銆銆锲.甯锷╄彍鍗曪细
銆銆甯锷╋纸绗涓灞傦级 mnuHelp
銆銆浣跨敤璇存槑锛堢浜屽眰锛 mnuUsage
銆銆鍏充簬锛堢浜屽眰锛 mnuAbout
銆銆(娉锛氩悇凿滃崟椤圭殑蹇鎹烽敭璇疯嚜琛岃剧疆)
銆銆濂戒简锛屽叾瀹幂殑凿滃崟椤逛互钖庡啀镙规嵁闇瑕佹坊锷犮傜幇鍦ㄨ繘鍏ワ细
銆銆姝ラや笁锛氱紪鍐欎唬镰併
銆銆'澹版槑镆ユ垒鍙橀噺
銆銆Dim sFind As String
銆銆'澹版槑鏂囦欢绫诲瀷
銆銆Dim FileType, FiType As String
銆銆'鍒濆嫔寲绋嫔簭
銆銆Private Sub Form_Load()
銆銆'璁剧疆绋嫔簭钖锷ㄦ椂镄勫ぇ灏
銆銆Me.Height = 6000
銆銆Me.Width = 9000
銆銆End Sub
銆銆'璁剧疆缂栬緫妗嗙殑浣岖疆鍜屽ぇ灏
銆銆Private Sub Form_Resize()
銆銆On Error Resume Next '鍑洪敊澶勭悊
銆銆RichTextBox1.Top=20
銆銆RichTextBox1.Left=20
銆銆RichTextBox1.Height = ScaleHeight-40
銆銆RichTextBox1.Width = ScaleWidth-40
銆銆End Sub
銆銆'鏂板缓鏂囦欢
銆銆Private Sub mnuNew_Click()
銆銆RichTextBox1.Text = "" '娓呯┖鏂囨湰妗
銆銆FileName = "链锻藉悕"
銆銆Me.Caption = FileName
銆銆End Sub
銆銆'镓揿紑鏂囦欢
銆銆Private Sub mnuOpen_Click()
銆銆CommonDialog1.Filter = "鏂囨湰鏂囨。(*.txt)|*.txt|RTF鏂囨。(*.rtf)|*.rtf|镓链夋枃浠(*.*)|*.*"
銆銆CommonDialog1.ShowOpen
銆銆RichTextBox1.Text = "" '娓呯┖鏂囨湰妗
銆銆FileName = CommonDialog1.FileName
銆銆RichTextBox1.LoadFile FileName
銆銆Me.Caption = "瓒呯骇璁颁簨链锛" & FileName
銆銆End Sub
銆銆'淇濆瓨鏂囦欢
銆銆Private Sub mnuSave_Click()
銆銆CommonDialog1.Filter = "鏂囨湰鏂囨。(*.txt)|*.txt|RTF鏂囨。(*.rtf)|*.rtf|镓链夋枃浠(*.*)|*.*"
銆銆CommonDialog1.ShowSave
銆銆FileType = CommonDialog1.FileTitle
銆銆FiType = LCase(Right(FileType, 3))
銆銆FileName = CommonDialog1.FileName
銆銆Select Case FiType
銆銆Case "txt"
銆銆RichTextBox1.SaveFile FileName, rtfText
銆銆Case "rtf"
銆銆RichTextBox1.SaveFile FileName, rtfRTF
銆銆Case "*.*"
銆銆RichTextBox1.SaveFile FileName
銆銆End Select
銆銆Me.Caption = "瓒呯骇璁颁簨链锛" & FileName
銆銆End Sub
銆銆'阃鍑
銆銆Private Sub mnuExit_Click()
銆銆End
銆銆End Sub
銆銆'澶嶅埗
銆銆Private Sub mnuCopy_Click()
銆銆Clipboard.Clear
銆銆Clipboard.SetText RichTextBox1.SelText
銆銆End Sub
銆銆'鍓鍒
銆銆Private Sub mnuCut_Click()
銆銆Clipboard.Clear
銆銆Clipboard.SetText RichTextBox1.SelText
銆銆RichTextBox1.SelText = ""
銆銆End Sub
銆銆'鍏ㄩ
銆銆Private Sub mnuSelectAll_Click()
銆銆RichTextBox1.SelStart = 0
銆銆RichTextBox1.SelLength = Len(RichTextBox1.Text)
銆銆End Sub
銆銆'绮樿创
銆銆Private Sub mnuPaste_Click()
銆銆RichTextBox1.SelText = Clipboard.GetText
銆銆End Sub
銆銆'镆ユ垒
銆銆Private Sub mnuFind_Click()
銆銆sFind = InputBox("璇疯緭鍏ヨ佹煡镓剧殑瀛椼佽瘝锛", "镆ユ垒鍐呭",
銆銆sFind)
銆銆RichTextBox1.Find sFind
銆銆End Sub
銆銆'缁х画镆ユ垒
銆銆Private Sub mnuFindOn_Click()
銆銆RichTextBox1.SelStart = RichTextBox1.SelStart + RichTextBox1.SelLength + 1
銆銆RichTextBox1.Find sFind, , Len(RichTextBox1)
銆銆End Sub
銆銆'浣跨敤璇存槑
銆銆Private Sub mnuReadme_Click()
銆銆On Error GoTo handler
銆銆RichTextBox1.LoadFile "Readme.txt", rtfText '璇峰啓濂絉eadme.txt鏂囦欢骞跺瓨鍏ョ▼搴忔墍鍦ㄦ枃浠跺す涓
銆銆Me.Caption = "瓒呯骇璁颁簨链锛" & "浣跨敤璇存槑"
銆銆Exit Sub
銆銆handler:
銆銆MsgBox "浣跨敤璇存槑鏂囨。鍙鑳藉凡缁忚绉婚櫎锛岃蜂笌浣滆呰仈绯汇",
銆銆vbOKOnly, " 阌栾淇℃伅"
銆銆End Sub
銆銆'鍏充簬
銆銆Private Sub mnuAbout_Click()
銆銆MsgBox "瓒呯骇璁颁簨链 Ver1.0 鐗堟潈镓链(C) 2001 鍦熶汉",vbOKOnly,"鍏充簬"
銆銆End Sub
銆銆'璁剧疆寮瑰嚭寮忚彍鍗曪纸鍗冲湪缂栬緫妗嗕腑鍗曞嚮榧犳爣鍙抽敭镞跺脊鍑虹殑锷ㄦ佽彍鍗曪级
銆銆Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, X As
銆銆Single, Y As Single)
銆銆If Button = 2 Then
銆銆PopupMenu mnuEdit, vbPopupMenuLeftAlign
銆銆Else
銆銆Exit Sub
銆銆End If
銆銆End Sub
銆銆'阒叉㈠湪鍒囨崲杈揿叆娉曟椂瀛椾綋镊鍙(镒熻阿鐜嫔繀鎴愬厛鐢熸彁渚涙ゆ柟妗)
銆銆Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)
銆銆If KeyCode = vbKeySpace Then
銆銆RichTextBox1.SelFontName = CommonDialog1.FontName
銆銆End If
銆銆End Sub
銆銆镊虫わ纴鎴戜滑镄勮颁簨链鍙浠ョ紪璇戜娇鐢ㄤ简銆傜偣鍑昏彍鍗曗沧枃浠垛-钬灭敓鎴怷XX.EXE钬濓纴锲炲埌妗岄溃杩愯屾垜浠镄勮颁簨链鐪嬬湅锛屾槸涓嶆槸棰囨湁鎴愬氨镒燂纻
銆銆褰撶劧锛岃繖镙风殑璁颁簨链杩樻瘆杈幂矖绯,鎴戜滑杩橀渶瑕佸仛浜涘伐浣滐纴璇风湅涓嬩竴绔犮
銆銆绗浜岀珷 缇庡寲绋嫔簭鐣岄溃
銆銆澶氭暟瀛楀勭悊杞浠堕兘链夊伐鍏锋爮鍜岀姸镐佹爮銆傚伐鍏锋爮鍜岀姸镐佹爮闄や简鑳界编鍖栨垜浠镄勭▼搴忎娇鍏舵洿鍏锋湁涓扑笟镐ц川澶栵纴杩樼粰鐢ㄦ埛甯︽潵镎崭綔涓婄殑渚垮埄銆傜幇鍦ㄦ垜浠灏辨潵锅氢竴锅氲繖涓ゆ牱涓滆タ銆
銆銆涓.宸ュ叿镙
銆銆(涓)鍒朵綔宸ュ叿镙
銆銆鍗曞嚮钬滃伐绋嬧-钬滈儴浠垛濓纴阃変腑Microsoft Windows Common Control 6.0骞剁‘瀹氥傝繖镞讹纴鎴戜滑瑕佺敤鍒扮殑鎺т欢灏卞嚭鐜板湪宸﹁竟镄勫伐鍏锋爮涓娄简銆
銆銆瑕佸仛宸ュ叿镙忥纴棣栧厛闇瑕佷竴涓鍙献mageList镄勬带浠舵潵瑁呰浇锲惧儚銆傚湪绋嫔簭鐣岄溃涓婃坊锷犲畠锛岀劧钖庡彸阌鍗曞嚮姝ゆ带浠讹纴宸﹂敭鍗曞嚮钬滃睘镐р濓纴寮瑰嚭钬滃睘镐ч〉钬濆硅瘽妗嗙殑钬滃浘镀忊濓纴鍐嶅崟鍑烩沧彃鍏ュ浘鐗団濆氨鍙浠ヤ竴娆℃ц呰浇锲剧墖浜嗭纸濡备笉婊℃剰锛屼互钖庤缮鍙浠ユ坊锷狅级銆傚浘鐗囧彲鍦–:Microsoft
銆銆Visual _W95涓嬮夋嫨(杩欓噷锅囱句綘镄刅B瀹夎呭湪C鐩树笅)銆傛敞镒忎简锛氩湪鎻掑叆锲剧墖镞剁粰姣忎竴寮犲浘鐗囨敞鏄庡叧阌瀛楋纴浠ヤ究鍦ㄥ紩鐢ㄥ浘鐗囨椂涓嶈呖浜庢贩涔便傚傛彃鍏モ沧柊寤衡濈殑锲剧墖锛屾垜浠鍦ㄢ滃叧阌瀛椻濇爮娉ㄦ槑钬淣ew钬濄
銆銆锲剧墖链変简锛屾帴涓嬫潵鍦ㄧ▼搴忕晫闱㈡坊锷犲伐鍏锋爮(ToolBar)銆傛坊锷犲悗宸ュ叿镙忓氨鍑虹幇鍦ㄨ彍鍗曚笅闱锛屽彸阌鍗曞嚮瀹冿纴阃夋嫨钬滃睘镐р濓纴鍦ㄥ脊鍑虹殑钬滃睘镐ч〉钬濆硅瘽妗嗕腑镄勨滈氱敤钬濋”浣滀簺璁剧疆锛屼富瑕佸备笅涓ら”锛
銆銆1.钬滃浘镀忓垪琛ㄢ濓细阃夋嫨ImageList1
銆銆2.钬沧牱寮忊濓细镙规嵁锽灭埍阃夋嫨1-trbStandard鎴栬2-trbFlat
銆銆缁х画镣瑰嚮钬滃睘镐ч〉钬濈殑钬沧寜阍钬濋夐”锛屾彃鍏ヨ嫢骞叉寜阍銆傛寜阍链夊氱嶆牱寮忥纴璇锋牴鎹闇瑕佽剧疆銆傝繖閲岃蜂竴瀹氭敞镒忥细姣忎竴涓涓庣敤鎴锋搷浣沧湁鍏崇殑鎸夐挳閮藉繀椤绘敞鏄庡叧阌瀛椼佽呰浇锲剧墖锛屽傗沧柊寤衡濇寜阍锛屽湪钬滃叧阌瀛椻濋”娉ㄦ槑钬沧柊寤衡濓纴鍦ㄢ滃浘镀忊濋”阌鍏モ淣ew钬濓纸鍗矷mageList1涓镄勫浘鐗囧叧阌瀛楋级,闇瑕佺殑璇濊缮鍙浠ュ湪钬滃伐鍏锋彁绀烘枃链钬濋”濉鍏ラ傚綋镄勬彁绀鸿銆
銆銆(浜)缂栧啓宸ュ叿镙忕殑鎸夐挳浠ｇ爜
銆銆宸ュ叿镙忔寜阍镄勪唬镰佺紪杈戝緢绠鍗曪纴鍙浠ユ寜镦т笅闱㈢殑镙煎纺铡荤紪鍐欙细
銆銆Private Sub ToolBar1_ButtonClick(ByVal Button As MSComctlLib.Button)
銆銆On Error Resume Next '鍑洪敊澶勭悊
銆銆Select Case Button.Key '鎸夊叧阌瀛楅夋嫨
銆銆Case "鏂板缓"
銆銆mnuNew_Click '绛変簬凿滃崟椤光沧柊寤衡濊鍗曞嚮
銆銆Case "镓揿紑" '绛変簬凿滃崟椤光沧墦寮钬濊鍗曞嚮
銆銆mnuOpen_Click
銆銆'......(缁х画缂栧啓鍏跺畠鎸夐挳镄勪唬镰)
銆銆End Select
銆銆End Sub
銆銆瀹屾垚钖庤瘯杩愯屼竴涓嬫垜浠镄勭▼搴忥纴鎴戜滑鍙戠幇锛屾湁浜嗗伐鍏锋爮涔嫔悗锛岀▼搴忓彉寰楁纾浜澶氢简锛屽彧鏄链変竴涓闂棰桡细镓揿紑涓涓杈冮暱镄勬枃妗ｅ悗锛岀紪杈戞嗙殑涓嬫媺婊氩姩𨱒″悜涓婄殑绠澶翠笉瑙佷简銆傚师锲犳槸锛氩伐鍏锋浔鍗犵敤涓瀹氱殑绌洪棿銆傝В鍐虫柟娉曪细灏嗏滆剧疆缂栬緫妗嗙殑浣岖疆鍜屽ぇ灏忊濅腑镄凴ichTextBox1.Top
銆銆= 20 鍜 RichTextBox1.Height = Me.ScaleHeight - 40鍒嗗埆鏀逛负RichTextBox1.Top =
銆銆380锛孯ichTextBox1.Height = Me.ScaleHeight - 400鍗冲彲銆
銆銆浜.鐘舵佹爮
銆銆(涓)鍒朵綔鐘舵佹爮
銆銆鐘舵佹爮镄勮嫳鏂囧悕瀛楀彨StatusBar锛屽湪绐椾綋涓婃坊锷犲畠钖庝细榛樿ゅ嚭鐜板湪绐椾綋镄勬渶涓嬫柟銆傜敤榧犳爣鍙抽敭镣瑰嚮瀹冿纴璋冨嚭钬滃睘镐ч〉钬濆硅瘽妗嗭纴鍗曞嚮钬灭獥镙尖濋”锛屾彃鍏ヤ竴浜涚獥镙硷纴鍙浠ュ皢钖勪釜绐楁牸镄勨沧牱寮忊濊剧疆涓猴细
銆銆0-sbrText 鏄剧ず鏂囨湰锛岄渶缂栧啓浠ｇ爜
銆銆1-sbrCaps 鏄剧ず澶у皬鍐欑姸镐侊纴镞犻渶缂栫▼
銆銆2-sbrNum 鏄剧ずNumLock阌寮鍏崇姸镐侊纴镞犻渶缂栫▼
銆銆3-sbrIns 鏄剧ずInsert阌鐘舵侊纴镞犻渶缂栫▼
銆銆4-sbrScr1
銆銆5-sbrTime 鏄剧ず镞堕棿锛屼笉缂栫▼镞舵椂闂翠笉浼氶殢绯荤粺镞堕挓鍙桦寲
銆銆6-sbrDate 鏄剧ず镞ユ湡锛屾棤闇缂栫▼
銆銆娉ㄦ剰锛氩姞杩涚姸镐佹爮钖庨渶灏咶orm_Resze涓镄凴ichTextBox1.Height =
銆銆Me.ScaleHeight - 400鏀逛负RichTextBox1.Height = Me.ScaleHeight - 600銆
銆銆(浜)鐘舵佹爮镙规嵁鍏垛沧牱寮忊濆睘镐у喅瀹氱敤涓岖敤缂栧啓浠ｇ爜(濡备笂鏂囨墍杩)銆备笅闱涓句簺渚嫔瓙锛岃昏呭彲浠ヨょ湡鎻ｆ恳锛屼粠钥岃揪鍒颁妇涓鍙崭笁镄勬晥鏋溿
銆銆渚嬩竴锛氱敤鎴烽夊彇浜嗏沧柊寤衡濆悗锛岃╃涓涓绐楁牸鏄剧ず锛气灭洰鍓岖姸镐侊细姝ｅ湪镓揿紑鏂囦欢銆娾︹︺嬧濄傝峰皢涓嬮溃浠ｇ爜鍐栾繘钬沧墦寮钬濊彍鍗曢噷闱锛
銆銆StatusBar1.Panels(1).Text = "鐩鍓岖姸镐侊细姝ｅ湪镓揿紑鏂囦欢"
銆銆& "銆" &CommonDialog1.FileTitle & "銆"
銆銆渚嬩簩锛氲╃涓変釜绐楁牸鏄剧ず镞堕棿骞惰╂椂闂磋窡闅忕郴缁熸椂阍熷彉鍖栥
銆銆棣栧厛锛岀粰绋嫔簭锷犱竴涓猅imer鎺т欢锛屽皢鍏禝nterval灞炴ц句负1000銆傜劧钖庯细
銆銆鍦‵orm_Load杩囩▼锷犲叆锛歋tatusBar1.Panels(1).Text = Time锛涚劧钖庣粰Timer鎺т欢缂栧啓浠ｇ爜锛
銆銆Private Sub Timer1_Timer()
銆銆If StatusBar1.Panels(3).Text <> CStr(Time) Then
銆銆StatusBar1.Panels(3).Text = Time
銆銆End If
銆銆End Sub
銆銆渚嬩笁锛氩綋缂栬緫妗嗙殑鏂囨湰鍙戠敓鍙桦寲镞惰╃涓涓绐楁牸鏄剧ず锛气沧ｅ湪缂栬緫鏂囨。锛氭枃浠跺悕钬濄
銆銆Private Sub RichTextBox1_Chang()
銆銆StatusBar1.Panels(1).Text = "姝ｅ湪缂栬緫鏂囨。锛" &
銆銆CommonDialog1.FileName
銆銆End Sub
銆銆杈涜嫤浜嗛偅涔堜箙锛屾垜浠鐜板湪宸茬粡𨰾ユ湁涓涓璞℃ā璞℃牱镄勮颁簨链浜嗐傝繖涓璁颁簨链鐢变簬鐢ㄤ简RichText鎺т欢锛岀悊璁轰笂瀹冭兘镓揿紑鍜岀紪杈戜换镒忓ぇ镄勬枃妗ｏ纴浣跨敤璧锋潵镄勭‘姣擶indows镊甯︾殑璁颁簨链鏂逛究寰楀氥傚綋铹讹纴杩樻湁涓浜涘叾瀹幂殑锷熻兘闇瑕佹坊锷犲拰瀹屽杽锛岃繖灏遍潬浣犳参鎱㈠幓瀹屾垚浜嗐
‘叁’ 镐庝箞鍦ㄧ数鑴戞岄溃涓婃坊锷犱竴涓猦tml浠ｇ爜锛
1銆佸湪鐢佃剳妗岄溃鍒涘缓涓涓绌虹槠鏂囨湰鏂囦欢锛
