弄个通用对话框
然后写按钮1被单击,
通用对话框1.类型 = 1 ' 类型,1是保存,2是打开
通用对话框1.初始目录 = “c:\” ' 打开的初始目录
通用对话框1.打开 () ' 打开
通用对话框1.默认文件后缀 = “文本文件(*.txt)” ' 保存文件的默认扩展名
写到文件 (通用对话框1.文件名, 到字节集 (编辑框1.内容)+到字节集 (编辑框1.内容)) ' 写文件
直接复制即可
这个方法理论上应该可以无数个编辑框吧,我也不太清楚~~!
.版本 2
.程序集 窗口程序集1
.程序集变量 编辑框, 编辑框, , "0"
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
编辑框1.可视 = 假
.计次循环首 (3, i)
加入成员 (编辑框, 编辑框1)
复制窗口组件 (编辑框1, 编辑框 [i])
编辑框 [i].置父窗口 (_启动窗口)
编辑框 [i].左边 = 10
编辑框 [i].顶边 = 24 × i + 3
编辑框 [i].标记 = 到文本 (i)
编辑框 [i].可视 = 真
.计次循环尾 ()
.子程序 _保存按钮_被单击
.局部变量 文件号, 整数型
.局部变量 i, 整数型
通用对话框1.类型 = 1
通用对话框1.过滤器 = “文本文件(*.txt)|*.txt”
通用对话框1.初始目录 = “D:\”
通用对话框1.默认文件后缀 = “*.txt”
.如果真 (通用对话框1.打开 ())
文件号 = 打开文件 (通用对话框1.文件名, #改写, )
.计次循环首 (取数组成员数 (编辑框), i)
插入文本 (文件号, 编辑框 [到整数 (编辑框 [i].标记)].内容 + 字符 (13) + 字符 (10))
.计次循环尾 ()
关闭文件 (文件号)
比如:写到文件(“D:\1.TXT",编辑框1.内容+编辑框2.内容+编辑框3.内容)'这样一直加下去