作者CuckooBoy (阿书)
看板Programming
标题Re: [问题] VB6-照片转参数
时间Sun Jul 22 01:29:58 2007
※ 引述《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)