PTT數位生活區 / Programming

Re: [問題] VB6-照片轉參數

看板Programming作者 (阿書)時間18年前 (2007/07/21 22:24), 編輯推噓2(2推 0噓 2→)
留言4則, 2人參與, 最新討論串10/14 (看更多)
※ 引述《璉璉 <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)
推
07/21 23:11, , 1F
其實把ARGB那個Type取代long成為return
07/21 23:11, 1F
→
07/21 23:12, , 2F
value就好.
07/21 23:12, 2F
→
07/21 23:12, , 3F
也就是把2個方法合在一起
07/21 23:12, 3F
推
07/21 23:20, , 4F
我RUN時會說那行有錯耶!怎麼處裡呢?
07/21 23:20, 4F
‣ 更多 CuckooBoy 的文章
文章代碼(AID): #16eXSZz6 (Programming)
討論串 (同標題文章)
本文引述了以下文章的的內容：
以下文章回應了本文：
完整討論串 (本文為第 10 之 14 篇)：
排序： 最新先 | 最舊先 | 留言數
在新視窗開啟完整討論串 (共14篇)
Programming 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 CuckooBoy 的文章
文章代碼(AID): #16eXSZz6 (Programming)