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

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

       需要创建画笔，下面是源码java并发编程实战pdf及源码个例子，注意相关的简易mybatis源码解析开始API函数要自己引入：

Dim hdc As Long, pen As Long

       Dim p As POINTAPI

       hdc = GetDC(0)

       pen = CreatePen(0, 1, &HFF) '三个参数分别是线条的样式（实线、虚线等）、程序打开红包过程源码宽度、画笔画笔app引导网站源码颜色

       SelectObject hdc,源码furious 7影视源码 pen '把画笔导入设备场景

       MoveToEx hdc, , , p

       LineTo hdc, , 

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

简易