用VB6.0实现状态跟踪记录

程序包含 Textbox（Index）和Label（Index）两个控件组以及一个Button

希望实现效果，点击按键之后可以将需要的内容输出到指定的TXT中，并且每次点击都追加到相同文件的最后。不要求有保存提示，直接进行保存。

输出内容为：

当前日期\时间
序号 TEXTBOX1的内容 LABEL1的内容
序号 TEXTBOX2的内容 LABEL2的内容
序号 TEXTBOX3的内容 LABEL3的内容
.
.
.
.
.
.

Print # 语句示例
本示例使用 Print # 语句将数据写入一个文件。

VB code

Open "TESTFILE" For Output As #1   ' 打开输出文件。
Print #1, "This is a test"   ' 将文本数据写入文件。
Print #1,   ' 将空白行写入文件。
Print #1, "Zone 1"； Tab ； "Zone 2"   ' 数据写入两个区（print zones）。
Print #1, "Hello" ； " " ； "World"   ' 以空格隔开两个字符串。
Print #1, Spc(5) ； "5 leading spaces "   ' 在字符串之前写入五个空格。
Print #1, Tab(10) ； "Hello"   ' 将数据写在第十列。

' 赋值 Boolean、Date、Null 及 Error 等。
Dim MyBool, MyDate, MyNull, MyError
MyBool = False : MyDate = #February 12, 1969# : MyNull = Null
MyError = CVErr(32767)
' True、False、Null 及 Error 会根据系统的地区设置自动转换格式。
' 日期将以标准的短式日期的格式显示。
Print #1, MyBool ； " is a Boolean value"
Print #1, MyDate ； " is a date"
Print #1, MyNull ； " is a null value"
Print #1, MyError ； " is an error value"
Close #1   ' 关闭文件。