Visual Basic - listbox ayuda por favor

Hola soy nuevo en este foro y me estoy volviendo loco para solucionar esto: Tengo una aplicacion para controlar pedidos con un listbox (se que es mejor un listview pero ...). El caso es que quiero que cada elemento que seleccione de ese listbox se quede tachado, o con un simbolo o algo que lo diferencie de los demas para guardarlo despues en una base de datos y poder recuperar su estado.
espero me podais ayudar por favor. Gracias y un saludo

Hola.

¿La propiedad de estilo de listbox no te sirve?
Luego lo diferencias con list1.selected(indice)= true 'o false segúm lo que vayas necesitando.

Saludos.

soy un poco novato, que es eso de la propiedad de estilo?
en tu ejemplo pone list1.selected(indice)= true que significa lo de indice?.

lo que quiero es que solo se quede remarcada la opcion seleccionada para luego guardarla en una base de datos y asi pofder recuperarla cuando quiera.

me explico, es un listado de pedidos, conforme se van recibiendo, estos se van marcando para ese cliente. cuando se cierra ese cliente y al volver a abrirlo tienen que salir los que ya se habian marvcado. Habia pensado con fontstriletru para los items del listbox que ya estan recibidos.

Ayudame como un novato pues eso es lo que soy y si puedes poner un pequeño ejemplo pues aun mejor, aunque igualmente agradecido

ok.

Los controles tienen propiedades, algunas son ejecutables en tiempo de ejecucion y otras no.

Creas el ListBox en tu formulario, vas a la barra de propiedades y estableces el valor de "Style" como 2 (checkbox), asi tendría una lista de checkboxs.

Private Sub Form_Load()
List1.AddItem "normal"
List1.AddItem "gordo"
List1.AddItem "flaco"
End Sub

Tienes una base de datos con las caracteristicas de un cliente o lo que sea, supongo que son Boolean, que tu BD ya esta abierta y que los campos son 3:
- normal - boolean
- gordo - boolean
- flaco - boolean

if cint(rs_ado_dao_XX.("normal"))= 1 then list1.seleted(0)= true else list1.seleted(0)= false

supongamos que normal fuese 1.
y el usuario decide que no es normal, si no gordo, al momento de guardar pasaria esto:

for i = 0 to list1.listcount
if list1.selected(i)= truen then
..... rutina de guardado o actualizacion del registro
endif
next i

* rs_ado_dao_XX, no se como trabajas tu Base de Datos.
Suerte.

ok.

Los controles tienen propiedades, algunas son ejecutables en tiempo de ejecucion y otras no.

Creas el ListBox en tu formulario, vas a la barra de propiedades y estableces el valor de "Style" como 2 (checkbox), asi tendría una lista de checkboxs.

Private Sub Form_Load()
List1.AddItem "normal"
List1.AddItem "gordo"
List1.AddItem "flaco"
End Sub

Tienes una base de datos con las caracteristicas de un cliente o lo que sea, supongo que son Boolean, que tu BD ya esta abierta y que los campos son 3:
- normal - boolean
- gordo - boolean
- flaco - boolean

if cint(rs_ado_dao_XX.("normal"))= 1 then list1.seleted(0)= true else list1.seleted(0)= false

supongamos que normal fuese 1.
y el usuario decide que no es normal, si no gordo, al momento de guardar pasaria esto:

for i = 0 to list1.listcount
if list1.selected(i)= truen then
..... rutina de guardado o actualizacion del registro
endif
next i

* rs_ado_dao_XX, no se como trabajas tu Base de Datos.
Suerte.

con esto creo que ya lo he pillado Muchas gracias por tu paciencia. Un saludo

ahora ya no entiendo nada, me da un error y no consigo que me funcione.
tengo este codigo

rs.Open "select * from articulos", cn

For i = 0 To List1.ListCount
rs.AddNew
rs.Fields("Nombre") = UCase(Text1)
rs.Fields("codigo") = List1.List(i - 1)
If List1.Selected(i) = True Then
rs.Fields("Pendiente") = "No"
End If
If List1.Selected(i) = False Then
rs.Fields("Pendiente") = "Si"
End If
rs.Update
Next i

rs.Close

la tabla articulo son tres columnas de texto

que puedo hacer o q hago mal?
gracias y un saludo

For i = 0 To List1.ListCount -1

???

no te entiendo, explicate please

Pues donde inicias el FOR, le restes -1 a listCount

Prueba de esa forma, y si lo graba o actualiza pues bien! XD