Ver Mensaje Individual
  #2 (permalink)  
Antiguo 09/07/2004, 09:17
Avatar de EL_MVM
EL_MVM
 
Fecha de Ingreso: julio-2004
Mensajes: 24
Antigüedad: 19 años, 10 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.