Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: PatriciaBB en Septiembre 21, 2014, 10:29:03 pm

Título: Unir cajas con flechas..
Publicado por: PatriciaBB en Septiembre 21, 2014, 10:29:03 pm

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.

(http://camerinodb2.wdfiles.com/local--files/practice/Esse3schema.jpg)

PatriciaBB

Título: Re:Unir cajas con flechas..
Publicado por: YAcosta en Septiembre 21, 2014, 11:25:47 pm

Yo ni idea.

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

Título: Re:Unir cajas con flechas..
Publicado por: Waldo en Septiembre 23, 2014, 05:26:54 pm

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

(http://i57.tinypic.com/1111qpy.jpg)

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

Título: Re:Unir cajas con flechas..
Publicado por: aedEric en Septiembre 23, 2014, 09:52:42 pm

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

Título: Re:Unir cajas con flechas..
Publicado por: aedEric en Septiembre 23, 2014, 09:56:28 pm

se llama el control FlowGraph

(http://i62.tinypic.com/1y8pd2.jpg)

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