Injeccion HTML

[Spider-Net]

Hombre, es normal que si solo guardas el valor del Check28 solo te guarde ese valor.

Para que los guarde todos deberías usar por ejemplo un array de CheckBoxes y recorrerlos con un for guardando cada uno de sus valores y hacer lo mismo para cargarlos.

Un saludo!

[SigmaSystem32]

solo que si repito ese codigo para todos los checkboxes todos toman el mismo valor y si hago un array no agarra la fuente igual ya lo intente hice un array para guardar la propiedad text de 2 textbox pero para los checkboxes no se como hacerle xD

[seba123neo]

para un textbox eso funciona bien, pero para muchos tenes que guardar para cada uno el valor, te creas una matriz de checkbox y guardas el valor de cada uno y el indice tambien lo guardas y despues los recuperas con el indice...para guardar o recuperar valores debes recorrer la matriz de checkbox con un simple For...

saludos.

[SigmaSystem32]

osea que en pocas palabras hacer un array con los checkboxes a guardar y cambiarle el valor que tenian muy bien voy a intentarlo cualquier cosita posteo salu2!!

[SigmaSystem32]

me da el mismo error todos los checkboxes toman el mismo valor

Dim i As Integer
For i = 0 To fchat.check.Count
Call SaveSetting(App.EXEName, "CheckBox", "Value", fchat.check(i).Value)

Para GetSetting

Dim i As Integer
For i = 0 To fchat.check.Count
fchat.check(i).Value = GetSetting(App.EXEName, "CheckBox", "Value" & i)

y me da el error xD no se como hacerle

[seba123neo]

o sea primero que nada sin ofender...sabes algo por lo menos? ,te falta en Next del For y te falta el -1 en el Count...

Código [Seleccionar] Expandir

For i = 0 To fchat.check.Count -1
Call SaveSetting(App.EXEName, "CheckBox", "Value", fchat.check(i).Value)
Next i

igualmente se tendria que guardar indice del checkbox tambien para despues poder recuperarlo:

Código [Seleccionar] Expandir

For i = 0 To fchat.check.Count -1
Call SaveSetting(App.EXEName, "CheckBox", "Value" & i, fchat.check(i).Value)
Next i

en teoria con esto te tiene que ir..sino ...

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
    Call Cargar
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Call Grabar
End Sub

Sub Grabar()
    Dim i As Integer
    For i = 0 To Check1.Count - 1
        Call SaveSetting(App.EXEName, "CheckBox", "Check" & i, Check1(i).Value)
    Next
End Sub

Sub Cargar()
    On Error Resume Next
    Dim i As Integer
    For i = 0 To Check1.Count - 1
        Check1(i).Value = GetSetting(App.EXEName, "CheckBox", "Check" & i)
    Next
End Sub

[SigmaSystem32]

Perdon me equivoque si es cierto faltaba el next voy a probarlo aver gracias we (y) xD

[byway]

talvez esto te ayude ... 

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/208-savesetting-getsetting.htm