    VBд±           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  VBд±     VBд± ڣ2008624 ߣ 鿴:[     С ]       
VBһ±ʵڲܸӣȫֶֻܷͨ±ּVBѧչʾѧVBԭף 
ͨĶоĲгԣѧ߽ѧܶණ,ʹRichTextؼ򿪺ͱļ˵״̬Լζдȡ 

һ ǵļ± 

ǳѧ߹еԸǺã밴ǵԸͿʵ֣ 

һƽ档 
½һ׼EXẸCaptionԸΪ±IconԸҸʵIconͼꡣ˵̡-ڵġԻҵMicrosoft RichText Box 6.0͹ԻMicrosoft Common Dialog 6.0ѡǣȷťʱߵĹϳǸղؼˡڴϻRichText BoxCommn DialogRichText BoxĴСλÿɲǣǽڴдȻбҪScrollBarΪ2-rtfVerticalڴ򿪺ͱ༭ļʱֱſá 

༭˵ 
Ctrl+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)*.txtRTFĵ(*.rtf)*.rtfļ(*.*)*.*" 
CommonDialog1.ShowOpen 
 [1]   [2]   [3]   [4]   һҳ      Ʊҳַͱ⣬͸QQ/Msnĺһ 
 
   VBд± £   VBѧ±ܼӴ   VBд±   Javaдļ±1   Ҽ½±ʧ   û СС±üQQ   ֱ˫ü±δ֪ļ   ΪʲôµVista2G,ȴһ±?   ±Atnotes   ɱС±ؼ   java±򣬲  VBд±    BDV Notepad[BDV±] V5.1    ذ  
һƪ: VBԼSQL  
һƪ: VBVCDķ뼼  رվرֹתصר¿תأעԭʼ  .°Ȩԭʼ.ڱվתµĸ˺վǱʾл⡣վת  صаȨϵ༭Ա,ǾԸ. תעԴhttp://www.hackhome.com     ƷƼ  
 ȵTOP10    VB+Accessͼϵͳ    VBʱͱܵ    ͨſؼMSCommʹ    VBʹEXCEL    ؼС洰С仯仯    FindWindow    VBѧ±ܼӴ    ߶ʾؼӦ    180VBͼνԴʵ    VBݿԴ60ʵ    VBؼĿ¼ļ    CreateFile    VBʹDirectXļ̳    VB6.0дԼMP3    ļ༭    VB쳬Ի˵    VBд±    Ĵ    ھڷϢ    VB6DataGridʵͨõӱ     رƼ    Ĵ    VB6.0дԼMP3    ǳVB.Net Windows Form    ׹Ʊ˰ʼ    VisualBasic 6еĺִ    Զȡû½ƣٽ֤    APIָĿ¼ļ    VBݿԴ60ʵ    VBIEԶ尴ť    VBMS OfficeCOM    Visual Basicװ    WebComputingADOܽᱨ    vsprintӡʵ    VBʵһ򵥵ESMTPͻ    webbrowser 2ղأ    SetForegroundWindow    API޸עģ    VB쳬Ի˵    WINDOWSϢ˵    ؼС洰С仯仯         | () | Ȩ |  | Ϣ   Copyright 2003-2007  All Rights Reserved.  ICP05018371       