Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: birdez en 12 Diciembre 2011, 21:38 PM

Título: una ayudita!!
Publicado por: birdez en 12 Diciembre 2011, 21:38 PM
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!
Título: Re: una ayudita!!
Publicado por: MCKSys Argentina en 12 Diciembre 2011, 21:43 PM
Usa 3 sliders y los valores de cada uno se los pasas a las funciones que has mencionado...
Título: Re: una ayudita!!
Publicado por: birdez en 12 Diciembre 2011, 21:44 PM
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
Título: Re: una ayudita!!
Publicado por: MCKSys Argentina en 12 Diciembre 2011, 21:55 PM
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:


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!
Título: Re: una ayudita!!
Publicado por: birdez en 12 Diciembre 2011, 22:34 PM
 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