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

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

       需要创建画笔，下面是源码web界面 源码下载个例子，注意相关的简易h5十三水棋牌源码API函数要自己引入：

Dim hdc As Long, pen As Long

       Dim p As POINTAPI

       hdc = GetDC(0)

       pen = CreatePen(0, 1, &HFF) '三个参数分别是线条的样式（实线、虚线等）、程序全新源码是什么意思宽度、画笔画笔军缘江湖聊天室源码颜色

       SelectObject hdc,源码微信公众号怎么编辑源码 pen '把画笔导入设备场景

       MoveToEx hdc, , , p

       LineTo hdc, , 

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

简易