Option Explicit
Public 數量 As Integer '定義壹個全局變量來存放字數
'此過程獲取文本框字數,也可將此過程簡化到檢測按鍵的過程中,多寫壹個過程,可以多學壹點基礎的東西
Private Sub Text1_Change()
數量 = Len(Text1.Text)
End Sub
'檢測文本框輸入的按鍵是否為回車鍵
'************************************************************************
'註意:此過程中的檢測文件是否存在,需要在工程中引用: Microsft Scripting runtime
'就是在工程菜單中點引用,在彈出的窗口中在Microsft Scripting runtime選項前面打上勾
'************************************************************************
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim 文件 As New FileSystemObject
If KeyAscii = 13 Then '如果是回車鍵
If Not 文件.fileexists("d:\123.txt") Then '檢查要保存的文件是否存在
文件.CreateTextFile ("d:\123.txt") '如果文件不存在,創建文件,雙引號內的文件名可以自行修改,但此過程中三處文件路徑和名字需壹致
End If
If 數量 > 5 Then '檢查字數,此數字5可自行修改為妳自定的數字
Open "d:\123.txt" For Append As #1 '打開文件並在末尾追加文本
Print #1, Now & " " & Text1.Text '追加的數據,此處為時間+兩空格+文本框的內容
Close #1 '關閉文件
Text1.Text = "" '文件保存後清空文本框
Text1.SetFocus '重新聚焦文本框等待輸入
Else '如果字數不夠
Text1.SelStart = Len(Text1.Text) '將不保存數據,文本框原內容不變,並將光標重新放在文本框內容的最後面
Text1.SetFocus '重新將焦點放回文本框,等待繼續輸入
End If
End If
End Sub
'程序運行時將文本框清空,將焦點放在文本框內等待輸入,之所以用定時控件是因為LOAD不支持文本框的SetFocus操作
Private Sub Timer1_Timer()
Text1.Text = "" '文本框清空
Text1.SetFocus '焦點放在文本框內
Timer1.Enabled = False '停止時間控件,達到壹次性運行效果.
End Sub
以上代碼我是偷懶了,選擇目錄和提示字數不夠我省略了,妳自己稍改下就行.都是些VB6基礎的東西,推薦妳壹本Visual Basic程序設計教程6.0版,VB的基礎教程,以上這些全有.