Programación General > Visual Basic para principiantes

 Utilizar La Paleta De Colores

<< < (3/4) > >>

F_Tanori:
ok mira disculpa mi mala expresion

lo que quiero decir esque el CommonDialog te devuelve el color seleccionado en un Long (CommonDialog1.Color) entonces en el procedimiento



Private Sub cmdColores_Click()
 Me.CommonDialog1.ShowColor
 If optColor(0).Value = True Then
    lblCuadro.BackColor = CommonDialog1.Color
  ElseIf optColor(1).Value = True Then
      lblCuadro.ForeColor = CommonDialog1.Color
  End If
 
   Long_a_RGB(CommonDialog1.Color)
 
End If
End Sub

Mandas llamar una funcion para convertir el Long a RGB que es la siguiente:

------
Private Sub Long_a_RGB(ByVal Color)
 Dim Rojo As Byte, Verde As Byte, Azul As Byte

 Azul = (Color And 16711680) / 65536
 Verde = (Color And 65280) / 256
 Rojo = Color And 255

'// Cada Color lo colocas en la barra correspondiente
   hsbColor(0).Value = Rojo
   hsbColor(1).Value = Verde
   hsbColor(2).Value = Azul

End Sub
----------

Para que cuando pulses un option el color se base en los valores de las barras, que seran el ultimo seleccionado

Me explique mejor ? o salio peor?? :P
Saludos

BoRJiS182:
Ohhhhhhhhhhhhhh!!!!!!!!!!!!!!!!si muchisimas gracias!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PAra terminar.....para poder escribir en las cajas de texto...y que se me muevan las barras de desplazamientos???serías tan amable de explicarmelo....es que lo hice para otros trabajos,pero esta vez no se si es diferente por ir con matrices,pero no me funciona.....


De nuevo muchisimas gracias!

F_Tanori:
Claro pero el que no entiende ahora soy yo :P

que es lo que quieres hacer?

 :rolleyes:

BoRJiS182:
jejeje xDD


Pues,veras,tengo que poder escribir en las cajas de texto que tengo en la practica,las que me dicen los valores de las barras(de 0 a 255)ahi tengo que poder escribir,y que se mueva cada correspondiente barra...por ahora solo me dan los valores cuando muevo las barras pero no puedo introducir ningun dato.

Adjunto la foto de nuevo a ver si asi se puede entender mejor la explicacion.

F_Tanori:
Esto te puede servir



--- Código: Text --- Private Sub hsbColor_Change(Index As Integer)On Error Resume Next     Me.txtColor(Index) = Me.hsbColor(Index).ValueEnd Sub Private Sub txtColor_Change(Index As Integer)On Error Resume Next    Me.hsbColor(Index).Value = Val(Me.txtColor(Index))End Sub Private Sub txtColor_KeyPress(Index As Integer, KeyAscii As Integer)  If Not IsNumeric(Chr(KeyAscii)) And KeyAscii &#60;&#62; 8 Then    KeyAscii = 0  End IfEnd Sub 
Aqui hay mas validaciones para solo permitir numero en los textbox

http://foros.solocodigo.com/index.php?showtopic=24250&hl=

Saludos

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior