关于用户数据录入的问题~

Question

我用一个TextBox和循环语句收集用户的数据

把值赋予给一个数组，

for i =1 to 10
a(i)=textBox.text
‘到这里暂停，等待用户按回车确定，继续
Next

Answer 1

Hello 酷.睿 ,

我想 您的意思是 a(i) = textbox.Text 当用户输入回车之后，本次循环结束，下个循环开始，也就是给a(i+1) 赋值。

如果是那样的话，我建议您不要使用循环， 您可以试一下 这段代码

Public Sub write(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

        Dim str(2) As String

        Static Dim i As Integer = 0‘使用静态变量

        Try

            If e.KeyCode = Keys.Enter And i <= UBound(str) Then

                str(i) = TextBox1.Text

                TextBox1.Text = ""

                i = i + 1

            End If

        Catch

 

        End Try

End Sub

希望上面的代码对您有用

Best regards

rocky

Answer 2

您好

請參考以下程式碼

  Dim a(10) As String
  Dim index As Integer = 1
  Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
    If e.KeyChar = Chr(13) AndAlso index <= UBound(a) Then
      a(index) = TextBox1.Text
      index = index + 1
      TextBox1.Clear()
    End If
  End Sub

---

歡迎參觀我的Blog.NET菜鳥自救會

Answer 3

还不如加个button，点击后收集

---

http://feiyun0112.cnblogs.com/