Ofrecer a los usuarios un formulario de selección de objeto

 

Código VB6:

Sub Main()
      frmAux.Descargar 'ATENCIÓN: DEBE ESTAR SIEMPRE QUE NO SE MUESTRE EL FORMULARIO.

      Set lForm = gCn.AhoraProceso("DamefrmListacol", False)
      Set lObjeto = lForm.Seleccionar(gcn.Obj.damecoleccion ("Clientes","where 1 = 1"))
      MsgBox lobjeto.propiedades ("IdCliente")
End Sub


Código C#:

using AhoraCore;
using AhoraObjLinks;
using AhoraOCX;
using AhoraSistema;
using static AhoraCore.VBA.Interaction;

namespace AhoraScriptsVacia
{
    public class Script_21 : AhoraOCX.AhoraBaseScript
    {
        public void Main()
        {

            IfrmListaColeccion lForm = (IfrmListaColeccion)gCn.AhoraProceso("DamefrmListacol", out _);
            IItemColeccion lObjeto = lForm.Seleccionar(gCn.Obj.DameColeccion("Clientes", "WHERE 1 = 1"));
            MsgBox(lObjeto["IdCliente"]);
        }
    }
}