Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim uno As New Person("Numero", "Uno", "Wayville", "12/12/2012", "Numerouno@gmail.com", 12345678)
- Dim dos As New Person("Numero", "dos", "Heyville", "01/01/2011", "Numerodos@gmail.com", 87654321)
- Dim tres As New Student("Numero", "tres", "Dudeville", "05/05/2005", "Numerotres@gmail.com", 12873465, 2015, "Juss")
- Dim quatro As New Ansatt("Numero", "quatro", "Sickville", "09/09/2009", "numeroquatro@gmail.com", 99999999, "Rektor", 45)
- 'MsgBox(tres.ToString)
- Try
- Dim liste As New ArrayList()
- liste.Add(uno.ToString)
- liste.Add(dos.ToString)
- liste.Add(tres.ToString)
- liste.Add(quatro.ToString)
- ListBox1.Items.Clear()
- Dim indeks As Integer
- For indeks = 0 To liste.Count - 1
- ListBox1.Items.Add(liste(indeks))
- Next
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End Sub
- End Class
Add Comment
Please, Sign In to add comment