Unir cajas con flechas..

[PatriciaBB]

Hola chicos, apelo a sus conocimientos de Guru para ver si me dan algunas luces o ejemplo de como poder hacer algo así, ose hacer una aplicación en la que pueda adicionar cajas y unirlas con flechas para representar su dependencia jerárquica.



PatriciaBB

[YAcosta]

Yo ni idea.

Y ¿no te interesaria un servicio web gratuito que haga eso?

[Waldo]

Hola, yo te puedo ayudar hasta la parte de poner los bloques y moverlos a gusto, la parte de las flechas te la debo.



cada vez que tocas el boton, crea un nuevo bloque, y lo podes mover

Código: (VB) [Seleccionar]

Option Explicit
Private m_iNewIndex As Integer
Private m_iActIndex As Integer
Private m_bMoving As Boolean
Private m_sgStartX As Single, m_sgStartY As Single

Private Sub Command1_Click()
   
    'agregar un item mas
    m_iNewIndex = m_iNewIndex + 1
   
    'agregar al array de controles
    Load lblBox(m_iNewIndex)
   
    lblBox(m_iNewIndex).Move 2000, 0
   
    lblBox(m_iNewIndex).Caption = " Texto de Prueba" & vbCrLf & " Index: " & m_iNewIndex
   
    'hacerlo visible
    lblBox(m_iNewIndex).Visible = True
   
    lblIndex = "Index: " & m_iNewIndex
   
End Sub

Private Sub lblBox_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
   
    m_sgStartX = X
    m_sgStartY = Y
   
    m_bMoving = True
    m_iActIndex = Index
    lblBox(Index).BackColor = &H8080FF
   
End Sub

Private Sub lblBox_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
   
    'si esta presente el mousedown, moverlo
    If m_bMoving Then
        'mover picture
        lblBox(Index).Left = lblBox(Index).Left + X - m_sgStartX
        lblBox(Index).Top = lblBox(Index).Top + Y - m_sgStartY
    End If
   
End Sub

Private Sub lblBox_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
   
    m_bMoving = False
    lblBox(Index).BackColor = vbHighlight
   
End Sub



https://mega.co.nz/#!a1RTVIAb!ZODy8KYAUFuSstMEac-PltBNXtS776c__-Ij-C2Z2_o

[aedEric]

Hola PatriciaBB si no mal recuerdo codejock incluye un control con el que puedes realizarlo o algo similizar

[aedEric]

se llama el control FlowGraph



pero tambien si no mal recuerdo vi un tema parecido con sonlución no recuero si de Raul o de coco

saludos
desde México