1.VB中如何让默认的画笔画笔线段的黑色改为其他颜色?

VB中如何让默认的线段的黑色改为其他颜色?

       需要创建画笔，下面是源码greensockjs源码实现个例子，注意相关的简易简单deepmind 源码API函数要自己引入：

Dim hdc As Long, pen As Long

       Dim p As POINTAPI

       hdc = GetDC(0)

       pen = CreatePen(0, 1, &HFF) '三个参数分别是线条的样式（实线、虚线等）、程序文章裂变源码宽度、画笔画笔mzphp源码解密颜色

       SelectObject hdc,源码源码导入idea pen '把画笔导入设备场景

       MoveToEx hdc, , , p

       LineTo hdc, , 

       DeleteObject pen '记得用完一定要删除画笔！

简易