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

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

       需要创建画笔，下面是源码源码哥 关闭个例子，注意相关的简易账号出售源码API函数要自己引入：

Dim hdc As Long, pen As Long

       Dim p As POINTAPI

       hdc = GetDC(0)

       pen = CreatePen(0, 1, &HFF) '三个参数分别是线条的样式（实线、虚线等）、程序qq情侣源码宽度、画笔画笔稳像源码颜色

       SelectObject hdc,源码创业神器源码 pen '把画笔导入设备场景

       MoveToEx hdc, , , p

       LineTo hdc, , 

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

简易