VB.NET在PictureBox按指定圆心与直径绘制圆的位置漂移问题修复

圆无理由随机偏移的本质是参数计算顺序完全颠倒+ 变量跨刷新残留导致的逻辑错位，和PictureBox的绘制机制本身无关：

1. 原代码的执行顺序存在致命逻辑断层：
   • 先读入用户输入的圆心X、Y值
   • 拿上一次刷新残留的旧直径值，去计算圆的左上角坐标 sCircleXPos = beginSCircleXPos - sCircleDiameter / 2
   • 坐标计算完成后，才从文本框读入本次的新直径值给sCircleDiameter
2. 这就导致每次触发Paint事件时，计算左上角位置用的直径永远是上一轮的旧值，算出来的偏移量会被存在变量里，成为下一轮计算的基础。哪怕用户完全不修改任何输入，第一次的计算错误会被反复迭代放大，就出现了无理由位移。
3. 之前尝试把变量从Integer改成Single的修改，因为没有调整计算顺序，所以依然解决不了偏移问题——只是把整数截断的误差消掉了，核心的逻辑断层还在。
4. 早期代码里的类型错误（比如把sCenterPointY声明成String）、整数除法的截断误差，也会进一步放大偏移幅度。

• 彻底调整参数读取和计算的先后逻辑：先把所有用户输入的参数（圆心X、圆心Y、直径）全部读入、校验完成，再去计算圆的左上角坐标，切断旧残留值对计算的影响。
• 统一所有坐标、尺寸变量的类型为Single浮点型，消除整数除法的截断误差。
• 增加基础的输入合法性校验，避免非数字、负直径这类异常值导致的绘制错位。

修正后的参考代码 #

' 模块级变量统一为Single类型，修正错误的String类型声明
Dim beginSCircleXPos As Single
Dim beginSCircleYPos As Single
Dim sCircleXPos As Single
Dim sCircleYPos As Single
Dim sCircleDiameter As Single
Dim sCenterPointX As Single
Dim sCenterPointY As Single

' PictureBox Paint 事件逻辑
Private Sub PictureBox1_Paint(sender As Object, e As PaintEventArgs) Handles PictureBox1.Paint
    ' 第一步：所有输入参数先全部读取、校验完成
    If Not Single.TryParse(TextBox1.Text, beginSCircleXPos) Then Exit Sub
    If Not Single.TryParse(TextBox2.Text, beginSCircleYPos) Then Exit Sub
    If Not Single.TryParse(TextBox3.Text, sCircleDiameter) Or sCircleDiameter <= 0 Then Exit Sub

    ' 第二步：参数全部就绪后，再计算圆的左上角坐标，全程使用本次最新的参数
    sCircleXPos = beginSCircleXPos - sCircleDiameter / 2
    sCircleYPos = beginSCircleYPos - sCircleDiameter / 2

    ' 原有绘制逻辑保持不变
    Using path As New GraphicsPath
        path.AddEllipse(sCircleXPos, sCircleYPos, sCircleDiameter, sCircleDiameter)
        sCenterPointX = sCircleXPos + sCircleDiameter / 2
        sCenterPointY = sCircleYPos + sCircleDiameter / 2

        Using brush As New PathGradientBrush(path)
            brush.CenterPoint = New PointF(sCenterPointX, sCenterPointY)
            brush.CenterColor = Color.FromArgb(0, Color.Orange)
            brush.SurroundColors = {Color.Orange}
            brush.FocusScales = PointF.Empty

            e.Graphics.FillRectangle(brush, sCircleXPos, sCircleYPos, sCircleDiameter, sCircleDiameter)
        End Using
    End Using
End Sub

• 不要把绘制用的中间值存在模块级变量里跨Paint事件复用。模块级变量在整个窗体生命周期不会自动清空，每次Paint执行时，所有和位置、尺寸相关的计算，都要基于当前的用户输入重新计算，算完就用，不要把旧值留到下次刷新当计算基础。
• 按钮触发PictureBox1.Refresh()的逻辑完全正常，只要Paint事件里的计算顺序修正，就不会出现随机偏移。

内容的提问来源于stack exchange，提问作者Samor1922