Agora vamos criar uma classe produto para mostrarmos melhor o conceito de orientação a objeto.

Nossa classe produto terá quatro propriedades e um método.

Propriedades

• Nome
• Preço
• Data Fabricação
• Dias Validade

Método

• Retornar Data Validade

Criando uma classe

Clique com o botão direito do mouse no projeto/Website e selecione add à New Item

Selecione class e digite produto.vb , clique em Add

Foi criado um arquivo somente com a definição da classe.

Public Class Produto

End Class

Vamos agora adicionar as propriedades e o método, para criar a propriedade clique com o botão direito dentro do arquivo, selecione Insert Snippet

Usando o Insert Snippet

Selecione Common Code Patterns à Properties and Procedures à Define a Property

Será criado o código Abaixo:

Public Class Produto

Private newPropertyValue As Integer

Public Property NewProperty() As Integer

Get

Return newPropertyValue

End Get

Set(ByVal value As Integer)

newPropertyValue = value

End Set

End Property

End Class

Agora vamos alterar o nome e tipo da propriedade

Public Class Produto

Private _nome As String

Public Property Nome() As String

Get

Return _nome

End Get

Set(ByVal value As String)

_nome = value

End Set

End Property

End Class

Agora repita os passos anteriores para criar as outras propriedades, veja o código como deve ficar.

Public Class Produto

Private _nome As String

Public Property Nome() As String

Get

Return _nome

End Get

Set(ByVal value As String)

_nome = value

End Set

End Property

Private _DataFabricacao As DateTime

Public Property DataFabricacao() As DateTime

Get

Return _DataFabricacao

End Get

Set(ByVal value As DateTime)

_DataFabricacao = value

End Set

End Property

Private _NumeroDias As Integer

Public Property NumeroDias() As Integer

Get

Return _NumeroDias

End Get

Set(ByVal value As Integer)

_NumeroDias = value

End Set

End Property

Private _Preco As Double

Public Property Preco() As Double

Get

Return _Preco

End Get

Set(ByVal value As Double)

_Preco = value

End Set

End Property

End Class

Agora vamos criar nosso método

Function RetornaDataValidade() As DateTime

Return DataFabricacao.AddDays(NumeroDias)

End Function

Nesse método utilizamos a propriedade DataFabricacao e NumeroDias , como DataFabricacao é do tipo data, temos o método de soma para dia AddDays.

Nossa classe já pode ser utilizada em nossa página:

Public Class Produto

Private _nome As String

Public Property Nome() As String

Get

Return _nome

End Get

Set(ByVal value As String)

_nome = value

End Set

End Property

Private _DataFabricacao As DateTime

Public Property DataFabricacao() As DateTime

Get

Return _DataFabricacao

End Get

Set(ByVal value As DateTime)

_DataFabricacao = value

End Set

End Property

Private _NumeroDias As Integer

Public Property NumeroDias() As Integer

Get

Return _NumeroDias

End Get

Set(ByVal value As Integer)

_NumeroDias = value

End Set

End Property

Private _Preco As Double

Public Property Preco() As Double

Get

Return _Preco

End Get

Set(ByVal value As Double)

_Preco = value

End Set

End Property

Function RetornaDataValidade() As DateTime

Return DataFabricacao.AddDays(NumeroDias)

End Function

End Class