A classe VB é o componente básico de programação orientada a objetos Visual Basic. A classe VB é a definição de propriedades e métodos das classes , conforme definido no código VB . Quando a classe é instanciado usando um Dim e Nova declaração torna-se um objeto real na memória. Coisas que você precisa
Visual Basic. NET
Show Mais instruções Como escrever código para a classe VB
1

Crie um novo projeto Visual Basic com base na classe template Library. Isto irá criar um projeto com o início de uma classe. Nomeie o clPerson biblioteca de classes.
2

Nas janelas Gerenciador de Soluções , clique com o botão direito sobre o arquivo class1.vb e renomeá-lo para " clsPerson.vb ' . Isso irá alterar o nome da classe na janela de codificação para clsPerson também.
3

Adicione essas duas linhas no topo da definição de classe , logo após o ' Public Class clsPerson ' linha.

privada _Name as String

privada _DateOfBirth as Date

Estas serão as variáveis ​​internas para armazenar os dados sobre a pessoa . Eles são definidos como 'Private' para que o código fora da classe não pode alterá-los. Alterações a estes valores serão controlados pelos métodos e propriedades da classe
4

Adicione este código como propriedades para a classe: .

Public Property Name As String

Get

Name = _sName

End Get

Set ( ByVal valor As String)

_sName = valor

End Set

End Property

Public Property DateOfBirth As Date

Get

DateOfBirth = _DateOfBirth

End Get Set

( ByVal valor As Date )

Se valor > hoje Então

Jogar New ApplicationException ("Data de nascimento deve ser hoje ou antes " )

Else

_DateOfBirth = valor

End If End

Set Fotografia

End Property

Estes são ambos leitura e escrita propriedades e armazenar os seus valores nas variáveis ​​privadas definido anteriormente . A propriedade DateOfBirth demonstra alguns tratamentos de erros rudimentar , verificando se a data de nascimento é hoje, ou antes. Se não for , será apresentada uma exceção que pode ser a manipulação pelo programa de consumir da classe .
5

Aqui está um exemplo de uma propriedade somente leitura .

Public ReadOnly propriedade Idade as Integer

Obter

Dim retval as Integer

retval = DateTime.Now.Year - _DateOfBirth.Year ' Encontre o diferente em anos

Se DateTime.Now.Month < _DateOfBirth.Month Or ( DateTime.Now.Month = _DateOfBirth.Month E DateTime.Now.Day < _DateOfBirth.Day ) Então

retval = retval - 1 ' Se antes da aniversário neste ano subtrair um

End If

Idade = retval

End Get End Property

Usando a data atual e a data de nascimento na classe lhe permite calcular a idade da pessoa . O programa consome não precisa ter conhecimento de como isso é implementado . Pode-se armazenar um valor real ou cálculo.
6

Um método simples pode envolver determinar se outra pessoa é mais velha do que a pessoa representada no objeto atual.

GetOlder Função Pública ( ByRef miniatura Como clsPerson ) Como clsPerson

Se comp.DateOfBirth > _DateOfBirth Então

GetOlder = comp

Else

GetOlder = me

End If End Function

7

Em outro programa , a classe que tem sido definido seria usado assim:

Private Sub Button1_Click (ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click

Dim cp As New clsPerson

cp.DateOfBirth = " 1956/10/02 "

MsgBox ( cp.Age )

End Sub

se esqueça de incluir o ' Imports clPerson ' no topo do arquivo que precisa usar o objeto.