程序包含 Textbox(Index)和Label(Index)两个控件组以及一个Button希望实现效果,点击按键之后可以将需要的内容输出到指定的TXT中,并且每次点击都追加到相同文件的最后。不要求有保存提示,直接进行保存。输出内容为:当前日期\时间
序号 TEXTBOX1的内容 LABEL1的内容
序号 TEXTBOX2的内容 LABEL2的内容
序号 TEXTBOX3的内容 LABEL3的内容
.
.
.
.
.
.
序号 TEXTBOX1的内容 LABEL1的内容
序号 TEXTBOX2的内容 LABEL2的内容
序号 TEXTBOX3的内容 LABEL3的内容
.
.
.
.
.
.
本示例使用 Print # 语句将数据写入一个文件。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 ' 关闭文件。