Re: [問題] VB6-照片轉參數
※ 引述《leicheong (睡魔)》之銘言：
: ※ 引述《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參數都要具實際位址吧.
這是我原本寫的,聽說這樣寫速度很慢
不知大大怎麼分析這速度的
我想大大會用api應該是考慮到速度問題吧!
是不是有軟體可意測這速度,還是........?
可能這是小程式,比較感覺不出來...!!
有比較好的寫法可以分享出來嗎!感恩
如果有用到元件,可否盡量不要去改它的名稱,這樣比較好測試....
Private Sub Command1_Click()
Dim cColor As Long
Dim R As Long
Dim G As Long
Dim B As Long
x = Text4.Text
y = Text5.Text
cColor = Picture1.Point(x, y)
R = cColor Mod 256
G = cColor \ 256 Mod 256
B = cColor \ 256 \ 256
Text1.Text = R
Text2.Text = G
Text3.Text = B
End Sub
不過不知道有沒有取得65536的那種 HI COLOR的寫法?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.195.6.78
※ 編輯: CuckooBoy 來自: 123.195.6.78 (07/22 01:39)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 12 之 14 篇)：
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
