Herança no Visual Basic .NET

Postado por Higor Santos em 8 de julho de 2010

Nesse post vou mostrar como é feita a herança no Visual Basic. Mas antes, uma pequena descricação sobre herança.

Herança é um conceito pelo qual é possível criar uma classe (subclasse) com base em uma existente. Essa nova classe herda todos os atributos, comportamentos e implementações da classe herdada (superclasse).

Com está pequena definição podemos começar com a prática.
Abaixo veremos uma classe (que será a superclasse), onde faremos uma conexão com um banco de dados em MySQL com visto em uma vídeo aula aqui no Falando TI. E em seguida uma subclasse que herdara da superclasse.

Imports MySql.Data.MySqlClient
Public Class Conexao
    Private strCon As String = ""
      'VARIÁVEIS PÚBLICAS
    Public dr As MySqlDataReader
    Public comando As MySqlCommand
    Public con As MySqlConnection
 
    ' MÉTODO CONSTRUTOR DA CLASSSE Conexão
    Public Sub New()
        Dim servidor As String = "localhost"
        Dim usuario As String = "root"
        Dim senha As String = ""
        Dim banco As String = "dados"
        strCon = "server=" &amp; servidor &amp; "; user id=" &amp; usuario &amp; "; password=" &amp; senha &amp; ";database=" &amp; banco &amp; ";"
    End Sub
 
    ' MÉTODO PARA CONECTAR À BASE DE DADOS
    Public Sub conecta()
        Dim conectou As Boolean = False
 
        Try
            con = New MySqlConnection(strCon)
            con.Open()
        Catch ex As MySqlException
            MessageBox.Show("Ocorreu o seguinte erro: " &amp; ex.Message, "Falando TI", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
 
    'MÉTODO PARA FECHAR A CONEXÃO COM A BASE DE DADOS
    Public Sub FecharCon(ByVal con As MySqlConnection)
        Try
            If Not con.State = ConnectionState.Closed Then
                con.Close()
            End If
        Catch ex As MySqlException
            MessageBox.Show("Ocorreu o seguinte erro: " &amp; ex.Message, "Falando TI", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            FecharCon(con)
        End Try
    End Sub
End Class

Classe que herda:

Public Class Buscar
    Inherits Conexao '*** Inherits é palavra reservada ***
                     '*** usada para fazer a herança no VB .NET ***

    ' FUNÇÃO QUE BUSCA INFORMAÇÕES DO BANCO DE DADOS
    Public Function Busca()
        Dim Query As String = "SELECT id, Texto FROM Tabela;"
 
        Try
            conecta()
            comando = New MySql.Data.MySqlClient.MySqlCommand(Query, con)
            dr = comando.ExecuteReader
            If dr.HasRows Then
                While dr.Read
                    Console.WriteLine("Id: {0}", dr("Id").ToString)
                    Console.WriteLine("Texto: {0}", dr("Texto").ToString)
                End While
            End If
        Catch ex As Exception
            MessageBox.Show("Ocorreu o seguinte erro: " &amp; ex.Message, "Falando TI", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Finally
            FecharCon(con)
        End Try
    End Function