Control Combo

Crear un control de tipo combo mediante código


--- Los valores diponibles para definir el tipo de dato de una columna de un combo son:
0 Variant
11 Boolean
17 Byte
2 Entero
3 Long
4 Simple
5 Doble
6 Moneda
7 Fecha
8 Texto


 Ver código ejemplo

set lControl = gForm.Controls.Add("AhoraOCX.ComboUsuario", "Pers_MiControlCombo", Gform.controls("TabDatos"))
With lControl 

     .C1Nombre = "NombreCol1"

     .C1TipoDato = 2

     .C1Anchura = 3000

     .C2Nombre = "NombreCol2"

     .C2TipoDato = 2

     .C2Anchura = 800

     .CActiva = 2

     .NColumnas=2

     .Descripcion="Select Col1, Col2 from VistaOTabla order by Col1"

     .Formato = "Mayusculas y Minusculas"

     .TipoDato = "String"

     .ObjOrigen = "EObjeto"

     .ObjPOrigen = "PropiedadDeObjeto"

     .visible = True

     .CaptionVisible = True

     .CaptionControl = "CaptionEtiqueta"

     .CaptionWidth = 1800

     .Enabled = True

     .CaptionLink = true

     .move 0,0,1800,300

     .AplicaEstilo 

     .TabStop=True

     .TabIndex = 25
End With

Autor: Daniel Ernesto Lutz Llano