Herencia en Clases
Publicado por Manuel (2 intervenciones) el 26/03/2009 14:41:02
No me queda muy claro porque en esta herencia se utiliza ME alguien me podria explicar ?
Module General
Sub Main()
Dim loUsu As Usuario
loUsu = New Usuario()
' accedemos al método público del objeto
loUsu.AsignarNombre("Daniel")
End Sub
End Module
Public Class Usuario
' esta variable sólo es accesible
' por el código de la propia clase
Private msNombre As String
' este método es accesible desde cualquier punto
Public Sub AsignarNombre(ByVal lsValor As String)
msNombre = lsValor
End Sub
End Class
Public Class Operador
Inherits Usuario
Public Sub New()
' accedemos a un método público
' de la clase base
Me.AsignarNombre("Alfredo")
End Sub
End Class
Module General
Sub Main()
Dim loUsu As Usuario
loUsu = New Usuario()
' accedemos al método público del objeto
loUsu.AsignarNombre("Daniel")
End Sub
End Module
Public Class Usuario
' esta variable sólo es accesible
' por el código de la propia clase
Private msNombre As String
' este método es accesible desde cualquier punto
Public Sub AsignarNombre(ByVal lsValor As String)
msNombre = lsValor
End Sub
End Class
Public Class Operador
Inherits Usuario
Public Sub New()
' accedemos a un método público
' de la clase base
Me.AsignarNombre("Alfredo")
End Sub
End Class
Valora esta pregunta


0