VB6.0把文本框(或控件)文字保存到txt文档，有利于数据的读取和写入，对于某些功能来说很方便，比如说：写篇日志之类的，可以在自己的软件上写，保存就自动保存到自己的txt文档里。(之前我在百度经验也看到一个版本，但那个版本跟这个版本的算法不同)（代码填写黑体字）工具/原料moreVisual Basic 6.0记事本普及版1/5分步阅读

新建一个EXE工程，在里面放置一个TextBox和一个按钮控件，把文本框的Text属性改成空白，把按钮控件的Caption属性改成“写入”。

2/5

定义一个字符串变量，把你想生成的文件路径名赋值给它。这个变量的定义可以用Dim放在按钮的Click事件中，也可以用Public放在模块中。

以下代码可任选一个：

①按钮的Click事件：

Dim lj as String

lj=文件路径（如E:\123.txt）

②模块：

Public lj as String

lj=文件路径（如E:\123.txt）

本经验用第一种方法。

3/5

在按钮的Click事件中，用Dir函数判断这个路径里有没有123.txt这个文件，然后如果没有的话创建文件，让文件的句柄为#1。

代码:

If Dri(lj) = then

Open lj For Output As #1

......

End If

4/5

在文本中写入Text1的内容，然后关闭文本：

代码（插入刚才的省略号的地方）：

Print #1, Text1.Text

Close #1

5/5

效果如图：

升级版1/4

为了避免有些用户不想用123.txt这个文件名，而想随时改文件名，小编教大家进阶版的创建txt的方法。

2/4

在Form里多加一个TextBox，名称为Text2，这个TextBox里填的就是文件名。

把Text属性改成空白。

3/4

然后把上面的

Dim lj as String

lj=文件路径（如E:\123.txt）

改为

Dim lj as String

lj=文件路径 Text2.text .txt（如E:\ Text2.text .txt）

或者把

Public lj as String

lj=文件路径（如E:\123.txt）

改为

Public lj as String

lj=文件路径 Text2.text .txt（如E:\ Text2.text .txt）

4/4

效果如图：

注意事项

如果路径里有123.txt文件，就创建不了了。

有其他疑问请在下方的“我有疑问”中留言，小编会尽力给每位学生回复的~

TXT记事本编程文本框控件VB