社区
API
帖子详情
哪位大佬知道如何拖拉PictureBox的底色到CorelDraw里去?
genens
2003-09-15 10:36:39
哪位大佬知道用什么方法实现下述功能:
将VB程序里一个PictureBox的底色用拖拉的方法提到CorelDraw的物件上,给CorelDRAW的物件着色,
换句话说,希望用VB写个调色程序,调好色后不希望通过复制颜色值去修改CorelDraw里的物件颜色,而希望直接拖拉得到。
(提示:据我所知,CorelDraw的物件应该是已打开了VB所需的OLE Link的。)
...全文
49
8
打赏
收藏
哪位大佬知道如何拖拉PictureBox的底色到CorelDraw里去?
哪位大佬知道用什么方法实现下述功能: 将VB程序里一个PictureBox的底色用拖拉的方法提到CorelDraw的物件上,给CorelDRAW的物件着色, 换句话说,希望用VB写个调色程序,调好色后不希望通过复制颜色值去修改CorelDraw里的物件颜色,而希望直接拖拉得到。 (提示:据我所知,CorelDraw的物件应该是已打开了VB所需的OLE Link的。)
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
hawkstars
2003-09-18
打赏
举报
回复
我有相关源代码提供参考,请给mail。
genens
2003-09-18
打赏
举报
回复
天哪,写的人真是高人哪!给分,给分给分给分给分给分给分给分给分给分给分
genens
2003-09-17
打赏
举报
回复
谢谢,二位,再顶几天
genens
2003-09-17
打赏
举报
回复
谢谢,二位,再顶几天
genens
2003-09-16
打赏
举报
回复
谢谢,二位,再顶几天
lsr66
2003-09-15
打赏
举报
回复
给你一个例程:
'这个程序需要一个Timer,一个Picture1
'下面的代码放到模块中
Option Explicit
Public Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
x As Long
y As Long
End Type
'下面的代码放到窗体中
Private Sub Form_Load()
Timer1.Interval = 15
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim hDC As Long
Dim lpPoint As POINTAPI
GetCursorPos lpPoint '取得鼠标坐标
'取得桌面的hDC
hDC = GeDC(0)
'取得颜色并显示
Picture1.BackColor = GetPixel(hDC, lpPoint.x, lpPoint.y)
End Sub
lsr66
2003-09-15
打赏
举报
回复
################################
个人意见:你应该是在CorelDraw中用VBA编程比较容易,在Corel的VBA环境中通过WINAPI函数GetPixel获得Long整数,转换为RGB或者CMYK值,赋给Corel中的对象。
################################
boyzhang
2003-09-15
打赏
举报
回复
自己做一个或在网上找一个全屏幕拾色器...
得到某一点的RGB值,再在CorelDraw里设置为相同的就可以了....
网上这种东西多得是...
要是连这也不会的话,还有一个更简便的方法,就是先运行那个程序,在运行程序的时候
按键盘上的PrintScreen键[多按几次],然后运行Windows中自带的画板编辑器,
打开吸管,吸取要得到的地方相应的颜色,再在画板的调色板中查看,就可以得到
RGB值了....
如果要编程实现,那就卖本Windows控件和API相关的书看一看,这涉及到OLE方面的
知识...
如果真的要[希望用VB写个调色程序,调好色后不希望通过复制颜色值去修改CorelDraw里的物
件颜色,而希望直接拖拉得到。]
那还要了解CorelDraw的工作原理,看CorelDraw是否支持OLE拖放[不是是否支持OLE拖放,而是
能不能支持外界的颜色拖入]
如果不能支持外界的颜色拖入,那要实现这功能,只有要Corel公司改源代码了...
呵呵...
C#串口介绍以及简单串口通信程序设计和实现
C#串口介绍以及简单串口通信程序设计实现 ...
pictureBox
1.BackgroundImage = Properties.Resources.red; ComDevice.DataReceived += new SerialDataReceivedEventHandler(Com_DataReceived);//绑定事件 }
DirectUI Demo(无源码,只是界面dome)
一个比较完整的DirectUI Demo, 支持各种Layout,实现了各种基本控件(SplitBar,
PictureBox
, Button, Radio, CheckBox, Label, HyperLink, ProgressBar, ListBox, Edit, ComboBox, Tab Control, Toolbar, Menu, tree)...
c#中,图像已经显示在
picturebox
当中,如何缩放以及移动?
设置图像的显示Mode,如果图片放在BackGroundImage,则设置BackGroundImageLayOut,如果图片放在Image
里
,则设置SizeMode。 总之设置成Stretch(拉伸)。设置完后再通过调整
PictureBox
的Width和Height来改变图像大小。...
关于 VB 用
Picturebox
画图的 一个大问题???
这是用喷枪画时的程序,接下来是撤消是的程序(我用
picturebox
背景色把上面那个动作再做一边): For u = 0 To l - 1 m = v(u) n = t(u) u = u + 1 Picture1.PSet (m, n), Picture1.BackColor ...
picturebox
和
Draw
image方法小心得
C#中
picturebox
绘图和
Draw
image绘图小技巧
PictureBox
Draw
image小结
PictureBox
优点:
picturebox
控件一般可以直接在窗口设计界面中通过工具箱拖动使用,方便的同时可读性较好,用户在拖动的时候即可确定将要显示的...
API
1,486
社区成员
23,280
社区内容
发帖
与我相关
我的任务
API
VB API
复制链接
扫一扫
分享
社区描述
VB API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章