记事本虽然是简单的程序,要做得强大也不容易。今天给MyNotepad加上了自动保存功能,每隔0.5秒保存一次,这样就不怕电脑突然断电了,这项功能算是画上了一个句号。自动保存在保存一次后生效(要有文件名),以下是MyNotepad记事本的部分截图,程序下载MyNotepad.rar,有兴趣的朋友可以用一下。
完整截图:http://www.spersky.com/post/84.html
自动保存的方法之一是用Timer每隔一段时间执行保存命令,这个方法在VB6.0可以轻易的实现,但在VB2008,执行保存的时候会使输入法失去焦点而影响文字输入,为些我在Timer中加入了判断语句:
If totaltext1 = totaltext2 Then Exit Sub ’就是说当文本没改变时退出过程,这样也就没有执行保存命令了
totaltext1 可看做是之前的文本,比如你点了一下保存,就把文本框中的文本赋值给totaltext1,而当文本框文字发生改变时,把新的文本赋值给totaltext2,两者的值是否相等决定要不要执行保存命令。