Crear una lista

En este ejemplo se muestra cómo crear una lista personalizada o a través de una consulta a base de datos.

 

 

[wpdm_package id='16271']

 

Sub Form_Load()
end sub

Sub Form_Activate()
'Ejemplo de lista pesonalizada
Controles("lstFuente").additem("Courier new")
Controles("lstFuente").additem("Arial")
Controles("lstFuente").additem("Times New Roman")

if lstFuente ="" then
lstFuente.Text = "Courier New"
end if


'Ejemplo de lista generada desde base de datos
Set rstCliente = CreaRecordSet( "SELECT * FROM clients ", Ambiente.Connection )
Set Clientes.RowSource = rstCliente
Clientes.listfield = "cliente"


end sub