Guardar Colores Personalizados
Publicado por Ariel (16 intervenciones) el 29/04/2010 02:07:17
quiero hacer un sistema en el cual el usuario puede elegir el color de los botones, el tema es como guardo el backcolor en una bd o en archivo de texto?
lo que hice es esto pero obvio q no funciona, osea me guarda por ejemplo un numero asi 15405322 que seria un azul=235 rojo=10 verde=17 en rgb.
Private Sub Command2_Click()
Dim rsborde_boton As New ADODB.Recordset
Dim sqlboton As String
Borde_boton = txtborde_boton.Text
Color_boton = Picture1.BackColor
sqlboton = "update opciones_boton set borde=" & Borde_boton & ", color='" & Picture1.BackColor & "' where id=1"
rsborde_boton.CursorLocation = adUseClient
rsborde_boton.Open sqlboton, cn1, adOpenDynamic, adLockPessimistic
como le puedo asignar este valor a el bakcolor de los botones?
lo que hice es esto pero obvio q no funciona, osea me guarda por ejemplo un numero asi 15405322 que seria un azul=235 rojo=10 verde=17 en rgb.
Private Sub Command2_Click()
Dim rsborde_boton As New ADODB.Recordset
Dim sqlboton As String
Borde_boton = txtborde_boton.Text
Color_boton = Picture1.BackColor
sqlboton = "update opciones_boton set borde=" & Borde_boton & ", color='" & Picture1.BackColor & "' where id=1"
rsborde_boton.CursorLocation = adUseClient
rsborde_boton.Open sqlboton, cn1, adOpenDynamic, adLockPessimistic
como le puedo asignar este valor a el bakcolor de los botones?
Valora esta pregunta
0