ayuda con paletas de colores

[erbuson]

Hola:

En primer lugar, efectivamente si conoces los ficheros ini te va a resultar muchísimo mas facil, aunque no entiendo el sentido este código:

Set cIni = New cIni
With cIni
Dim i As Integer
For i = 0 To 2
RichTextBox1.BackColor = .getValue(App.Path & "\config.ini", "Colores", "COLOR" & CStr(i), 0)
Next
End With

Entiendo que estas leyendo de la seccion [Colores] los valores memorizados en COLOR0, COLOR1 y COLOR2 y en un bucle ¿ los asignas a BackColor ? no se lo que pretendes pero esto no va a funcionar ya que BackColor sólo va a reconocer el tercer valor que es el último que se le ha asignado.

Te lo comento porque antes de nada deberías aclarar esta idea ya que tal vez por ahí está el quid de la cuestión.

Me atrevo a pensar que el ciclo de 0,1,2 pueda ser por el Rojo, Verde, Azul pero si asi fuera, el error está en que BackColor es de por si un número que identifica a éste color.

Lo mismo ocurre en el Call .writeValue(App.Path & "\config.ini", "Colores", "COLOR" & CStr(i), RichTextBox1.BackColor) ya que estas guardando aunque con distinto nombre las tres veces el mismo Valor.

Intenta aclarar este punto antes de seguir porque como te decia mucho me temo que esta duda sea parte del error.

Saludos