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

  • 问题

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

    把值赋予给一个数组,

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

    2010年12月12日 2:54

答案

  • 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

    2010年12月13日 3:58
  • 您好

    請參考以下程式碼

      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菜鳥自救會
    2010年12月13日 6:53

全部回复

  • 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

    2010年12月13日 3:58
  • 您好

    請參考以下程式碼

      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菜鳥自救會
    2010年12月13日 6:53
  • 还不如加个button,点击后收集


    http://feiyun0112.cnblogs.com/
    2010年12月14日 1:40
    版主