CheckBoxUser - Crear CheckBoxUser

Creado por David Miralpeix, Modificado el Fri, 16 Feb 2024 a las 12:25 PM por David Miralpeix

Código VB6:

Crea un checkbox dentro del panel especificado.

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

Se nos plantea el siguiente escenario:

Tenemos el campo configurable 'Adminsitrador' 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 seguridad dentro de un panel en concreto y mostrar un mensaje cada vez que se

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

Código C#:

Para este ejemplo crearemos un nuevo checkboxuser en frmDelegaciones mediante el método CrearControl del propio CheckBoxUser.

using AhoraSistema;
using AhoraOCX;
using AhoraCore;

namespace AhoraScriptsPantalla
{
  public class AhoraCl_frmDelegaciones : AhoraOCX.AhoraBaseScript
  {

        private IComboUsuario pIdCalendario;

        public void Initialize()
    {
      // Captura de control "IdDelegacionCli". 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
        }

  }
}