求getcolor函数的使用方法!
◆- CorelDRAW设计软件及合版印刷区 CorelDRAW及其插件魔镜、FreeHand、QuarkXPress等平面设计、图文设计、广告设计、排版软件、合版印刷的使用经验和技巧。

发表新主题 关闭主题
 
只看楼主 主题工具
旧 2017-12-08, 17:43     #1
ybmou1516 ybmou1516 当前离线
正式会员
等级: 一袋长老
级别:5 | 在线时长:47小时 | 升级还需:13小时级别:5 | 在线时长:47小时 | 升级还需:13小时
 
Uid: 592368
注册日期: 2017-12-08, 15:33
来自: 宜宾市长宁县
帖子: 25
感谢: 0
5 个帖子获得 9 次感谢
现金: 29金币
资产: 29金币
声望: 10 ybmou1516 向着好的方向发展
ybmou1516 ybmou1516 当前离线
正式会员
等级: 一袋长老
级别:5 | 在线时长:47小时 | 升级还需:13小时级别:5 | 在线时长:47小时 | 升级还需:13小时
 
Uid: 592368
注册日期: 2017-12-08, 15:33
来自: 宜宾市长宁县
帖子: 25
感谢: 0
5 个帖子获得 9 次感谢
现金: 29金币
资产: 29金币
声望: 10 ybmou1516 向着好的方向发展
对眼 求getcolor函数的使用方法!   



求getcolor函数的使用方法!
这段时间在自学CorlDraw的宏代码编程,想获取一个对象的颜色RGB值,查找了一下函数表,通过GOOGLE的翻译,“GetColor”函数为获取颜色。
急求getcolor函数的使用方法!
另附:网上搜索了一些Corldraw的二次开发教程很少,有没有这方面的教程、书籍?
ybmou1516 当前离线  
旧 2017-12-15, 21:21   只看该作者   #2
jialan75 jialan75 当前离线
正式会员
等级: 五袋长老
级别:36 | 在线时长:1502小时 | 升级还需:15小时级别:36 | 在线时长:1502小时 | 升级还需:15小时级别:36 | 在线时长:1502小时 | 升级还需:15小时
 
Uid: 140648
注册日期: 2010-01-12, 13:36
来自: 余姚
年龄: 28
帖子: 615
感谢: 117
113 个帖子获得 287 次感谢
现金: 322金币
资产: 322金币
声望: 11 jialan75 向着好的方向发展
jialan75 jialan75 当前离线
正式会员
等级: 五袋长老
级别:36 | 在线时长:1502小时 | 升级还需:15小时级别:36 | 在线时长:1502小时 | 升级还需:15小时级别:36 | 在线时长:1502小时 | 升级还需:15小时
 
Uid: 140648
注册日期: 2010-01-12, 13:36
来自: 余姚
年龄: 28
帖子: 615
感谢: 117
113 个帖子获得 287 次感谢
现金: 322金币
资产: 322金币
声望: 11 jialan75 向着好的方向发展

Sub Macro10()
Dim s As Shape
Set s = activelshape
If s.Fill.UniformColor.Type = cdrColorRGB Then
r = s.Fill.UniformColor.RGBRed
g = s.Fill.UniformColor.RGBGreen
b = s.Fill.UniformColor.RGBBlue
Else
MsgBox "is not rgb shape"
End If
End Sub
jialan75 当前离线  
发表新主题 关闭主题

主题工具

发帖规则
不可以发表主题
不可以回复帖子
不可以上传附件
不可以编辑自己的帖子

论坛启用 vB 代码
论坛启用 表情图标
论坛启用 [IMG] 代码
论坛禁用 HTML 代码


律师声明:本站内容,均具有版权,未经书面授权,禁止转载,严禁镜像,违者承担一切后果!
论坛广告报价   广告联系:点击这里给我发消息   申办企业会员点击这里给我发消息   站务管理:点击这里给我发消息

软件疑难  文件设计制作印刷  金币代卖  程序开发点击这里给我发消息    魔镜销售点击这里给我发消息

所有时间均为 +8, 现在的时间是 2018-07-19 17:22.

Powered by vBulletin® Version 3.8.11 Beta 2
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
 
Copyright © 2017