C# 将单选按钮中包含的小圆（点）的颜色更改为红色？

在使用VB.NET或C#的Winform应用程序中，如何将单选按钮中包含的小圆（点）的颜色更改为红色

尊敬与感谢， 德维

============================================================================
我会和大家分享，可能对别人有用。这个程序有效

Imports System.Drawing.Drawing2D

Public Class Form1

Public Class MyRadioButton
    Inherits RadioButton

    Private m_OnColor As Color
    Private m_OffColor As Color

    Public Sub New(ByVal On_Color As Color, ByVal Off_Color As Color)
        m_OnColor = On_Color
        m_OffColor = Off_Color
        SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        BackColor = Color.Transparent
    End Sub

    Public Property OnColor() As Color
        Get
            Return m_OnColor
        End Get
        Set(ByVal value As Color)
            m_OnColor = value
        End Set
    End Property

    Public Property OffColor() As Color
        Get
            Return m_OffColor
        End Get
        Set(ByVal value As Color)
            m_OffColor = value
        End Set
    End Property

    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        MyBase.OnPaint(e)

        Dim g As Graphics = e.Graphics
        g.SmoothingMode = SmoothingMode.AntiAlias

        Dim dotDiameter As Integer = ClientRectangle.Height - 17
        Dim innerRect As New RectangleF(1.8F, 7.8F, dotDiameter, dotDiameter)

        If Me.Checked Then
            g.FillEllipse(New SolidBrush(OnColor), innerRect)
        Else
            g.FillEllipse(New SolidBrush(OffColor), innerRect)
        End If

        g.DrawString(Text, Font, New SolidBrush(ForeColor), dotDiameter + 17, 1)
    End Sub

End Class


Dim objRadio As New MyRadioButton(Color.Blue, Color.Red)

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    objRadio.Location = New Point(100, 100)
    objRadio.Visible = True
    Me.Controls.Add(objRadio)
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    If objRadio.Checked Then
        objRadio.Checked = False
    Else
        objRadio.Checked = True
    End If
End Sub


End Class

winforms示例：所有者绘制的列表框，模拟可用于所需内容的单选按钮列表

---

编辑：是一个更深入的Winforms自定义控件示例。

我以OP的VB代码为基础，并提供了一些MSDN帮助，帮助您使用为C#开发的这个类。下图中的绿色和红色按钮使用的是我的代码，两个蓝色按钮是常规版本

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Drawing;
using System.Drawing.Drawing2D;

namespace WindowsFormsApplication1
{
    public class ColouredRadioButton : RadioButton
    {
        // Fields
        private Color m_OnColour;
        private Color m_OffColour;
        private Rectangle m_glint;
        private Rectangle m_circle;
        private PathGradientBrush m_flareBrush;
        private Pen m_outline;

        // Properties
        public Color OnColour
        {
            get
            {
                return m_OnColour;
            }
            set
            {
                if ((value == Color.White) || (value == Color.Transparent))
                    m_OnColour = Color.Empty;
                else
                    m_OnColour = value;
            }
        }
        public Color OffColour
        {
            get
            {
                return m_OffColour;
            }
            set
            {
                if ((value == Color.White) || (value == Color.Transparent))
                    m_OffColour = Color.Empty;
                else
                    m_OffColour = value;
            }
        }

        // Constructor
        public ColouredRadioButton()
        {
            // Init
            m_circle = new Rectangle(2, 5, 7, 7 /*Magic Numbers*/);
            m_glint = new Rectangle(3, 6, 4, 4  /*Magic Numbers*/);
            m_outline = new Pen(new SolidBrush(Color.Black), 1F /*Magic Numbers*/);

            // Generate Glint
            GraphicsPath Path = new GraphicsPath();
            Path.AddEllipse(m_glint);
            m_flareBrush = new PathGradientBrush(Path);
            m_flareBrush.CenterColor = Color.White;
            m_flareBrush.SurroundColors = new Color[] { Color.Transparent };
            m_flareBrush.FocusScales = new PointF(0.5F, 0.5F/*Magic Numbers*/);

            // Allows for Overlaying
            SetStyle(ControlStyles.SupportsTransparentBackColor, true);
            BackColor = Color.Transparent;
        }

        // Methods
        protected override void OnPaint(PaintEventArgs e)
        {
            // Init
            base.OnPaint(e);
            Graphics g = e.Graphics;
            g.SmoothingMode = SmoothingMode.AntiAlias;

            // Overlay Graphic
            if (this.Checked)
            {
                if (OnColour != Color.Empty)
                {
                    g.FillEllipse(new SolidBrush(OnColour), m_circle);
                    g.FillEllipse(m_flareBrush, m_glint);
                    g.DrawEllipse(m_outline, m_circle);
                }
            }
            else
            {
                if (OffColour != Color.Empty)
                {
                    g.FillEllipse(new SolidBrush(OffColour), m_circle);
                    g.FillEllipse(m_flareBrush, m_glint);
                    g.DrawEllipse(m_outline, m_circle);
                }
            }
        }
    }
}

如果你很好奇，想知道我用它来测试画笔功能的大红球的代码，那就来吧

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Drawing.Drawing2D;

namespace WindowsFormsApplication1
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void Form1_Paint(object sender, PaintEventArgs e)
        {
            e.Graphics.SmoothingMode = SmoothingMode.AntiAlias;

            int Offset = 25;
            int BoxSize = 100;
            int GlintSize = (int)((double)BoxSize * ((double)3 / (double)4));
            Rectangle Circle = new Rectangle(Offset, Offset, BoxSize, BoxSize);
            Rectangle Glint = new Rectangle(Offset, Offset, GlintSize, GlintSize);

            //Debug
            //e.Graphics.FillRectangle(new SolidBrush(Color.Red), Circle);
            //e.Graphics.FillRectangle(new SolidBrush(Color.BlueViolet), Glint);

            //Generate Glint
            GraphicsPath P = new GraphicsPath();
            P.AddEllipse(Glint);
            PathGradientBrush FlareBrush = new PathGradientBrush(P);
            FlareBrush.CenterColor = Color.FromArgb(255, 255, 255, 255);
            Color[] colors = { Color.Transparent };
            FlareBrush.SurroundColors = colors;

            e.Graphics.FillEllipse(new SolidBrush(Color.FromArgb(255, 255, 0, 0)), Circle);
            e.Graphics.FillEllipse(FlareBrush, Glint);
            e.Graphics.DrawEllipse(new Pen(new SolidBrush(Color.Black), 1F), Circle);
        }
    }
}

---

我不确定这些代码中有多少是适用的——绘图是由

ControlPaint.DrawRadioButton（例如Graphics、rect、ButtonState.Checked）完成的。你会怎么改变这个来画一个红色的圆圈？你可以画你想要的任何东西。将这行代码替换为用e.Graphics绘制红色圆圈的代码。这里有一个更深入的自定义控件示例：谢谢你的参考，我成功了，我在单选按钮的圆圈上方画了一个圆圈。也要感谢@justin。我将分享可能对其他人有用的东西。更多细节见上文。对于m_圆和m_闪烁定位而言，这种严格的“幻数”并不普遍。使用不同字体或autosize=false会使彩色圆圈不居中。@而
m_圆圈的标记
Y
是
Convert.ToInt32（数学地板（（高度-7）/2））
。对于
m_glint
，它总是高一个。