mcs/mbas/testsuite/enum_struct_test.vb

   1 Imports System\r
   2 Imports TestUtils\r
   3 \r
   4 Enum MemberType \r
   5             Lions\r
   6             Pythons\r
   7             Jackals\r
   8             Eagles\r
   9 End Enum\r
  10 \r
  11 Structure ClubMember\r
  12             Public Name  As String\r
  13             Public Age   As Integer\r
  14             Public Group As MemberType\r
  15 End Structure\r
  16 \r
  17  \r
  18 Module Test\r
  19             Sub Main()\r
  20                         Dim a As ClubMember\r
  21 \r
  22                         a.Name = "John"\r
  23                         a.Age = 13\r
  24                         a.Group = MemberType.Eagles\r
  25                         \r
  26                         Dim b As ClubMember = a \r
  27                         b.Age = 17\r
  28                         Dim s As String = String.Format("Member {0} is {1} years old and belongs to the group of {2}", _\r
  29                                                               a.Name, a.Age,   a.Group)\r
  30                                                               \r
  31                         Console.WriteLine(TestUtils.GenerateHash (s))\r
  32             End Sub\r
  33 End Module\r
  34 \r
  35  \r