Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

savesetting/getsetting

Estas en el tema de savesetting/getsetting en el foro de Visual Basic clásico en Foros del Web. Hola, se usar savesetting y getsetting, lo que no logro hacer es guardar con savesetting los items marcados de un listbox con style checkbox, en ...
  #1 (permalink)  
Antiguo 16/08/2009, 10:19
Avatar de A.H.H  
Fecha de Ingreso: mayo-2007
Ubicación: IRUN,(GUIPUZCOA) España
Mensajes: 178
Antigüedad: 17 años
Puntos: 4
savesetting/getsetting

Hola, se usar savesetting y getsetting, lo que no logro hacer es guardar con savesetting los items marcados de un listbox con style checkbox, en un solo registro, lo logro en varios (o igual no se puede).

Código:
 For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Call SaveSetting(App.EXEName, "DIRECCIONES", i, List1.List(i))
End If
Next
con el siguiente codigo logro que me guarde SOLO los checkbox señalados del listbox en el registro, pero me los guarda en lista
como puedo hacer para que me los guarde en un solo registro, pruebo quitando la , i , de la frase -> Call SaveSetting(App.EXEName, "DIRECCIONES" i, List1.List(i))
pero si la quito solo me guarda el ultimo.

otra duda:

como recogo con getsetting la informacion guardada para que en el listbox con style checkbox se señalen las casillas?

Última edición por A.H.H; 16/08/2009 a las 11:42 Razón: otra duda
  #2 (permalink)  
Antiguo 16/08/2009, 13:12
 
Fecha de Ingreso: mayo-2009
Mensajes: 238
Antigüedad: 15 años
Puntos: 7
Respuesta: savesetting/getsetting

Esta complicado, te doy una idea aunque quiza no sea buen.
Todos los valores que esten con el check seleccionado guardalo en un textbox separados por comas o lo que quieras, luego guardas el textbox con el savesetting.
Para recuperar recorres el List y activas los check que concuerden con lo que guardaste en el texbox, esto en caso los valores de la lista siempre sean los mismos, es una idea nada mas, no sabria aplicarlo
  #3 (permalink)  
Antiguo 16/08/2009, 13:38
Avatar de A.H.H  
Fecha de Ingreso: mayo-2007
Ubicación: IRUN,(GUIPUZCOA) España
Mensajes: 178
Antigüedad: 17 años
Puntos: 4
Respuesta: savesetting/getsetting

es buena idea, aunque igual me he explicado mal.
bueno en teoria lo que quiero hacer es guardar con savesetting , todos los items que esten seleccionados del listbox con style checkbox y despues cuando corra de nuevo el programa, con getsetting volverle a poner los valores guardados a los checkbox del listbox.

Con este codigo guardo todos los seleccionados en el registro

Código:
For i = 0 To List1.ListCount - 1
If List1.Selected(i) = True Then
Call SaveSetting(App.EXEName, "DIRECCIONES", i, List1.List(i))
End If
Next
Como puedo hacer para que al correr el programa de nuevo el listbox vuelva a tener seleccionados los items que guarde anteriormente.?
no consigo recogerlos con getsetting, quizas los estoy guardando mal.
  #4 (permalink)  
Antiguo 21/08/2009, 16:24
Avatar de A.H.H  
Fecha de Ingreso: mayo-2007
Ubicación: IRUN,(GUIPUZCOA) España
Mensajes: 178
Antigüedad: 17 años
Puntos: 4
Respuesta: savesetting/getsetting

Hola ya lo solucione con GetAllSettings(appname, section)
que recoge todos los valores guardados con savesetting.
despues recorro el listbox con dos bucles y ya me quedan marcados al correr el programa, todos los items que estaban elegidos al cerrar el programa y guardar.
dejo el codigo por si ha alguien le interesa............

Código:
'LISTBOX CON STYLE CHECKBOX'
'DEJAR MARCADOS LOS ITEMS GUARDADOS ANTERIORMENTE AL CERRAR'
'AL INICIO DEL PROGRAMA'

variable = GetAllSettings(App.EXEName, "DIRHORACONCRETA") 'introducimos en la variable todos los valores '
If Not IsEmpty(variable) = True Then 'esto es por si en el registro la variable esta vacia si no daria error '
For N = 0 To List1.ListCount - 1 'recorremos el listbox'
For i = 0 To UBound(variable, 1) ' recorremos la variable'
If variable(i, 1) = List1.List(N) Then 'si el contenido de las lineas de la variable coincide con el de las lineas del list del listbox'
List1.Selected(N) = True 'entonces dejarlas marcadas'
End If
Next
Next
End If


salu2
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:47.