Question

vb2005 画图问题

Dim Graphicsfun As System.Drawing.Graphics
Graphicsfun = Me.CreateGraphics
Dim pencolor As New System.Drawing.Pen(System.Drawing.Color.Indigo)
Graphicsfun.DrawEllipse(pencolor, 0, 0, 480, 480)
Graphicsfun.DrawLine(pencolor, x, y, 240, 240)
Graphicsfun.DrawLine(pencolor, x1, y1, 240, 240)
Graphicsfun.DrawLine(pencolor, x2, y2, 240, 240)

现在想把
Graphicsfun.DrawLine(pencolor, x1, y1, 240, 240)
Graphicsfun.DrawLine(pencolor, x2, y2, 240, 240)
这两条线的颜色跟粗细改掉。具体怎么做。

Answer 1

Graphicsfun.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias : pencolor.Color = Color.Blue : pencolor.Width = 5
Graphicsfun.DrawLine(pencolor, 100, 20, 240, 240)
Graphicsfun.DrawLine(pencolor, 50, 30, 240, 240)

Answer 2

应该是把pencolor改掉~