### 自定义绘制 WinForms CheckBox 控件 在 VB.NET 中，可以通过处理 `Paint` 事件来自定义绘制 WinForms 的控件。对于复选框 (`CheckBox`) 控件，可以利用其 `OwnerDraw` 特性和相关事件实现自定义外观或样式的重绘。 #### 实现 OwnerDraw 风格的 CheckBox 要实现自定义绘制的 CheckBox，需要将其 `Appearance` 属性设置为 `Button` 或保持默认值，并启用 `OwnerDraw` 模式。以下是具体实现方式： 1. **设置控件属性** 将 CheckBox 的 `FlatStyle` 设置为 `Flat` 并开启 `OwnerDraw` 功能。 2. **订阅 DrawItem 事件** 订阅 CheckBox 的 `DrawItem` 事件，在此事件中完成自定义绘制逻辑。 3. **编写绘制逻辑** 使用 GDI+ 提供的功能（如 Graphics 类）绘制所需的样式。 下面是完整的代码示例： ```vb.net Imports System.Drawing Imports System.Windows.Forms Public Class CustomCheckbox : Inherits Form Private WithEvents customCheckBox As New CheckBox() Public Sub New() ' 初始化控件 customCheckBox.Text = "Custom Checkbox" customCheckBox.Location = New Point(50, 50) customCheckBox.Size = New Size(150, 30) ' 启用 Flat 样式和 OwnerDraw customCheckBox.FlatStyle = FlatStyle.Flat customCheckBox.DrawMode = DrawMode.OwnerDrawFixed Me.Controls.Add(customCheckBox) End Sub ' 定义 DrawItem 事件处理器 Private Sub customCheckBox_DrawItem(sender As Object, e As DrawItemEventArgs) Handles customCheckBox.DrawItem Dim checkBox As CheckBox = CType(sender, CheckBox) If checkBox IsNot Nothing Then Using g As Graphics = e.Graphics ' 清除背景 g.FillRectangle(Brushes.White, e.Bounds) ' 绘制矩形边框 Dim rectSize As Integer = 16 Dim rectangle As Rectangle = New Rectangle(e.Bounds.X, e.Bounds.Y + CInt((e.Bounds.Height - rectSize) / 2), rectSize, rectSize) ControlPaint.DrawBorder(g, rectangle, Color.Black, ButtonBorderStyle.Solid) ' 如果已勾选，则填充矩形 If checkBox.Checked Then g.FillRectangle(Brushes.Green, rectangle.Left + 2, rectangle.Top + 2, rectSize - 4, rectSize - 4) End If ' 绘制文字部分 Dim textSize As SizeF = g.MeasureString(checkBox.Text, checkBox.Font) Dim textLocation As PointF = New PointF(rectangle.Right + 8, e.Bounds.Y + CInt((e.Bounds.Height - textSize.Height) / 2)) g.DrawString(checkBox.Text, checkBox.Font, Brushes.Blue, textLocation) End Using End If End Sub End Class ``` #### 关键点解析 - **Graphics 对象**：用于执行实际的绘制操作，支持线条、形状和文本渲染等功能[^1]。 - **Checked 状态判断**：根据 CheckBox 的当前状态决定是否绘制勾选标记。 - **布局调整**：通过计算位置参数确保图形与文本对齐良好。 --- ###