1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Grafos, árvores em VB.net

Discussão em 'Programação' iniciada por K0mA, 16 de Fevereiro de 2009. (Respostas: 3; Visualizações: 3428)

  1. K0mA

    K0mA Power Member

  2. ribeiro55

    ribeiro55 Power Member

    Podes desenhar tudo o que te bem apetecer.
    Só precisas de 90% de imaginação e o resto de matemática.

    Para começares na pedra básica, mete isto no evento PAINT de um form ou num botão, vê o que acontece e tenta retirar informação de como deves fazer.

    Código:
            Dim GR As Drawing.Graphics = Me.CreateGraphics
            Dim Vermelho As New Pen(Color.Red, 2)
            Dim Azul As New Pen(Color.Blue, 2)
    
            GR.DrawEllipse(Azul, New Rectangle(5, 5, 50, 50))
    
            Dim Triangulo As New Drawing2D.GraphicsPath
    
            Triangulo.AddLine(New PointF(60, 55), New PointF(120, 5))
            Triangulo.AddLine(New PointF(120, 5), New PointF(180, 55))
            Triangulo.AddLine(New PointF(60, 55), New PointF(180, 55))
    
            GR.DrawPath(Vermelho, Triangulo)
    
            GR.DrawArc(Vermelho, 0, 0, 60, 60, 0, 180)
    Dessa forma tens acesso aos métodos da forma mais fácil de desenhar. Através do GDI+

    Usei uns quantos métodos para veres, mas existem muitos mais.
    É mais divertido verificar um a um :p.
     
  3. K0mA

    K0mA Power Member

    Obrigado aos dois!!!!!!

    Já agora se mais alguém quiser experimentar o exemplo do ribeiro55

    Código:
    Public Class Form1
    
        Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
            Dim GR As Drawing.Graphics = Me.CreateGraphics
            Dim Vermelho As New Pen(Color.Red, 2)
            Dim Azul As New Pen(Color.Blue, 2)
    
            GR.DrawEllipse(Azul, New Rectangle(5, 5, 50, 50))
    
            Dim Triangulo As New Drawing2D.GraphicsPath
    
            Triangulo.AddLine(New PointF(60, 55), New PointF(120, 5))
            Triangulo.AddLine(New PointF(120, 5), New PointF(180, 55))
            Triangulo.AddLine(New PointF(60, 55), New PointF(180, 55))
    
            GR.DrawPath(Vermelho, Triangulo)
    
            GR.DrawArc(Vermelho, 0, 0, 60, 60, 0, 180)
        End Sub
    
    End Class
    
    
     
    Última edição: 17 de Fevereiro de 2009

Partilhar esta Página