Jump to content

desenhar uma linha con o GDI+ do VB.NET


diogoarsousa
 Share

Recommended Posts

Obrigado, fLaSh_PT

Não se consegue aceder ao site que me indicou.

O que é que falta ou está mal aqui?:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Call diogo()

    End Sub


    Private Sub diogo(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        Dim g As Graphics

        g.DrawLine(Pens.Magenta, 3, 2, 200, 150)

    End Sub
Link to comment
Share on other sites

Já agora deixo-te mais uma dica, para os desenho grande ou complexos dá jeito organizar o desenho em várias rotinas para isso usa o seguinte código:

Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        subDesenhaLixo(e.Graphics)
        subDesenhaMaisLixo(e.Graphics)
End Sub

Private Sub subDesenhaLixo(g As Graphics)
' Código para desenhar o que quiseres
       g.DrawLine(Pens.Blue, 50, 50, 200, 300)
End Sub

Private Sub subDesenhaMaisLixo(g As Graphics)
' Código para desenhar o que quiseres
End Sub

(Estou a escrever de cor, não testei)

Outra vantagem, além da divisão por sub-rotinas, é que podes acrescentar na definição da rotina coordenadas ou dimensões, e desenhar várias vezes o mesmo desenho em posições e tamanhos diferentes.

Ricardo Timóteo

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.