Guest User

Untitled

a guest
May 27th, 2017
30
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.09 KB | None | 0 0
  1. Public Class Form1
  2.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  3.         Dim uno As New Person("Numero", "Uno", "Wayville", "12/12/2012", "Numerouno@gmail.com", 12345678)
  4.         Dim dos As New Person("Numero", "dos", "Heyville", "01/01/2011", "Numerodos@gmail.com", 87654321)
  5.         Dim tres As New Student("Numero", "tres", "Dudeville", "05/05/2005", "Numerotres@gmail.com", 12873465, 2015, "Juss")
  6.         Dim quatro As New Ansatt("Numero", "quatro", "Sickville", "09/09/2009", "numeroquatro@gmail.com", 99999999, "Rektor", 45)
  7.  
  8.         'MsgBox(tres.ToString)
  9.         Try
  10.  
  11.  
  12.             Dim liste As New ArrayList()
  13.             liste.Add(uno.ToString)
  14.             liste.Add(dos.ToString)
  15.             liste.Add(tres.ToString)
  16.             liste.Add(quatro.ToString)
  17.  
  18.             ListBox1.Items.Clear()
  19.             Dim indeks As Integer
  20.             For indeks = 0 To liste.Count - 1
  21.                 ListBox1.Items.Add(liste(indeks))
  22.             Next
  23.  
  24.         Catch ex As Exception
  25.             MsgBox(ex.Message)
  26.         End Try
  27.  
  28.     End Sub
  29.  
  30. End Class
Add Comment
Please, Sign In to add comment