『壹』 濡備綍鍦ㄧ數鑴戜笂瀹炵幇浠ｇ爜闆錛
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銆佸湪鐢佃剳妗岄潰鍒涘緩涓涓絀虹櫧鏂囨湰鏂囦歡錛
