CheckBoxUser - Crear CheckBoxUser

Creado por David Miralpeix, Modificado el Jue, 5 Dic, 2024 a 1:13 P. M. por Adolfo Gonzalvo B

Código VB6:

Se nos plantea el siguiente escenario:

Tenemos el campo configurable 'Administrador' para la ficha del empleado y queremos tener un checkBox para poder identificar los empleados que son administradores, el checkBox tiene que estar en la pestaña otros dentro de un panel en concreto y mostrar un mensaje cada vez que se pulsa el control checkBox.

Ejemplo:

Sub Initialize()
  'Añadir un checkbox basandome en un campo configurable del empleado
  Set lcontrol = gForm.Controls.Add("AhoraOcx.checkBoxUser", "CheckAdmin", gForm.Controls("fraSeguridad")) 'Añadir el check dentro del panel fraSeguridad en la pestaña Otros de la ficha del empleado
  With lControl
  
  'Align :
  ' vbCenter = Texto centrado
  ' vbRightJustify = Texto justificado a la derecha
  ' vbLeftJustify = Texto justificado a la izquierda

     'Apariencia
     .CaptionWidth = 3075 'Ancho Etiqueta
     .CaptionVisible = True 'Etiqueta Visible
     .CaptionControl = "¿Administrador?" 'Título Etiqueta
     .CaptionAlign = 0
     'Diseño    
     '.Heigth 'Va definido por el skin aplicado
     .Width = 3315 'Ancho
     .Left = 4545 'Posición X
     .Top = 120 'Posición Y
     
     'Objetos
     .ObjOrigen = "Eobjeto" 'EObjeto Origen
     .ObjPOrigen = "Administrador" 'EObjeto Propiedad
     
     'Seguridad
     .Enabled = True 'Ativado 
     .Visible = True 'Visible - Por defecto es False
     
     'Propiedades
     .ActivarScripts = True
     
  End With
End Sub

Sub Check_Click(aCheckBox)
  If aCheckBox.Name = "CheckAdmin" Then 'Mostrar mensaje al marcar/desmarcar
    If aCheckBox.Value = -1 Then
      MsgBox "Usuario definido como adminsitrador"
    Else
      MsgBox "Usuario eliminado de administradores" 
    End If 
  End If
End Sub

Crea un checkbox dentro del panel especificado.

Set nombreVariableCheckBox = gForm.Controls.Add("AhoraOcx.checkBoxUser", "NOMBRECHECKBOX", PANEL_PADRE)

Código C#:

Para este ejemplo crearemos en el formulario de delegaciones, un nuevo checkboxuser, debajo de la propiedad Calendario. Esto se realizará usando el método CrearControl del propio CheckBoxUser. El nuevo checkbox se llamará "CampoPers" Este campo tendrá que estar crear en la tabla conf_delegaciones de tipo Si/No

using AhoraSistema;
using AhoraOCX;
using AhoraCore;

namespace AhoraScriptsPantalla
{
  public class AhoraCl_frmDelegaciones : AhoraOCX.AhoraBaseScript
  {

        private IComboUsuario pIdCalendario;

        public void Initialize()
    {
      // Captura de control "IdCalendario". Usaremos su "Parent" de contenedor para el campo que vamos a crear, así como recuperar sus propiedades relativas a dimensión y posición
            pIdCalendario = (IComboUsuario)gForm.Controls["IdCalendario"];

            ICheckBoxUser claseCheckBoxUser = new CheckBoxUser();
            ICheckBoxUser campoPers = (ICheckBoxUser)claseCheckBoxUser.CrearNuevoControl(
                gForm,                          // Formulario
                "persCheckBoxUser",                   // NombreControl
                "Pers:",                        // Caption
                pIdCalendario.Left,                    // Posición horizontal (Left)
                pIdCalendario.Top + pIdCalendario.Height + 5,      // Posición vertical (Top)
                70,                            // Ancho (en píxeles)
                20,                            // Alto (en píxeles)
                (IControl)pIdCalendario.Parent,              // Control Contenedor
                true,                          // ¿Caption visible?
                ETipoDato.String,                    // Tipo de dato
                60,                            // Ancho de etiqueta (en píxeles)
                19);                          // Índice de tabulación
                campoPers.ObjOrigen = "EObjeto"; 
                campoPers.ObjPOrigen  = "persCheckBoxUser";      
        }

  }
}

¿Le ha sido útil este artículo?