Ampliaciones de la clase MGDatos
Como ampliación en esta clase cabe destacar :
- Todas las altas y modificaciones de las gestiones que deseemos coordinar. Por ejemplo : La función AddModRegEmpresa coordina la adicción y modificación de empresas. Debe añadir una función para cada gestión de datos que desee coordinar.
- La normativa de la empresa que desee coordinar en esta clase. Por ejemplo : La función VerificarRegEmpresa coordina la validez de los datos de una empresa. Debe añadir una función para cada comprobación de la normativa de la empresa.
- Puede ampliar los valores de la enumeración MGADBaseConexión. Adaptándola a los tipos de conexión deseados.
- Puede crear tipos definidos para las gestiones que desee coordinar. Por ejemplo el tipo MGADRegEmpresa para la gestión de empresas.
La clase utilería
En la clase Utileria defina todas aquellas utilidades comunes a los clientes.
La función SelTexto: Selecciona el texto de un TextBox o un Xlabel.
' *********************************************************
' Selecciona el texto de un TextBox o de un XLabel.
' *********************************************************
' Con un objeto TextBox o XLabel dado...
' Selecciona todo el texto escrito.
' Creando así un efecto de "edición rápida"
' *********************************************************
' Parámetros :
' CuadroTexto : Objeto TextBox o XLabel.
' *********************************************************
Public Sub SelTexto(CuadroTexto As Object)
CuadroTexto.SelStart = 0
On Error Resume Next
CuadroTexto.SelLength = Len(CuadroTexto.Text) ' Compatible TextBox
CuadroTexto.SelLength = Len(CuadroTexto.Texto) ' Compatible XLabel
On Error GoTo 0
End Sub
Tutoriales
