LISTBOX
AYUDA PARA UN PRINCIPIANTE,
COMO PUEDO AGREGAR DATOS A UN LISTBOX
QUISIERA QUE ME MANDARAN UN EJEMPLO POR FA
SALUDOS DESDE MONTERREY, MEXICO
COMO PUEDO AGREGAR DATOS A UN LISTBOX
QUISIERA QUE ME MANDARAN UN EJEMPLO POR FA
SALUDOS DESDE MONTERREY, MEXICO
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)
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)
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
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