2013-06-23 6 views
0

Ниже мой код, чтобы ввести данные в массив и получить информациюvb.net Ввод и извлечение данных из массива

Ввод данных, кажется, нет никаких проблем, но когда я нажимаю на кнопку извлечения информации, которую он просто представляет 0 в текстовом поле.

Public Class Form1 

    Dim Array(20) As String 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 

    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

     Dim counter As Integer 

     For counter = 0 To ListBox1.Items.Count - 1 
      Array(counter) = txtEnterMarks.Text(counter) 
     Next 

     Label1.Text = "omfg" 
    End Sub 

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 

     For counter = 0 To Array.Length - 1 
      ListBox1.Items.Add(Array(counter)) 
     Next 
    End Sub 
End Class 
+2

Еще один дубликат http://stackoverflow.com/q/17256671/62576 с сегодняшнего дня. В какой школе вы все учитесь, что на этой неделе это было заданием на домашнее задание? Пожалуйста, по крайней мере, выполните основной поиск, прежде чем размещать новый вопрос. Благодарю. –

+0

Я искал где-нибудь и не могу найти решение – user1427806

+0

Я предоставил ссылку хотя бы на одно место, которое вы не искали, когда вы «искали все где». Существует также, по крайней мере, [еще один пост здесь] (http://stackoverflow.com/q/17256889/62576), который задал тот же вопрос (он был закрыт как дубликат того, который я связал). Вы не искали очень сильно; вам нужно больше стараться. :-) –

ответ

0

Опять же .. попробуйте этот другой ответ

Structure Student  
    Dim Name As String 
    Dim Mark As Integer 
End Structure 

Чтобы сохранить введенные данные в нем:

Dim StudentsInfo as New List(Of Student) 
Dim si As New Student 

si.Name = txtEnterName.Text 
si.mark = val(txtEnterMark.Text) 
StudentsInfo.Add(si) 

Чтобы получить значение из StudentsInfo

txtEnterName.Text = StudentsInfo(0).Name 
txtEnterMark.Text = StudentsInfo(0).mark.ToString 

О сохранении его В ListView .. Снова .. Попробуйте Mr. Goog le ...