DESENHAR ELIPSE GRADIENT

FABRICIOWEB 26/08/2017 17:36:50
#476037
alguem sabe como fazer drawline para ficar assim
estou fazendo dessa forma mas não fica em 3 d assim

estou fazendo assim o draw
x2 = point.X
y2 = point.Y
g.DrawLine(myPen, CInt(x2 / scaleXY), CInt(y2 / scaleXY), CInt(x1 / scaleXY), CInt(y1 / scaleXY))

x1 = point.X
y1 = point.Y
DS2T 26/08/2017 17:50:23
#476038
Seu parâmetro Pen deverá ser construído com base em um objeto LinearGradientBrush.
No próprio construtor do Pen você consegue passar esse objeto.

O LinearGradientBrush é instanciado passando dois pontos e duas cores diferentes.
FABRICIOWEB 26/08/2017 18:05:37
#476039
ja tentei tudo
mas não sei como fazer
FABRICIOWEB 27/08/2017 16:12:10
#476045
[txt-color=#e80000]preciso colocar aquele efeito aqui nesse draw alguem pode me ajudar

o codigo do draw circulo realista [/txt-color]

Imports System.Drawing.Drawing2D

Public Class Form1
Private Sub Form1_Paint(sender As Object, e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = e.Graphics
Dim gp As New GraphicsPath
Dim radius As Single = 200

gp.AddEllipse(-radius, -radius, 2 * radius, 2 * radius)

Dim pgb As New PathGradientBrush(gp)
Dim b As New Blend
b.Positions = {0.0, 0.15F, 0.3F, 1.0F} [ô]position of gradient reference 0.0 (edge) to 1.0 (center) of path
b.Factors = {0.1F, 0.9F, 0.1F, 0.0} [ô]percentage of center color/Surround color for each position

pgb.Blend = b
pgb.CenterColor = Color.FromArgb(255, Color.Yellow)
pgb.SurroundColors = {Color.Black} [ô]array of 1,
Dim pathPen As New Pen(pgb, 120)

g.TranslateTransform(210, 210)
g.DrawPath(pathPen, gp)
pathPen.Dispose()
pgb.Dispose()
gp.Dispose()
End Sub
End Class

[txt-color=#e80000]mas precisaria fazer nesse codigo[/txt-color]

x2 = point.X
y2 = point.Y
g.DrawLine(myPen, CInt(x2 / scaleXY), CInt(y2 / scaleXY), CInt(x1 / scaleXY), CInt(y1 / scaleXY))

x1 = point.X
y1 = point.Y
Tópico encerrado , respostas não são mais permitidas
Voltar