diogoarsousa Posted October 21, 2009 at 11:11 AM Report Share #292674 Posted October 21, 2009 at 11:11 AM Boa tarde, Tenho em VB.NET (2002) um Form1 e um Button1 Gostaria de ver todo o código necessário para que clicando no botão fosse desenhada uma linha no Form1 (recorrendo ao GDI+) Mas, por favor, gostaria de ver o código completo. Estou algo confuso e isto ir-me-ia ajudar bastante. Obrigado Diogo Sousa Link to comment Share on other sites More sharing options...
fLaSh_PT Posted October 21, 2009 at 11:53 AM Report Share #292682 Posted October 21, 2009 at 11:53 AM Boas; Aqui encontras um bom tutorial: http://www.vbdotnetheaven.com/UploadFile/mahesh/GdiPlusBiggeners04272005015358AM/GdiPlusBiggeners.aspx Compr. Making the impossible possible and pwing the world on db at a time. Link to comment Share on other sites More sharing options...
diogoarsousa Posted October 21, 2009 at 01:54 PM Author Report Share #292702 Posted October 21, 2009 at 01:54 PM 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 More sharing options...
Gooden Posted October 21, 2009 at 03:12 PM Report Share #292717 Posted October 21, 2009 at 03:12 PM Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint Dim g As Graphics = e.Graphics g.DrawLine(Pens.Blue, 0, 0, Me.Width, Me.Height) End Sub Link to comment Share on other sites More sharing options...
diogoarsousa Posted October 22, 2009 at 08:22 AM Author Report Share #292837 Posted October 22, 2009 at 08:22 AM Muito obrigado Gooden. Resolveu-me o problema. Abraço Diogo Link to comment Share on other sites More sharing options...
nokPT Posted October 22, 2009 at 09:39 AM Report Share #292844 Posted October 22, 2009 at 09:39 AM 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 More sharing options...
Gooden Posted October 22, 2009 at 09:57 AM Report Share #292846 Posted October 22, 2009 at 09:57 AM diogoarsousa por favor quando estiver resolvido dá o tópico como resolvido =) Não tens que agradecer 😉 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now