※ 引述《CuckooBoy (阿書)》之銘言：
: SORRY!你的程式我用VB6沒法RUN耶!!
: 可以再寫詳細一點嗎!!
: 可能我對VB不熟
: 所以沒法順利的來試你給的範例
: VB6說 CopyMemory c, GetPixel(Picture1.hdc, 1,1), 4 這行有問題
這樣可以:
Dim temp As Long
Dim pix00 As ARGB
temp = GetPixel(Picture1.hdc, 5, 15)
CopyMemory pix00, temp, 4
MsgBox (pix00.Keep & " " & pix00.R & " " & pix00.G & " " & pix00.B)
大概是因為source參數都要具實際位址吧.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 58.152.218.98