| 发表于：2008-01-20 07:45:44 楼主 |
sub macda1（picbroad as picturebox, curjl as long, ts as long, maxhigh as single, minlow as single, pindex as long)
dim maxjl as long
dim i, kl as long
picbroad.cls
picbroad.scale
if curjl + ts > ubound（hq) then
maxjl = ubound（hq)
else
maxjl = curjl + ts
end if
picbroad.drawstyle = 2
if maxhigh > abs（minlow) then
picbroad.scale （curjl - dchhh, maxhigh)-（curjl + 1 + ts, minlow)
picbroad.line （curjl, minlow)-（curjl, maxhigh), vbred
else
picbroad.scale （curjl - dchhh, abs（minlow))-（curjl + 1 + ts, minlow)
picbroad.line （curjl, minlow)-（curjl, abs（minlow)), vbred
end if
picbroad.line （curjl, 0)-（picbroad.width, 0), vbred
picbroad.drawstyle = 0
kl = 0
for i = curjl to maxjl - 1
picbroad.line （i + 0.2,hq（i).dy)-（i + 0.8, hq（i + 1).dy)
picbroad.line （i + 0.2,hq（i).dy* 17 / 20)-（i + 0.8,hq（i + 1).dy* 17 / 20)
next
end sub
求教在 hq（i).dy > hq（i).dy * 17 / 20 在两条线中间填充上红色 ，hq（i).dy < hq（i).dy * 17 / 20 在两条线中间填充上绿色
如此图：
http://www.vbgood.com/attachments/month_0801/02_9ffoq9tsl0mi.jpg
http://www.vbgood.com/attachments/month_0801/071_mcyvhatv638u.jpg
原型为：
fillrgn（dy,dy1,dy> dy1,rgb（255,0,0),dy <dy1,rgb（0,255,0))
fillrgn（price1,price2,cond1,color1,cond2,color2...),填充price1到price2之间的区域，当cond1条件满足时,用color1颜色，当cond2条件满足时,用color2颜色，否则不填充，从cond1之后的参数均可以省略，最多可以有10组条件。
|
|
|
|
|
