    VBд±           ҳ  ѧԺ       缼  ͼͼ  ϵͳ  ָ    칫  ý嶯  վӪ  ֤  ҳ    web    Ϸ  QQ      ǰλã   򿪷  VB  VBд±     VBд± ڣ2008624 ߣ 鿴:[     С ]       RichTextBox1.Text = "" 'ı 
FileName = CommonDialog1.FileName 
RichTextBox1.LoadFile FileName 
Me.Caption = "±" &amp; FileName 
End Sub 

'ļ 
Private Sub mnuSave_Click() 
CommonDialog1.Filter = "ıĵ(*.txt)*.txtRTFĵ(*.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 = "±" &amp; 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 'дReadme.txtļļ 
Me.Caption = "±" &amp; "ʹ˵" 
Exit Sub 
handler: 
MsgBox "ʹ˵ĵѾƳϵ", vbOKOnly, " Ϣ" 
End Sub 

' 
 һҳ   [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       