LISTBOX

sergio
23 de Julio del 2004
AYUDA PARA UN PRINCIPIANTE,

COMO PUEDO AGREGAR DATOS A UN LISTBOX
QUISIERA QUE ME MANDARAN UN EJEMPLO POR FA

SALUDOS DESDE MONTERREY, MEXICO

Cristian
23 de Julio del 2004
Hola
Bueno para agregar elementos a u LixtBox es:

ListBox1.AdddItem "Enero"
ListBox1.AdddItem "Febrero"
ListBox1.AdddItem "Marzo"
ListBox1.AdddItem "Abril"

Lo que esta etre comillas es lo que se va a agregar
tabien puedes agregar variables

Dim Pais as String
Pais= "Colombia"
ListBox1.AdddItem Pais

Saludos

Visita www.theemulator.tk (Emuladores y Roms)

semperfimxl
23 de Julio del 2004
list1.Clear ' limpiar cualquier contenido previo del listbox
oRecordset.MoveFirst
do while not orecordset.eof
list1.additem orecordset.fields("Campo1")
orecordset.movenext
loop
if list1.listcount > 0 then 'si se cargo algun valor ...
list1.listindex = 0 'seleccionar el primero de la lista...
end if
'++++++++++++

Otro ejemplo:

list1.clear 'limpiar contenido previo del listbox

list1.additem "Aguascalientes"
list1.additem "Baja California"
list1.additem "Campeche"
list1.additem "Nuevo Leon"
list1.additem "Zacatecas"

list1.listindex = 0 ' seleccionar el primer item de la lista

'++++++++
Posteriormente en tu codigo usas el evento _CLICK del listbox para ejecutar la accion que corresponda una vez que el usuario haga click en algun elemento de la lista...

Private Sub list1_Click()
msgbox "El usuario ha seleccionado " & vbcrlf & _
list1.list(list1.listindex)
End Sub