Con este ejemplo podremos ver desde las diferencias de un modulo de clase a un modulo estándar.
Como afecta el uso de propiedades publicas en una clase que pueden ser manipuladas desde otra parte
de nuestra aplicación.
Tenemos:
- Un modulo principal o formulario
- Un modulo de clase
- Un modulo estándar.
Nuestro formulario:
' gambas class file
Private OPrimero As Clase1
Private OSegundo As Clase1
Public Sub _new()
End
Public Sub Form_Open()
'Creamos dos instancias de la clase1
OPrimero = New Clase1
OSegundo = New Clase1
Modulo1.VisibleEnTodosLosSitios = "Datos de cadena global"
End
Public Sub Button1_Click()
Modulo1.LlamableDesdeCualquierLugar(OPrimero)
OPrimero.MostrarComentario
End
Public Sub Button2_Click()
OSegundo.MostrarComentario
End
Private OPrimero As Clase1
Private OSegundo As Clase1
Public Sub _new()
End
Public Sub Form_Open()
'Creamos dos instancias de la clase1
OPrimero = New Clase1
OSegundo = New Clase1
Modulo1.VisibleEnTodosLosSitios = "Datos de cadena global"
End
Public Sub Button1_Click()
Modulo1.LlamableDesdeCualquierLugar(OPrimero)
OPrimero.MostrarComentario
End
Public Sub Button2_Click()
OSegundo.MostrarComentario
End
Modulo de Clase1:
El modulo estándar:
' gambas module file
Public VisibleEnTodosLosSitios As String
Public Sub LlamableDesdeCualquierLugar(c1 As Clase1)
' La línea siguiente modifica una variable global
' (propiedad) de una instancia de Clase1. Sólo
' afecta al objeto en particular pasado por este
' procedimiento.
c1.comentario = "Tocado por una función global."
End
Public VisibleEnTodosLosSitios As String
Public Sub LlamableDesdeCualquierLugar(c1 As Clase1)
' La línea siguiente modifica una variable global
' (propiedad) de una instancia de Clase1. Sólo
' afecta al objeto en particular pasado por este
' procedimiento.
c1.comentario = "Tocado por una función global."
End
Código del ejemplo:
Saludos
ModuloClaseModuloEstandar.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | ModuloClaseModuloEstandar.tar.gz | |
Tamaño: | 6.07 KB | |
Descargado: | 23 veces |
ModuloClaseModuloEstandar.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | ModuloClaseModuloEstandar.tar.gz | |
Tamaño: | 6.07 KB | |
Descargado: | 23 veces |
ModuloClaseModuloEstandar.tar.gz | ||
Descripción: | Descargar |
|
Nombre del archivo: | ModuloClaseModuloEstandar.tar.gz | |
Tamaño: | 6.07 KB | |
Descargado: | 23 veces |