Properties with Getter and Setter : Property « Class Module « VB.Net Tutorial

Public Class Tester
    Public Shared Sub Main
      Dim time As New CTime3()

      ' add one second
      time.Second = (time.Second + 1) Mod 60

      ' add one minute if 60 seconds have passed
      If time.Second = 0 Then
         time.Minute = (time.Minute + 1) Mod 60
         ' add one hour if 60 minutes have passed
         If time.Minute = 0 Then
            time.Hour = (time.Hour + 1) Mod 24
         End If

      End If

      time.Hour = 1
      time.Minute = 2
      time.Second = 3

      Console.WriteLine("Hour: " & time.Hour & "; Minute: " & _
         time.Minute & "; Second: " & time.Second)

    End Sub

End Class

Class CTime3
   Inherits Object

   Private mHour As Integer
   Private mMinute As Integer
   Private mSecond As Integer

   Public Sub New()
   End Sub ' New

   ' property Hour
   Public Property Hour() As Integer

      ' return mHour value
      Get
         Return mHour
      End Get

      ' set mHour value
      Set(ByVal value As Integer)

         If (value >= 0 AndAlso value < 24) Then
            mHour = value
         Else
            mHour = 0
         End If

      End Set

   End Property ' Hour

   ' property Minute
   Public Property Minute() As Integer

      ' return mMinute value
      Get
         Return mMinute
      End Get

      ' set mMinute value
      Set(ByVal value As Integer)

         If (value >= 0 AndAlso value < 60) Then
            mMinute = value
         Else
            mMinute = 0
         End If

      End Set

   End Property ' Minute

   ' property Second
   Public Property Second() As Integer

      ' return mSecond value
      Get
         Return mSecond
      End Get

      ' set mSecond value
      Set(ByVal value As Integer)

         If (value >= 0 AndAlso value < 60) Then
            mSecond = value
         Else
            mSecond = 0
         End If

      End Set

   End Property ' Second

End Class

Hour: 1; Minute: 2; Second: 3

6.38.Property
	6.38.1.	Define and use a Property
	6.38.2.	Default Property
	6.38.3.	Two properties
	6.38.4.	Do calculation in Property getter
	6.38.5.	Properties with Getter and Setter
	6.38.6.	Shared variable and Shared Property
	6.38.7.	Class with a property that performs validation
	6.38.8.	ReadOnly property
	6.38.9.	MultiKey Properties
	6.38.10.	Overloaded Properties
	6.38.11.	Shared Properties
	6.38.12.	Single Indexed Property
	6.38.13.	Loop through two dimensional array with GetUpperBound and GetLowerBound
	6.38.14.	Use Property to set private data
	6.38.15.	Do data check in property set
	6.38.16.	Convert data type in property set
	6.38.17.	Throw Exception in Property setting
	6.38.18.	Change value in Property getter
	6.38.19.	Friend Property
	6.38.20.	Readable and Writable
	6.38.21.	Person with FirstName and LastName Property
	6.38.22.	Define a class with one property and retrieves the name and type of the property