推 leicheong:其實把ARGB那個Type取代long成為return 58.152.218.98 07/21 23:11
→ leicheong:value就好. 58.152.218.98 07/21 23:12
→ leicheong:也就是把2個方法合在一起 58.152.218.98 07/21 23:12
推 CuckooBoy:我RUN時會說那行有錯耶!怎麼處裡呢? 123.195.6.78 07/21 23:20
※ 引述《璉璉 <devil@tainan.com.tw.x>, 看板: 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
: ==> 本文由 "阿書 <CuckooBoy.bbs@ptt.cc>"
: > 於 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)