Partilhar via

Passo a passo: Definindo classes (Visual Basic)

  • Artigo

Este passo a passo demonstra como definir classes, que você pode usar para criar objetos. Ele também mostra como adicionar propriedades e métodos à nova classe e demonstra como inicializar um objeto.

Nota

Seu computador pode mostrar nomes ou locais diferentes para alguns dos elementos da interface do usuário do Visual Studio nas instruções a seguir. A edição do Visual Studio que você tem e as configurações que você usa determinam esses elementos. Para obter mais informações, consulte Personalizando o IDE.

Para definir uma classe

  1. Crie um projeto clicando em Novo Projeto no menu Arquivo. Aparece a caixa de diálogo Novo Projeto.

  2. Selecione Aplicativo do Windows na lista de modelos de projeto do Visual Basic para exibir o novo projeto.

  3. Adicione uma nova classe ao projeto clicando em Adicionar classe no menu Projeto . A caixa de diálogo Adicionar Novo Item é apresentada.

  4. Selecione o modelo de classe .

  5. Nomeie a nova classe UserNameInfo.vbe clique em Adicionar para exibir o código da nova classe.

    Public Class UserNameInfo
End Class

    Nota

    Você pode usar o Editor de Códigos do Visual Basic para adicionar uma classe ao seu formulário de inicialização digitando a Class palavra-chave seguida pelo nome da nova classe. O Editor de Códigos fornece uma instrução correspondente End Class para você.

  6. Defina um campo privado para a classe adicionando o seguinte código entre as Class instruções and End Class :

    Private userNameValue As String

    Declarar o campo como Private meio que ele só pode ser usado dentro da classe. Você pode disponibilizar campos de fora de uma classe usando modificadores de acesso, como Public os que fornecem mais acesso. Para obter mais informações, consulte Níveis de acesso no Visual Basic.

  7. Defina uma propriedade para a classe adicionando o seguinte código:

    Public Property UserName() As String
    Get
        ' Gets the property value.
        Return userNameValue
    End Get
    Set(ByVal Value As String)
        ' Sets the property value.
        userNameValue = Value
    End Set
End Property

  8. Defina um método para a classe adicionando o seguinte código:

    Public Sub Capitalize()
    ' Capitalize the value of the property.
    userNameValue = UCase(userNameValue)
End Sub

  9. Defina um construtor parametrizado para a nova classe adicionando um procedimento chamado Sub New:

    Public Sub New(ByVal UserName As String)
    ' Set the property value.
    Me.UserName = UserName
End Sub

    O Sub New construtor é chamado automaticamente quando um objeto baseado nessa classe é criado. Este construtor define o valor do campo que contém o nome de usuário.

Para criar um botão para testar a classe

  1. Altere o formulário de inicialização para o modo de design clicando com o botão direito do mouse em seu nome no Gerenciador de Soluções e clicando em Exibir Designer. Por padrão, o formulário de inicialização para projetos de aplicativos do Windows é chamado Form1.vb. O formulário principal aparecerá então.

  2. Adicione um botão ao formulário principal e clique duas vezes nele para exibir o código do manipulador de Button1_Click eventos. Adicione o seguinte código para chamar o procedimento de teste:

    ' Create an instance of the class.
Dim user As New UserNameInfo("Moore, Bobby")
' Capitalize the value of the property.
user.Capitalize()
' Display the value of the property.
MsgBox("The original UserName is: " & user.UserName)
' Change the value of the property.
user.UserName = "Worden, Joe"
' Redisplay the value of the property.
MsgBox("The new UserName is: " & user.UserName)

Para executar seu aplicativo

  1. Execute seu aplicativo pressionando F5. Clique no botão no formulário para chamar o procedimento de teste. Ele exibe uma mensagem informando que o original UserName é "MOORE, BOBBY", porque o procedimento chamado o Capitalize método do objeto.

  2. Clique em OK para descartar a caixa de mensagem. O Button1 Click procedimento altera o UserName valor da propriedade e exibe uma mensagem informando que o novo valor de UserName é "Worden, Joe".

Consulte também