ayuda con paletas de colores

[yy5aeg]

Iniciado por 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

Hola erbuson muchas gracias por responde tan rapido no es un textbox es un RichTextBox pero igual funcionaria solo tendria que hacer unos cambios muy bien gracias lo pondre en practica