Utilizando Sobrecarga de operadores (Overloading)

0

Em algumas ocasiões precisamos que um método tenha diferentes parâmetros e atue de diferentes formas, porêm, precisamos que o método tenha o mesmo nome para todos estes diferentes procedimentos.


Nestes casos podemos utilizar a sobrecarga de operadores como podemos ver no
caso abaixo.

· Podemos utilizar o overload apenas com métodos e propriedades

Exemplos


'EX1:Sobrecarga do construtor

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

Dim carlos As New cliente("Manoel Silva")
MsgBox(carlos.nome)

End Sub

Class cliente

Sub New()
nome = "Carlos da Silva Marinho"
End Sub

Sub New(ByVal nomes As String)
nome = nomes
End Sub

Public nome As String
Dim endereco As String
Dim telefone As String
Dim celular As String

End Class

'Ex2: Sobrecarga de procedimento

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

Dim carlos As New cliente()
carlos.casa("Manoel")
MsgBox(carlos.nome)

End Sub

Class cliente

Overloads Sub casa()
nome = "Carlos da Silva Marinho"
End Sub

Overloads Sub casa(ByVal nomes As String)
nome = nomes
End Sub

Public nome As String
Dim endereco As String
Dim telefone As String
Dim celular As String

End Class

0