UC知道关于vb的2个问题
来源：百度知道 编辑：UC知道 时间：2024/06/01 03:15:57
我有从text1到text10，10个输入框，但没有作成数组控件。另外有个保存按钮。
请问：
1.当我输入到第10个text时按下保存按钮，就把这10个数据记录到D盘下的txt文件里，这要怎么做？
2.当我按下保存按钮的时候同时在每个text控件里的数据作一次运算，比如+1之类，并且重复8次。如果是数组控件我知道怎么做，想知道独立的text文本框要怎么做。
由于我是初学者，说得不是很清楚，还请各位帮忙解答，希望代码能简单点，最好能解释关键字段的意义。谢谢！好的回答给高分哦。
请问：
1.当我输入到第10个text时按下保存按钮，就把这10个数据记录到D盘下的txt文件里，这要怎么做？
2.当我按下保存按钮的时候同时在每个text控件里的数据作一次运算，比如+1之类，并且重复8次。如果是数组控件我知道怎么做，想知道独立的text文本框要怎么做。
由于我是初学者，说得不是很清楚，还请各位帮忙解答，希望代码能简单点，最好能解释关键字段的意义。谢谢！好的回答给高分哦。
Private Sub Command1_Click()
Dim Path As String
Dim I As Integer
Path = InputBox("默认路径为D:\", , "请输入您想保存的文件名称")
If Trim(Path) <> "" Then
Open "D:\" & Path & ".txt" For Output As #1
For I = 1 To 10
Print #1, Me.Controls("Text" & I).Text
Next
Close #1
End If
End Sub
Private Sub Command2_Click()
Dim Path As String
Dim I As Integer
Dim J As Integer
Path = InputBox("默认路径为D:\", , "请输入您想保存的文件名称")
If Trim(Path) <> "" Then
Open "D:\" & Path & ".txt" For Output As #1
For I = 1 To 10
For J = 1 To 8
Me.Controls("Text" & I).Text = Me.Controls("Text" & I).Text + 1
Next
Print