¿eventos del control line?

winter
15 de Noviembre del 2005
Hola.
Resulta que los controles gráficos "shape" o "Line" no tienen eventos, ¿como puedo en tiempo de ejecucion señalarlos con el raton para por ejemplo borralos?

gopster
15 de Noviembre del 2005
Orale, no habia dado cuenta de eso!!!!

Creo que lo mas sencillo es que hicieras los siguiente:

Cuando pones el shape o line en la forma efectivamente no hay evento click sobre ellos
pero sobre el form SI LO HAY, entonces dentro del evento mouse_down de la forma programa una validacion que verifique las coordenadas del mouse para ver si estan en el espacio de tu shape (para el caso del line, pues no hay area pero si un contorno)
Si el mouse esta dentro de esa area pues que haga lo que tiene que hacer por ejemplo desaparecerlo:

Mira aqui esta el ejemplo de codigo

1. Primero crea un nuevo proyecto
2. Pintale un Shape que se llame Shape1 y tenga forma de rectangulo
3. Escribe este codigo en la forma

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X >= Shape1.Left And X <= Shape1.Left + Shape1.Width And Y >= Shape1.Top And Y <= Shape1.Top + Shape1.Height Then
MsgBox \"Estoy dentro\"
End If
End Sub


Espero que te Sirva
Saludos