
09/07/2004, 09:17
|
 | | | Fecha de Ingreso: julio-2004
Mensajes: 24
Antigüedad: 20 años, 8 meses Puntos: 0 | |
ok, en primer lugar debes saber que tu linea debe ser un objeto activo, esto es, inserta una linea en tu picture p.ej lneLinea(0) y despues vas creando las demás de forma dinámica con el objeto load, metes en un arreglo de objetos las propiedades de cada una de estas, y para moverla, debes hacer un rastreo manual en tu picture con los eventos del mouse basandote en la información de tu arreglo de objetos de lineas, las propiedades de x's y Y's las tomas de tu mouse down y up.
Lineas = Lineas + 1
Load lneLinea(Lineas)
lneLinea(Lineas).Tag = "Linea"
lneLinea(Lineas).X1 = CuadroSel.Left
lneLinea(Lineas).X2 = CuadroSel.Left + CuadroSel.Width
lneLinea(Lineas).Y1 = NodoY
lneLinea(Lineas).Y2 = NodoY
p.ej. para que te des una idea. |