mcs/mbas/testsuite/enum_struct_test.vb

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