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