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

www.zzzyk.com 红色黑客联盟收集整理

内容：讨论如何在用VB编写的记事中实现自动将日志添加到文档尾部、判断保存还是另存为、确认文件是否需要保存等功能。

Windows自带的记事本即Notepad有一些功能还是颇具吸引力的，比如自动在特定的文档尾部加入计算机时钟的时间和日期，截取已经打开或者保存了的纯文档名[见记事本的标题栏]以及搜索等，给用户带来许多方便。本文就TextBox控件讨论如何实现这些功能。

一、将日志添加到文档

在Windows中，如果文档的第一行最左边有".LOG"字样，那么每次用记事本打开此文时，记事本会自动在文档尾部加入时间日期。
".LOG"共占四个字节，又置于文档第一行顶格处，因此可以用VB的Left函数来读取这个字符串，如有，则用CStr函数来自动添加时间和日期。
我们可以在打开文件的程序加入以下代码：

DimaAsString
a=Left(Text1.Text,4)取得头4个字节
Ifa=".LOG"Then若有则：
Text1.SelStart=Len(Text1.Text)光标移到文件尾
Text1.SelText=vbCrLf&CStr(Now)加入换行和时间
Else若无，退出过程
ExitSub
EndIf

这样，我们用VB编写的记事本就和Windows的Notepad一样具有自动将日志添加到文档的功能了。

补充：软件开发 , Vb ,