آرایه 2 بعدی

[reza69]

سلام من میخوام یه آرایه 2بعدی رو با یک تکست باکس پر کنم.به این روش که بعد از هر بار زدن enter عددی که داخل تکسباکس هست داخل یک خانه آرایه به ترتیب وارد شه. و در آخر نمایش داده بشه.(داخل لیبل و... نمایش داده بشه)
اینم کدمه ولی عمل نمیکنه.

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Dim arr(5, 5) As Integer

For i As Integer = 0 To 4
For j As Integer = 0 To 4
If e.KeyCode = Keys.Enter Then
arr(i, j) = CInt(Val(TextBox1.Text))
TextBox1.Text = ""
End If
Next
Next
End Sub

[ROSTAM2]

این هم کد : یک TextBox و یک ListBox نیاز دارید ...


Dim Arr&(5, 5), I%(1)
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
Select Case e.KeyCode
Case Keys.Enter
Select Case I(0)
Case 0 To 5
Select Case I(1)
Case 0 To 5
Arr(I(0), I(1)) = Val(TextBox1.Text)
TextBox1.Text = ""
If I(0) = 5 And I(1) = 5 Then
MsgBox(" Complete...", MsgBoxStyle.Information)
I(0) = 0 : I(1) = 0
For Each ar& In Arr
ListBox1.Items.Add(ar)
Next
End If
If I(1) = 5 Then
I(1) = 0
I(0) += 1
Else
I(1) += 1
End If
End Select
End Select
End Select
End Sub