VFB组件：Cairo控件（向量绘图引擎）

最新推荐文章于 2025-06-13 16:17:32 发布

原创

最新推荐文章于 2025-06-13 16:17:32 发布 · 738 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#VFB #VisualFreeBasic #VB

本文介绍了Cairo作为跨平台向量绘图库在Visual FreeBasic (VFB) 中的应用。Cairo控件不直接显示，而是在WM_PAINT事件中结合DC进行绘图。使用时需要先绑定窗口DC，然后设置路径、颜色和样式，最后进行填充或描边并显示。VFB提供了Cairo的基本封装，但更复杂的操作需要查阅官方文档并直接调用Cairo API。

负责绘图用，并没有自己的显示，就是运行时控件自己不显示。

名气比较大的跨平台向量绘图库，用来对窗口画画。
可以参考 Cairo 官方文档Documentation
这里是 CAIRO控件封装，将初始部分封装，其它画画操作不变，更多操作见官网文档。
在VFB使用方法（默认支持系统DPI响应）

   Dim DC As HDC = GetDC(hWndForm) '获取窗口DC
   Cairo1.WinDC = DC   '绑定DC
   '一系列画画-----------------------------
   '就是设置路径线
   Cairo1.MoveTo(10, 10)
   Cairo1.LineTo(300, 250)
   Cairo1.LineToRel(00, -100)
   '设置填充
   Cairo1.SourceRGB(&HFFFF00)
   Cairo1.DrawFillPreserve
  '这里填充不结束路径，后面还要画线条
   '设置线条
   Cairo1.SourceRGB(&H0000FF )
   Cairo1.LineWidth = 3
   Cairo1.DrawStroke
 ‘画线条后结束路径
   '画画完成 -------------------------------
   Cairo1.Display '显示输出
   ReleaseDC hWndForm, DC  '销毁DC

如果在 WM_PAINT 事件里，必须使用以下代码获取 DC