Ver Mensaje Individual
  #5 (permalink)  
Antiguo 29/05/2006, 08:44
mcamo
 
Fecha de Ingreso: mayo-2006
Mensajes: 29
Antigüedad: 19 años
Puntos: 0
Sigue la info

Hola Piojoman
Imaginate un circuito de agua y una llave de paso.
Pues bien, yo creo un Proyecto en VB, llamémosle Proyecto1.
Agrego un formulario, llamémosle Form1.
Agrego un Control de usuario, llamémosle UserControl1. Este control
es el que luego pretendo usar despues en el formulario.
Este control se compone de un Shape circulo. Dentro del circulo estan tres botones,
BtnIzquierda, BtnDerecha, BtnCerrado y tres Shapes mas en forma de rectángulo para
indicar la dirección que tomaría el agua si pulso algun boton (a los cuales les podemos
llamar VerfCerrado, VerfIzqda, VerfDcha). Al inicializarse el UserControl el VerfCerrado.Visible
estará en True y los demas en False.
Si pulso en el BtnDerecha el Shape VerfDcha.Visible = true y los demas en False.
Si pulso en el BtnIzquierda, VerfIzqda.Visible en true y los demas en False, etc...

Private Sub BtnCerrado_Click()
VerfCerrado.Visible = True
VerfDcha.Visible = False
VerfIzqda.Visible = False
End Sub

Private Sub BtnDerecha_Click()
VerfCerrado.Visible = False
VerfDcha.Visible = True
VerfIzqda.Visible = False
End Sub

Private Sub BtnIzquierda_Click()
VerfCerrado.Visible = False
VerfDcha.Visible = False
VerfIzqda.Visible = True
End Sub

Private Sub UserControl_Initialize()
VerfCerrado.Visible = True
VerfDcha.Visible = False
VerfIzqda.Visible = False
End Sub

Despues introduzco este UserControl1 en Form1 y le llamo Llave1. Dibujo a su lado
derecho una Line que puedo llamar Line1 y a su lado izquierda otra Line que puedo llamar Line2.
Yo pretendo que al pulsar el BtnDerecha de Llave1 me coloree la Line1 de rojo por ejemplo.
Si pulso el BtnIzquierda de Llave1 me coloree Line2 de rojo y si pulso BtnCerrado se cierra el
circuito y se colorearían las dos Lines de negro otra vez.

Lo que no consigo hacer es recoger en Form1 los eventos generados al pulsar en los botones de Llave1
para que me coloree Line1 ó Line2

Agradezco tu gran paciencia conmigo pues soy novato en VB.