Tech-Ed: Asta la Boston, Baby!

Friday, June 10, 2005
view plaincopy to clipboardprint
  1. Public Class TechEd2005  
  2.  
  3.    Private _EventLength As Integer 
  4.    Private _Finished As Boolean 
  5.  
  6.    Public Property EventLength As Integer 
  7.    Get 
  8.          Return _EventLenght  
  9.       End Get 
  10.       Set (ByVal value as Integer)  
  11.          _EventLenght = value  
  12.       End Set 
  13.    End Property 
  14.  
  15.       Public Property Finished As BooleanGet  
  16.          Return _Finished   
  17.       End Get 
  18.       Set (ByVal value as Boolean)  
  19.          _Finished = value  
  20.       End Set 
  21.    End Property 
  22.  
  23.  
  24.    Public Sub Extend(ByVal Days as Integer)  
  25.       EventLength += Days  
  26.    End Sub 
  27.  
  28.    Public Sub New()  
  29.    End Sub 
  30.  
  31. End Class 
  32.  
  33. Public Class MyTechEd  
  34.  
  35.    Dim TechEd As New TechEd2005  
  36.    TechEd.Finished = True 
  37.  
  38.    If TechEd.Finished = True 
  39.       TechEd2005.Extend(2) '''Wishfull thinking  
  40.    End If 
  41.  
  42. End Class 
Filed Under: .NET Framework
Comments are closed