Desenhar Linha

[Guest vbbb]

ae galera, como eu desenho uma lionha no vb.net...

no vb6 era facil, mas e no vb.net ??

vlw

[Graymalkin]

Segue um exemplo:

Me.CreateGraphics().DrawLine(New Drawing.Pen(Color.Black), 100, 100, 200, 100)

Abraços,

Graymalkin

[Guest Guest]

cara

nesse seue xmplo, ele cria varias linhas, como eu faço pra ele criar apenas uma linha, e essa linha se mexer junto com o mouse

tipo

Me.CreateGraphics().DrawLine(New Drawing.Pen(Color.Black), 100, 100, e.X,e.Y)

apenas com uma linha ??

(sem criar varias)

té

[Graymalkin]

nesse seue xmplo, ele cria varias linhas, como eu faço pra ele criar apenas uma linha

Várias linhas??? Não, o código acima só cria uma única linha. Agora para mexer junto com o mouse vou ter que fazer uns testes depois (não estou no meu computador agora). Mas, você quer uma linha com um ponta fixa e que a outra ponta fique onde o cursor do mouse está? Ou seria uma linha vertical/horizontal que seria carregada pelo cursor?

Abraços,

Graymalkin

[Guest Guest]

me expressei mal

tipo assim, eu coloquei ele no mouseMove, ou seja sempre q o mouse mexe, ele cria uma nova linha, eu gostaria, de q ele tivese um eixo fixo (100,100 ex) e dae , o x2 e y2, ficase aonde o mouse se mexese ...

t+

[Graymalkin]

Seu código está certo. Você só tem que limpar a tela a cada vez que ele for executado (antes de desenhar a linha), ou seja:

Me.CreateGraphics().Clear(Me.BackColor)
Me.CreateGraphics().DrawLine(New Drawing.Pen(Color.Black), 100, 100, e.X, e.Y)

Abraços,

Graymalkin

[§uiciDa£]

Aproveitando o tópico xP

da uma ajuda aew gray xP

tipo o q tem de errado nesse comando pra desenha um circulo

Dim i As System.Drawing.Drawing2D.GraphicsPath
        Me.painel.CreateGraphics().DrawPath(New Drawing.Pen(Color.RosyBrown), i.AddEllipse(150, 150, 20, 20))

ele retorna isso

"Expression does not produce a value"

t+

[Graymalkin]

tipo o q tem de errado nesse comando pra desenha um circulo

Duas coisas: GraphicsPath é um tipo, por isso você deve instânciá-lo (com a palavra chave New); AddEllipse realmente não retorna valor algum, e você deve passar o "i" para o segundo parâmetro do DrawPath(). O código correto é:

        Dim i As New System.Drawing.Drawing2D.GraphicsPath()
        i.AddEllipse(150, 150, 20, 20)
        Me.Painel.CreateGraphics().DrawPath(New Drawing.Pen(Color.RosyBrown),  i)

Abraços,

Graymalkin