Cita:
Iniciado por yy5aeg 
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
hola erbuson mira probe tu ejemplo y realmente funciona para guadar las configuraciones pero estoy estudiando otro que usa un archivo ini y me gusta tambien pero tengo un problema al tratar de cambiar los colores de los textos mira te pongo el codigo que uso :
este codigo es para hacer el ini
//////////////////////////////////////////////////////////////////
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
/////////////////////////////////////////////////////////////////////////////////////
este para cargar la paleta
With CommonDialog1
.ShowColor
RichTextBox1.BackColor = .Color
End With
////////////////////////////////////////////////////////////////////////////////////////////////////////////
este comando para cargar las preferencias de colores
With cIni
Dim i As Integer
For i = 0 To 2
Call .writeValue(App.Path & "\config.ini", "Colores", "COLOR" & CStr(i), RichTextBox1.BackColor)
Next
End With
Set cIni = Nothing
//////////////////////////////////////////////////////////////////////////////////////////////////
modulo de clase
Option Explicit
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Const CLAVE As String = "Clave"
Const SECCION As String = "Clave"
Function getValue(path_ini As String, SECCION As String, Key As String, Optional Default As Variant = "") As String
On Error GoTo error_handler
Dim buffer As String * 256
Dim ret As Long
ret = GetPrivateProfileString(SECCION, Key, Default, buffer, Len(buffer), path_ini)
getValue = Left$(buffer, ret)
Exit Function
error_handler:
MsgBox Err.Description, vbCritical
End Function
Function writeValue(path_ini As String, SECCION As String, Key As String, Valor As Variant) As String
On Error GoTo error_handler
Dim ret As Long
ret = WritePrivateProfileString(SECCION, Key, Valor, path_ini)
Exit Function
error_handler:
MsgBox Err.Description, vbCritical
End Function
/////////////////////////////////////////////////////////////////
el problema es que no logro hacer cambiar los colores de la data recibida probe con el siguiente codigo
With CommonDialog1
.ShowColor
RichTextBox1.SelColor = .Color
End With
y no me funciona e probado con otros y nada solo logro hacer cambiar el color de los textos diciendole por medio de codigos el color que va a usar pero no puedo hacer para que el color que escoja en la paleta de colores quede fijado la unica manera es que haga click el rich habra la paleta agarre el color y vuelva a hacer click y escriba pero eso no es lo que quiero ya que los datos que recibo es de un server deberian de tomarlos de inmediato pero no logro hacerlo
gracias por tu ayuda
Nota uso un commandialg para llamar a la paleta