本文讲述在CorelDraw中开发一款填充功能的GMS插件，可以填充标准颜色、渐变颜色和调色板颜色，为了省略一些重复的步骤，直接看到本文的读者，建议阅读本系列前三节，掌握基础，第一节、第二节和第三节，最终的效果图如下所示：

1.新建宏项目

??新建一个名称形状填充颜色的宏项目。如下图所示：

2.界面设计

??在宏项目中插入窗口和按钮，窗口对象修改为Main，标题修改为形状填充颜色，添加四个按钮，修改标题为，应用标准填充、应用渐变填充、调用调色板填色和去除所有填充，并将按钮对象名称改为与标题名称一致，如下图所示：

3.按钮事件

??双击按钮，在对应的按钮事件中编写相应的功能。源代码如下所示：

Private Sub 去除所有填充_Click()
    ' 判断是否选择了形状
    If ActiveShape Is Nothing Then MsgBox "请选择要清除填充的形状": Exit Sub
    ' 清除填充
    ActiveShape.Fill.ApplyNoFill
End Sub

Private Sub 调用调色板填色_Click()
    ' 判断是否选择了形状
    If ActiveShape Is Nothing Then MsgBox "请选择要填充的形状": Exit Sub
    ' 创建一个颜色对象
    Dim clr As New color
    ' 调用调色板
    clr.UserAssign
    ' 取得调色板的颜色，并填充当前形状
    ActiveShape.Fill.ApplyUniformFill clr
End Sub

Private Sub 应用标准填充_Click()
    ' 判断是否选择了形状
    If ActiveShape Is Nothing Then MsgBox "请选择要填充的形状": Exit Sub
    ' 创建一个颜色对象
    Dim clr As New color
    clr.CMYKAssign 0, 100, 100, 0
    ActiveShape.Fill.ApplyUniformFill clr
End Sub

Private Sub 应用渐变填充_Click()
    ' 判断是否选择了形状
    If ActiveShape Is Nothing Then MsgBox "请选择要填充的形状": Exit Sub
    ' 创建一个起始颜色对象和一个结束颜色对象，分别命名为 startColor、endColor
    Dim startColor As New color, endColor As New color
    ' 对颜色分配CMYK属性
    startColor.CMYKAssign 0, 100, 100, 0 ' 红色
    endColor.CMYKAssign 0, 0, 100, 0 ' 黄色
    ActiveShape.Fill.ApplyFountainFill startColor, endColor
End Sub

4.添加模块

??在宏项目中，需要添加模块才能进行宏调用，添加模块命名为形状填充颜色模块，并添加过程形状填充颜色，如下图所示：

源代码如下所示：

Public Sub 形状填充颜色()
    Main.Show False
End Sub

5.项目下载地址

项目地址：CorelDraw插件、GMS插件、CDR插件、形状填充颜色功能插件、可查看源码-制造文档类资源-CSDN文库

>文章引用至 作者联系方式