ayuda con paletas de colores

[erbuson]

Hola, suponiendo que el fondo que vemos es un TextBox multiline, podrías tener estas dos rutinas:

Código vb:

Private Sub GuardarColores()
  ' Guarda los Colores de la configuración (Suponiendo que es un Text multiline)
  Dim nFichero As Integer
  nFichero = FreeFile
  Open App.Path & "\Colores.cfg" For Output As #nFichero
    Print #nFichero, Text1.ForeColor
    Print #nFichero, Text1.BackColor
  Close #nFichero
End Sub
 

Código vb:

Private Sub CargarColores()
  ' Carga los Colores de la configuración (Suponiendo que es un Text multiline)
  Dim nFichero As Integer, nColor As Single
  On Error Resume Next
  nFichero = FreeFile
  Open App.Path & "\Colores.cfg" For Input As #nFichero
    Input #nFichero, nColor: Text1.ForeColor = nColor
    Input #nFichero, nColor: Text1.BackColor = nColor
  Close #nFichero
End Sub
 

Evidentemente deberás crear un Selector de Colores para que el usuario decida que colores quiera y después un Boton para guardar sus preferencias.

En el FormLoad ejecutas el CargarColores y listo.

Es una posibilidad entre tantas, ficheros Ini, Registro de Windows, pero tal vez esta sea mas simple y facil de implementar.

Saludos