adderproperties.vb

来自「asp.net技术内幕的书配源码」· VB 代码 · 共 35 行

Imports System

Namespace myComponents

Public Class AdderProperties

  Private _firstValue As Integer
  Private _secondValue As Integer

  Public Property FirstValue As Integer
    Get
      Return _firstValue
    End Get
    Set
      _firstValue = Value
    End Set
  End Property

  Public Property SecondValue As Integer
    Get
      Return _secondValue
    End Get
    Set
      _secondValue = Value
    End Set
  End Property

  Function AddValues() As Integer
    Return _firstValue + _secondValue
  End Function

End Class

End Namespace