OOP - Object Oriented Programming Languuage ou Linguagem de programação orientada a objetos ate o vb 6.0 o tínhamos uma linguagem estruturada com esta mudança tivemos ganhos em escabilidade , na reutilização do código , na depuração do código sem falar nas inúmeras ferramentas que vieram com o Visual Studio.
O UDT (User Defined Types) no VB 6.0 foi o ponto de partida para os objetos.
Vejamos um exemplo .
Digamos que queira guardar informações sobre automóveis ( cor , ano ).
Se criarmos variáveis para guardar tais dados ,imagine o trabalho se por um acaso tivéssemos 200 carros. Com O UDT se tentou resolver este problema, vejamos como era no VB.
Public Type Carro
Cor as string
Ano as strng
End Type
Em General Declarations
Dim NewCarro as Carro
No evento Load do form
Private Sub Form_Load()
NewCarro.cor = “Branco”
NewCarro.ano = “2005”
End sub
Depois em determinado evento carregaríamos para um text ou label.
No VB.NET ficou assim
Public Structure Carro
Dim Cor AS String
Dim Ano AS String
End Structure
Para se carregar os valores em uma msgbox por exemplo
Dim Gol As Carro
Gol.Cor = “branco”
Gol.Ano = “2005”
MsgBox = “ O Carro de cor “ & Gol.Cor & “ de ano de fabricação “ & Gol.Ano
Bem agora veremos o mesmo exemplo mas na forma de uma casse.
Class Carro
Dim Cor_carro as String
Dim Ano_carro As String
Sub Carros (ByVal Cor as String, ByVal Ano as String )
Me.Cor_carro = Cor
Me.Ano_carro = Ano
End sub
Sub Chamar()
MsgBox = “ O Carro de cor “ & Me.Cor_carro & “ de ano de fabricação “ & Me.Ano_carro
End sub
No form
Public Class Frm_principal
Inherits System.Windows.Forms.Form
Private Sub Frm_Principal ( ByVal sender as System.Object, ByVal e As System.EventArgs)
Dim Carro As New Carros ()
Carro.Carros( “branco” , “2005” )
Carro.Chamar()
End sub
End Class
Bem por hoje e isto abraços