谁能给我个任意图形填色的算法，最好有例子说明一下啊，我想用VB实现图形填色。
1个回答
展开全部
Private Declare Function FillRgn Lib "gdi32" (ByVal hdc As Long, ByVal hRgn As Long, ByVal hBrush As Long) As Long
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
private sub form_load()
'有图形的话 设图形的句柄为HWND
hbrush=createsolidbrush(vbred)
FillRgn hwnd ,hbrush
end sub
就搞定了 关键你自己把图形的句柄填上去
Private Declare Function CreateSolidBrush Lib "gdi32" (ByVal crColor As Long) As Long
private sub form_load()
'有图形的话 设图形的句柄为HWND
hbrush=createsolidbrush(vbred)
FillRgn hwnd ,hbrush
end sub
就搞定了 关键你自己把图形的句柄填上去
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
**AI一键生成PPT免费版**为满足广大用户的需求，我们博思云创科技特推出AI一键生成PPT免费版。用户只需简单输入需求，AI技术便能智能分析并快速生成高质量PPT。此版本功能强大且易于操作，无需专业设计技能，即可轻松打造出令人满意的演示...
点击进入详情页
本回答由博思aippt提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
