VB中如何让默认的线段的黑色改为其他颜色?
PrivateSubCommand16_Click()DimhdcAsLongDimpAsPointAPIhdc=GetDC(0)MoveToExhdc,Text2,Te...
Private Sub Command16_Click()
Dim hdc As Long
Dim p As PointAPI
hdc = GetDC(0)
MoveToEx hdc, Text2, Text3, p
LineTo hdc, Text4, Text5
MoveToEx hdc, Text4, Text5, p
LineTo hdc, Text6, Text7
MoveToEx hdc, Text6, Text7, p
LineTo hdc, Text2, Text3
End Sub
如何让这些屏幕坐标连线的线段改成其他颜色。（不是窗体上的连线哦） 展开
Dim hdc As Long
Dim p As PointAPI
hdc = GetDC(0)
MoveToEx hdc, Text2, Text3, p
LineTo hdc, Text4, Text5
MoveToEx hdc, Text4, Text5, p
LineTo hdc, Text6, Text7
MoveToEx hdc, Text6, Text7, p
LineTo hdc, Text2, Text3
End Sub
如何让这些屏幕坐标连线的线段改成其他颜色。（不是窗体上的连线哦） 展开
展开全部
需要创建画笔，下面是个例子，注意相关的API函数要自己引入：
Dim hdc As Long, pen As Long
Dim p As POINTAPI
hdc = GetDC(0)
pen = CreatePen(0, 1, &HFF0000) '三个参数分别是线条的样式（实线、虚线等）、宽度、颜色
SelectObject hdc, pen '把画笔导入设备场景
MoveToEx hdc, 100, 100, p
LineTo hdc, 1000, 1000
DeleteObject pen '记得用完一定要删除画笔！
追问
我是个新手，可不可以帮忙给个API函数 ^-^
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
