Programación General > Visual Basic para principiantes

 Utilizar La Paleta De Colores

(1/4) > >>

BoRJiS182:
Hola mi siguiente practica tengo que hacer una paleta de colores y los colores señalados en ella tienen que aparecer en un fondo o en las letras segun elija....todo va con matrices.
Os paso los codigos para ver si sabeis orientarme como puedo hacer para seleccionar los colores y que se plasmen en el proyecto....espero haberme exxplicado bien...xDDD
Un saludo!


Option Explicit
Public Brojo As Integer
Public Bverde As Integer
Public Bazul As Variant
Public FRojo As Integer
Public Fverde As Integer
Public Fazul As Variant

Private Sub cmdColores_Click()
Me.CommonDialog1.ShowColor
End Sub

Private Sub cmdSalir_Click()
    End
End Sub

Private Sub Form_Load()
    Brojo = 0
    Bverde = 0
    Bazul = 0
    FRojo = 255
    Fverde = 255
    Fazul = 255
    lblCuadro.BackColor = RGB(Brojo, Bverde, Bazul)
    lblCuadro.ForeColor = RGB(FRojo, Fverde, Fazul)
End Sub

Private Sub hsbColor_Change(Index As Integer)
    If optColor(0).Value = True Then
        lblCuadro.BackColor = RGB(hsbColor(0).Value, hsbColor(1).Value, hsbColor(2).Value)
        Dim i As Integer
        For i = 0 To 2
            txtColor(Index).Text = hsbColor(Index).Value
        Next i
    Else
        lblCuadro.ForeColor = RGB(hsbColor(0).Value, hsbColor(1).Value, hsbColor(2).Value)
        For i = 0 To 2
            txtColor(Index).Text = hsbColor(Index).Value
        Next i
    End If
End Sub

Private Sub optColor_Click(Index As Integer)
    If Index = 0 Then
        Brojo = hsbColor(0).Value
        Bverde = hsbColor(1).Value
        Bazul = hsbColor(2).Value
        hsbColor(0).Value = FRojo
        hsbColor(1).Value = Fverde
        hsbColor(2).Value = Fazul
    Else
        FRojo = hsbColor(0).Value
        Fverde = hsbColor(1).Value
        Fazul = hsbColor(2).Value
        hsbColor(0).Value = Brojo
        hsbColor(1).Value = Bverde
        hsbColor(2).Value = Bazul
    End If
End Sub

Private Sub txtColor_Change(Index As Integer)
    If Val(txtColor(Index).Text) > 255 Then
        hsbColor(Index).Value = 255
    End If
hsbColor(Index).Value = Val(txtColor(Index).Text)
   
End Sub




Tambien tengo que poder escribir en las cajas de texto y que se muevan las barras segun el valor escrito...

ArKaNtOs:
unas dudas:

Creo que no es muy entendible lo que deseas realizar ¿Podrías explicarte mejor?, y otra, ¿para que muestras la paleta de colores con el commondialog y nunca recoges el valor?  :unsure:

yo creo que ya que te expliques mejor, vamos a poder ayudarte, ya que parece algo simple :)

BoRJiS182:
si,a ver,es parte del programa,tengo que poder mostrar la paleta de colores,mediante un commandbutton.
Cuando le pulsas aparece ésta y tienes que darle la instruccion a base de los eventos del codigo...que cuando cliques en un color de la paleta aparezca en el label que tengo para recoger los colores....(es bastante simple)lo unico que no se el codigo para que esta funcione....pero no tiene mas misterio!
Solo es averiguar el codigo para que cuando pinches en un color aparezca en el label....
Espero que ahora se entienda mejor:)

Gracias!

ArKaNtOs:
lo que deseas es recoger el color que se selecciono del showcolor? si es asi es simple:

Private Sub Command1_Click()
CommonDialog1.ShowColor
Label1.BackColor = CommonDialog1.Color
End Sub

Prueba eso :D

BoRJiS182:
Muchas gracias!!!!!!!!!!!!la idea me quedo clara,como tambien tenía unas letras tenía que añadirle unas cosillas mas pero ya esta todo bien....o eso espero!!!!!!!
Muchisimas gracias!


Lo unico que se me esta resistiendo es lo de escribir los valores en las cajas de texto,en otras practicas lo logré pero en esta no se que pasa que no se me escriben.Podríais ayudarme en eso?



MUchas gracias

Navegación

[0] Índice de Mensajes

[#] Página Siguiente