哪位大佬知道如何拖拉PictureBox的底色到CorelDraw里去?

[genens]

哪位大佬知道用什么方法实现下述功能:
将VB程序里一个PictureBox的底色用拖拉的方法提到CorelDraw的物件上，给CorelDRAW的物件着色,
换句话说，希望用VB写个调色程序,调好色后不希望通过复制颜色值去修改CorelDraw里的物件颜色，而希望直接拖拉得到。
(提示:据我所知，CorelDraw的物件应该是已打开了VB所需的OLE　Link的。)

[boyzhang]

自己做一个或在网上找一个全屏幕拾色器...

得到某一点的RGB值,再在CorelDraw里设置为相同的就可以了....

网上这种东西多得是...

要是连这也不会的话,还有一个更简便的方法,就是先运行那个程序,在运行程序的时候

按键盘上的PrintScreen键[多按几次],然后运行Windows中自带的画板编辑器,

打开吸管,吸取要得到的地方相应的颜色,再在画板的调色板中查看,就可以得到

RGB值了....

如果要编程实现,那就卖本Windows控件和API相关的书看一看,这涉及到OLE方面的

知识...

如果真的要[希望用VB写个调色程序,调好色后不希望通过复制颜色值去修改CorelDraw里的物

件颜色，而希望直接拖拉得到。]

那还要了解CorelDraw的工作原理,看CorelDraw是否支持OLE拖放[不是是否支持OLE拖放,而是

能不能支持外界的颜色拖入]

如果不能支持外界的颜色拖入,那要实现这功能,只有要Corel公司改源代码了...

呵呵...

[lsr66]

################################

个人意见：你应该是在CorelDraw中用VBA编程比较容易，在Corel的VBA环境中通过WINAPI函数GetPixel获得Long整数，转换为RGB或者CMYK值，赋给Corel中的对象。

################################

[lsr66]

给你一个例程：

'这个程序需要一个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

[genens]

谢谢，二位，再顶几天

[genens]

谢谢，二位，再顶几天

[genens]

谢谢，二位，再顶几天

[genens]

天哪，写的人真是高人哪！给分，给分给分给分给分给分给分给分给分给分给分

[hawkstars]

我有相关源代码提供参考，请给mail。