VB設計能自動存盤的記事本
我們平時使用的Word、Excel等應用軟件都有自動存盤功能，這樣可以在出現意外情況時把數據的丟失減到最小程度，可是簡陋的記事本就沒有這么幸運了，但我們平時又離不開它。這可怎么辦?沒關系，讓我們用VB來對它進行完善，讓記事本也來個自動保存。
一、設計思路
在VB中有一個SendKeys方法，可以模擬鍵盤發送指令給應用程序只要設定一定的時間間隔，然后按時給記事本發送保存文件的命令就可以達到自動保存的目的了。
二、程序設計
新建一工程在窗體上添加一個時鐘控件，并將屬性INTERVAL的值設置為1000（即1秒），再添加一個Label控件、一個TEXT控件text1和UpDown控件“updown1”，并設置“Updown1”的“autobuddy”屬性為“true”；“buddyproperty”屬性為“Text”；“increment”屬性為“1”；“max”屬性為“20”；“min”屬性為“1”。最后再添加一個按鈕控件command1并設置caption屬性為“開始”。下面就可以雙擊窗體添加如下代碼了：
| Private Declare Function FindWindow Lib ″user32″ Alias ″FindWindowA″ ByVal lpClassName As String ByVal lpWindowName As String As Long Dim i As Integer Private Sub Command1_Click Me.WindowState = 1 Timer1.Enabled = True End Sub Private Sub Form_Load Form1.Caption = ″記事本自動保存″ Text1.Text = ″″ Text1.Text = 1 Shell ″notepad.exe″ vbNormalFocus '打開記事本，并使之成為當前窗口 Timer1.Enabled = True '激活時鐘控件 Form1.WindowState = 0 End Sub Private Sub Timer1_Timer If FindWindow″Notepad″ vbNullString Then Dim b As Integer b = UpDown1.Value i = i + 1 If i Mod b 60 = 0 Then '設置自動存盤的時間間隔為分鐘，可以根據需要進行更改。 SendKeys ″%FS″ True '調用文件菜單的保存命令，顯示文件保存對話框 End If Else Unload Me End If End Sub |
使用方法：代碼輸入完畢，將該程序編譯成EXE文件，用“發送到/桌面快捷方式”命令為該文件在桌面上創建一個快捷方式圖標。當要使用記事本時，只要雙擊這個快捷方式圖標就可以自動打開記事本及這個程序了。設置一下自動保存的時間間隔，比如2分鐘，點擊“開始”按鈕開始工作。當第一次保存時，會顯示文件保存窗口，讓你填寫文件名和選擇路徑，以后將每隔2分鐘自動保存一次。當你關閉記事本時該程序也會隨之自動退出。本程序在VB6.0企業版和Win98 SE下調試通過。