una ayudita!!

[birdez]

hola amigos era para ver si alguien podria ayudarme ya que me gustaria hacer una mezcla de colores en un picturebox y nose como hacerlo
lo q qiero hacer es tener tres hscrollbar con los tres colores primarios verde, rojo y azul y a traves de estas tres barras ir haciendo mezclas en el picturebox para luego poder ponerlo de fondoe de pantalla en otro formulario pro lo q mas me interesa es la mezcla de colores con la funcion Argb o RGB
muchas gracias a todos un saludo y aber si alguien me puede ayudar lo antes posible , gracias!

[MCKSys Argentina]

Usa 3 sliders y los valores de cada uno se los pasas a las funciones que has mencionado...

[birdez]

y como hago eso? sq soy nuevo y no tengo mucha idea
si qereis q os pare el codigo que tengo hasta aora echo no me importa pasarlo x si os peude servir de algo para ayudarme

[MCKSys Argentina]

Suponiendo que tienes un form con 1 picturebox (Picture1) y 3 sliders (Slider1, Slider2 y Slider3).

Y cada slider tiene sus propiedades Min en 0 y Max en 255, en el form pega el siguiente codigo:

Código [Seleccionar] Expandir


Option Explicit

Private Sub Slider1_Change()
setPicColor
End Sub

Private Sub Slider2_Change()
setPicColor
End Sub

Private Sub Slider3_Change()
setPicColor
End Sub

Private Sub setPicColor()
Picture1.BackColor = RGB(Slider1.Value, Slider2.Value, Slider3.Value)
End Sub


Cada vez que desplaces un slider, el color del picture cambiará...

Saludos!

[birdez]

 yo lo q tengo es esto si me puedes ayudar con este codigo q tengo yo pa entenderlo mejor muchas gracias!



Codigo:



Private Sub Form2_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
       HScrollBar1.Value = 0
       HScrollBar2.Value = 0
       HScrollBar3.Value = 0


       
       HScrollBar1.Minimum = 0
       HScrollBar2.Minimum = 0
       HScrollBar3.Minimum = 0

       HScrollBar1.Maximum = 255
       HScrollBar2.Maximum = 255
       HScrollBar3.Maximum = 255


   End Sub

   Private Sub HScrollBar1_Scroll(sender As System.Object, e As System.Windows.Forms.ScrollEventArgs) Handles HScrollBar1.Scroll
       PictureBox1.BackColor = RGB(HScrollBar1.Value, HScrollBar2.Value, HScrollBar3.Value)

   End Sub



lo q pasa q en la parte de PictureBox1.BackColor = RGB(HScrollBar1.Value, HScrollBar2.Value, HScrollBar3.Value) me da error en todos los Hscrollbar