reza69
جمعه 10 آذر 1391, 16:57 عصر
سلام من میخوام یه آرایه 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
اینم کدمه ولی عمل نمیکنه.
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