Gdi+ Drawarc

[§uiciDa£]

Galera, como q eu desenho um ARCO...tendo esses pontos

x1,y1,x2,y2 e o raio do arco...existe algum forma de desenhar com esses pontos ??

e o q seria swep angle ???

t+

[Graymalkin]

Se você está utilizando o Visual Studio .NET, note que aparece uma descrição naquele balãozinho amarelo indicando o que é cada um dos parâmetros. Mas, veja esse exemplo:

        Dim superfície As System.Drawing.Graphics = Me.CreateGraphics()
        superfície.DrawArc(New Pen(Color.Black), 0, 0, 100, 100, 100, 100)
        superfície.DrawArc(New Pen(Color.Black), 0, 0, 100, 100, 0, 100)
        superfície.DrawArc(New Pen(Color.Black), 0, 0, 100, 100, 200, 200)

Certo?

Abraços,

Graymalkin

[§uiciDa£]

hum, dexa eu tenta explica melhor cara...

eu to fazendo um programa CNC pra um amigo...

nele você especifica os pontos e o programa vai desenhando

você especifica x e z(q seria Y) até ai sem problemas...

mais tem um comando q desenha curvas, mais apenas são dadas

o x1 e z1 ( q seriam os pontos finais da ultima linha),o x2 e y2 é o usuario q decide... e teria mais o raio do q ele daria...

mais eu to tendo dificuldades pra transformar colocar isto no drawArc...

pois, onde entraria o raio ???

bom, se você tiver algum sugestão, me avise...

t+

[Graymalkin]

Um arco gerado pelo DrawArc é uma parte de uma elipse, e uma elipse não tem raio (no caso, ela é formada a partir de um retângulo). Mas, acredito que você possa utilizar os parâmetros Width e Height para determinar o "raio". Veja este outro exemplo:

        Dim superfície As System.Drawing.Graphics = Me.CreateGraphics()

        superfície.DrawArc(New Pen(Color.Black), 40, 40, 80, 80, 100, 100)
        superfície.DrawArc(New Pen(Color.Black), 40, 40, 80, 80, 0, 100)
        superfície.DrawArc(New Pen(Color.Black), 40, 40, 80, 80, 200, 200)

        superfície.DrawArc(New Pen(Color.Black), 30, 30, 100, 100, 100, 100)
        superfície.DrawArc(New Pen(Color.Black), 30, 30, 100, 100, 0, 100)
        superfície.DrawArc(New Pen(Color.Black), 30, 30, 100, 100, 200, 200)

        superfície.DrawArc(New Pen(Color.Black), 20, 20, 120, 120, 100, 100)
        superfície.DrawArc(New Pen(Color.Black), 20, 20, 120, 120, 0, 100)
        superfície.DrawArc(New Pen(Color.Black), 20, 20, 120, 120, 200, 200)

Certo?

Abraços,

Graymalkin

[§uiciDa£]

vlwww ae Gray...

consegui...

cara agra eu preciso de outra ajuda...

sempre q eu desenho e minimizo o form, o desenhu some...

como q eu faço pro desenhu não sumir ???

ps: sem ser no evento onPaint...

t+

[Graymalkin]

De fato. No VB6 existia a propriedade AutoRedraw no form, que quando habilitada fazia esse trabalho de manter os desenhos no mesmo. Mas, em uma busca no Google, achei essa solução aqui: http://www.vbdotnetheaven.com/Code/Jun2003/2058.asp

Veja se serve aí.

Abraços,

Graymalkin