16,554
社区成员
发帖
与我相关
我的任务
分享
Dim g As Graphics = PictureBox1.CreateGraphics
Dim mypen As Pen = New Pen(Color.DarkRed, 7)
Dim bpen As Pen = New Pen(Color.Black, 2)
Dim x, x1, y, y1 As Integer
x = 70 : y = x * 2
x1 = x * 2 : y1 = x1 * 1.5
Using g
bpen.DashStyle = Drawing2D.DashStyle.DashDot
g.DrawEllipse(mypen, x, x, y, y)
g.DrawLine(bpen, x, y, y1, x1)
g.DrawLine(bpen, y, x, x1, y1)
End Using
狙击枪的准星外圆有多大准星会自适应圆大小.