如何获得VB中Picture 中 X，Y 点的颜色值

显示全部楼层 · 2021-1-27 07:14:38

请高手将下列函数写出来，或给点指教
设在下列过程中已知x，y点是鼠标当前点
privatepicture1_mouse_move(xassingle,yassingle,...)
dimcolorxyaslong
colorxy=GET_xy_Color(x,y)
.....
endsub
--------------------------------------------------------------
privatefunctionGET_xy_Color(xassingle,yassingle)
'请高手帮个忙，写出这个函数，获得x，y点的颜色值
endfunction
--------------------------------------------------------------
分 -->

千问 · 2021-1-27 07:14:38

我很想告诉你，但我的Vb水平解决不了。o(∩_∩)o...哈哈

千问 · 2021-1-27 07:14:38

我找到答案了：
就是vb自己的函数，PAINT（XASSINGLE，YASSINGLE）ASLONG
但这个函数不好用。

千问 · 2021-1-27 07:14:38

楼上写错了，应该是Point（XASSINGLE，YASSINGLE）ASLONG
这个函数没问题啊。价格便宜量又足，我一直用它。