用VB实现象Windows记事本的一些功能.docVIP

内容：讨论如何在用VB编写的记事中实现自动将日志添加到文档尾部、判断保存还是另存为、确认文件是否需要保存等功能。Windows自带的记事本即Notepad有一些功能还是颇具吸引力的，比如自动在特定的文档尾部加入计算机时钟的时间和日期，截取已经打开或者保存了的纯文档名[见记事本的标题栏]以及搜索等，给用户带来许多方便。本文就TextBox控件讨论如何实现这些功能。一、将日志添加到文档在Windows中，如果文档的第一行最左边有.LOG字样，那么每次用记事本打开此文时，记事本会自动在文档尾部加入时间日期。.LOG共占四个字节，又置于文档第一行顶格处，因此可以用VB的Left函数来读取这个字符串，如有，则用CStr函数来自动添加时间和日期。我们可以在打开文件的程序加入以下代码：DimaAsStringa=Left(Text1.Text,4)取得头4个字节Ifa=.LOGThen若有则：Text1.SelStart=Len(Text1.Text)光标移到文件尾Text1.SelText=vbCrLfCStr(Now)加入换行和时间Else若无，退出过程ExitSubEndIf这样，我们用VB编写的记事本就和Windows的Notepad一样具有自动将日志添加到文档的功能了。二、截取FileName中的纯文档名如若我们用Notepad打开文件D:\VBFILE\NEW\Textbox控件用法举例.txt，Notepad的标题栏的Caption变为：TextBox控件用法举例-记事本。这个，我们用VB来完成还是比较容易的。为了方便在程序的各处使用，我们不妨编写一个截取字符串的函数：截取纯文栏名函数FunctionGetFileTitle(OldStrAsString)AsStringOnErrorResumeNextDimnAsInteger,mAsInteger声明字符串变量DimiAsString,rAsStringDimpAsIntegeri=\要查找的指定字符Forn=1ToLen(OldStr)用Len函数计算已知字符串的字节数m=InStrRev(OldStr,i,-1)\所在的位置(其中的-1是默认的)Nextn找下去！截取最后一个\后面的字符串r=Right(OldStr,Len(OldStr)-m)获取Titlep=InStrRev(r,.,-1).所在位置GetFileTitle=Left(r,p-1)去掉后缀EndFunction现在我们来调用这个函数以获取纯文档名:DimMyStrAsString,ResultAsStringMyStr=d:\games\6do\oldtucom\heart\Story001.TXTResult=GetFileTitle(MyStr)Me.Caption=Result-记事本执行之，则窗体的标题变为：Story001-记事本，与NotePad的效果无异！三、判断保存还是另存为通常，我们通过使用CommonDialog控件来保存文件，不过，VB的公共对话框提供的ShowSave其实只是SaveAs，如不作处理则在运行程序中每次保存文件都会跳出另存为对话框，为避免这种不便，我们可以声明一个窗体级或模块级的文件名变量[类型：String]，并在每一次相关操作中给此变量赋值且保存于内存之中，然后在保存文件时给予识别，如变量不为空则直接保存文件，否则调出另存为对话框，让用户输入文件名。试看：DimSaveFileNameAsString窗体或模块级变量在打开文件事件加入：SaveFileName=CommonDialog1.FileName保存文件IfSaveFileNameThenOpenSaveFileNameForInputAs#1Print#1,Text1.TextClose#1Else此处写上用公共对话框保存文件的代码EndIf这样，我们的记事本变得象Notepad一样聪明了：那令人讨厌的另存为对话框不会总是弹出来了！四、从“我的电脑”拖动文件并打开当从“我的电脑”拖动文件到Notepad编辑界面，文件格式正确的话则自动打开。在VB中，我们可以这样处理：1.在Form_Load事件中加入：Text1.OLEDropMode=1令Text1成为可接受文件拖放的OLE容器2.采用OLE技术实现拖放并打开功能：当文件拖到文本框PrivateSubText1_OLEDragOver(dataAsDataObject,effectAsLong,_ButtonAsInteger,ShiftAsInteger,XAsSin