绘制到控件

ICustomControl.Paint 方法

这是 CustomControl 最重要的方法。它告诉窗体引擎您希望如何精确渲染控件。

提示：在尝试实现自己的 CustomControl 之前，强烈建议查看并实验 twinBASIC 提供的示例项目。

Private Sub OnPaint(ByVal Canvas As CustomControls.Canvas)  _
    Implements ICustomControl.Paint

您会获得一个 Canvas 对象，它提供以下方法：

Canvas.Width As Long   [属性获取]
Canvas.Height As Long   [属性获取]
Canvas.Dpi As Long   [属性获取]
Canvas.DpiScaleFactor As Double [属性获取]
Canvas.AddElement(Descriptor As ElementDescriptor)

Canvas.Width 和 Canvas.Height 是控件绘制的绝对像素大小。与控件的 Width/Height 属性（未进行 DPI 缩放）不同，Canvas.Width 和 Canvas.Height 值已经进行了 DPI 缩放。

Canvas.Dpi 属性表示 Windows 中的 DPI 设置。如果没有 DPI 缩放效果，此值为 96。例如，如果您在显示器上设置了 150% 的缩放比例，则 Canvas.Dpi 属性将为 144。

Canvas.DpiScaleFactor 属性给出表示 DPI 缩放百分比的浮点值。值为 1 表示没有缩放。例如，如果您在显示器上设置了 150% 的缩放比例，则 Canvas.DpiScaleFactor 属性将为 1.5。

Canvas.AddElement 方法用于向控件添加元素。元素被认为是窗体引擎为您渲染的东西。例如，您可能有一个网格控件，一次显示 100 个单元格。每个单元格都是一个元素。元素可以相互重叠（允许不透明度/透明度）。窗体引擎按照您调用 AddElement 的顺序绘制它们，意味着最后添加的元素将具有最高的 z 轴顺序。

AddElement(ElementDescriptor)

AddElement 方法接受单个参数：ElementDescriptor。ElementDescriptor 是一个 UDT，用于定义元素将如何绘制以及它如何对鼠标点击等事件做出反应。

Public Type ElementDescriptor
   OnClick As LongPtr               ' 事件函数回调指针
   OnDblClick As LongPtr            ' 事件函数回调指针
   OnMouseDown As LongPtr           ' 事件函数回调指针
   OnMouseUp As LongPtr             ' 事件函数回调指针
   OnMouseEnter As LongPtr          ' 事件函数回调指针
   OnMouseLeave As LongPtr          ' 事件函数回调指针
   OnMouseMove As LongPtr           ' 事件函数回调指针
   OnScrollH As LongPtr             ' 事件函数回调指针
   OnScrollV As LongPtr             ' 事件函数回调指针
   Left As Long                     ' 像素偏移（相对于控件，DPI 缩放）
   Top As Long                      ' 像素偏移（相对于控件，DPI 缩放）
   Width As Long                    ' 像素宽度（DPI 缩放）
   Height As Long                   ' 像素宽度（DPI 缩放）
   Cursor As MousePointerConstants  ' 光标/指针图标
   TrackingIdX As LongLong          ' 用于跟踪此元素，传递给事件
   TrackingIdY As LongLong          ' 用于跟踪此元素，传递给事件
   Text As String                   ' 要渲染的文本
   TextRenderingOptions As TextRendering ' 自定义文本渲染的选项（对象）
   BackgroundFill As Fill           ' 自定义背景填充渲染的选项（对象）
   Corners As Corners               ' 自定义角渲染的选项（对象）
   Borders As Borders               ' 自定义边框渲染的选项（对象）
End Type

提示

每次调用 OnPaint 方法时，您都从空白画布开始。
Left/Top/Width/Height 完全可以位于画布区域之外。例如，负的 Left/Top，或者 Width/Height 超过 Canvas.Width/Canvas.Height 都没有不良影响。窗体引擎会为您适当地裁剪所有内容，这使得控件设计变得更加简单。
您应该考虑使 Paint 例程高效。尽量避免实例化 COM 对象，在绘制多个相似元素时，尝试通过在循环外部设置公共属性来重用 ElementDescriptors（请参见 WaynesGrid 的示例）
当控件中有多个元素时，TrackingIdX 和 TrackingIdY 很重要。这两个值组合后应该唯一地表示元素，并且如果再次调用 Paint 例程，必须保持不变。这对于支持事件是必需的。例如，在网格控件中，每个单元格都会有一个与其关联的 TrackingIdX / TrackingIdY 值，给定单元格的 X/Y 坐标。
目前只提供鼠标事件，但焦点事件和键盘事件即将推出。
您可以通过简单地使用 AddressOf MyEvent 来使用基于类的事件处理程序，现在即使在类成员上也可以使用。您可以在示例中经常看到这种用法，例如 WaynesGrid。所有鼠标事件都具有以下格式：

Class MyCustomControl
    ...
    Private Sub MyClickEvent(ByRef EventInfo As MouseEvent)
        MsgBox "你点击了我！"
    End Sub

    Private Sub OnPaint(ByVal Canvas As CustomControls.Canvas)  _
            Implements ICustomControl.Paint
        Dim MyDescriptor As ElementDescriptor
        MyDescriptor.OnClick = AddressOf MyClickEvent
    End Sub

EventInfo (MouseEvent) 提供鼠标信息，例如鼠标的相对 X/Y 位置，以及前面讨论的 TrackingX/Y 值。

当您调用 Canvas.AddElement 时，您的元素进入渲染管道。它不会立即绘制到屏幕上。渲染管道与您上次 OnPaint 调用中提供的先前渲染管道进行比较，tB 窗体引擎只会重绘控件中已更改的区域。这使得控件绘制变得高效，而无需关心如何进行部分重绘的详细信息。

绘制到控件 ​

ICustomControl.Paint 方法 ​

AddElement(ElementDescriptor) ​

提示 ​

绘制到控件

ICustomControl.Paint 方法

AddElement(ElementDescriptor)

提示