VB编程，请高手帮帮，text控件的操作

显示全部楼层 · 2011-2-5 21:01:54

给你一个代码：若用控件组：open "d:\temp" foroutput as #1for i=0 to 99print#1,text1(i).textnextclose若不用控件组：open "d:\temp" foroutput as #1for i=1 to 100print#1,Controls("text" & i).textnextclose...

千问 · 2011-2-5 21:01:54

给你写了个参考，遍历窗体控件及控件类型识别，呵呵。记得给个红包。。。Private Sub Command1_Click()
Dim x As Control
Open App.Path & "\AllTextOut.TxT" For Append As #1
For Each x In Me.Controls ...

千问 · 2011-2-5 21:01:54

Private Sub Command1_Click()Open "c:\1.txt" For Append As #1
Print #1, Text1.Text
Print #1, Text2.Text'可以添加更多文本框Close #1End IfEnd Sub...

千问 · 2011-2-5 21:01:54

open "c:\out.txt" for output as #1print #1,text1.textprint #1,text2.textclose #1其中的TEXT1等根据实际情况修改....

千问 · 2011-2-5 21:01:54

先将输入框，例如text1创建为控件集合（不会的话就将index属性设为0，然后复制如100个，控制起来就为text1(0) 至text1(99)），按下按钮command1保存为文件，则写代码时这样写： private sub command1_click() | dim i as integer |open "c:\1.txt" for output...