积极答复者
关于用户数据录入的问题~

问题
答案
-
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
- 已建议为答案 Calvin_GaoModerator 2010年12月15日 15:07
- 已标记为答案 Calvin_GaoModerator 2010年12月17日 3:06
-
您好
請參考以下程式碼
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菜鳥自救會- 已建议为答案 Calvin_GaoModerator 2010年12月15日 15:07
- 已标记为答案 Calvin_GaoModerator 2010年12月17日 3:06
全部回复
-
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
- 已建议为答案 Calvin_GaoModerator 2010年12月15日 15:07
- 已标记为答案 Calvin_GaoModerator 2010年12月17日 3:06
-
您好
請參考以下程式碼
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菜鳥自救會- 已建议为答案 Calvin_GaoModerator 2010年12月15日 15:07
- 已标记为答案 Calvin_GaoModerator 2010年12月17日 3:06
-