作者CuckooBoy (阿书)
看板Programming
标题Re: [问题] VB6-照片转参数
时间Sat Jul 21 22:24:34 2007
※ 引述《琏琏 <[email protected]>, 看板: Programming》之铭言：
: 一般的作法：
: Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
: Private Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
: Private Type ARGB
: R As Byte
: G As Byte
: B As Byte
: Keep As Byte
: End Type
: ....
: Dim c As ARGB
: CopyMemory c, GetPixel(Picture1.hdc, x, y), 4
: Debug.Print c.R, c.G, c.B, c.Keep
: ==> 本文由 "阿书 <[email protected]>"
: > 於 news:4VB7hW%247zZ%40ptt.cc 发表
: > 感谢
: > 刚试了一下,是我要的
: > 不过有个疑问
: > 颜色不是会有RGB XXX,XXX,XXX
: > 为什麽得到的都是一个值 譬如 :255
: > 不能一次印三个值吗?
: > SORRY!我影像处理与VB底子不够好....
: > 可否请大大指点一下
: > 感恩
SORRY!你的程式我用VB6没法RUN耶!!
可以再写详细一点吗!!
可能我对VB不熟
所以没法顺利的来试你给的范例
VB6说 CopyMemory c, GetPixel(Picture1.hdc, 1,1), 4 这行有问题
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.195.6.78
※ 编辑: CuckooBoy 来自: 123.195.6.78 (07/21 22:51)
1F：推 leicheong:其实把ARGB那个Type取代long成为return 58.152.218.98 07/21 23:11
2F：→ leicheong:value就好. 58.152.218.98 07/21 23:12
3F：→ leicheong:也就是把2个方法合在一起 58.152.218.98 07/21 23:12
4F：推 CuckooBoy:我RUN时会说那行有错耶!怎麽处里呢? 123.195.6.78 07/21 23:20