如何在PB中画箭头（二）
2024-07-21 02:10:02
供稿：网友
如何在pb中画箭头（二）by ...---... ( qq: 21417511 )
先说一段废话：csdn的blog是我使用过的所有blog中最有意思的一个，它具有如下优点：1、可以消磨时间；2、可以培养自己的细心；3、可以锻炼人的耐心与忍受力；4、可以促进身体健康；5、让大家提前享受共产主义；为什么这样说呢，因为这东东在我用的过程中，经常在修改blog时会出现自动copy一段文字。删除掉自动copy出来的文字并预览，一切ok，如果认为这时候已经没问题了，点发表，再到网页上看，嘻嘻，还是会一样自动copy那一段在那儿，这就要考验你的细心啦，不要被预览成功的假象迷住哦！经过n次的编辑、删除、发表、查看等一系列过程，问题一定是没有办法解决好的，当然这中间还需要你的耐心与忍受能力啦，反正多扯几根头发对人身体也是好的，毕竟可以促进新陈代谢嘛！最后我发现一个终极解决方法，那就是全部删除掉，直接发表，然后重写就ok啦，为了改blog里的几个字，差不多花了一个半小时，这不是最好的消磨时间方法吗？虽然，我也用过其它的blog系统，但是经过比较，发现还是csdn的好，因为它不带模板，大家看上去一个样，没有个人英雄主义，多好啊，千篇一律，提前实现主产主义！
好了，转回正题，上文中我们复习了一些高中的基础知识，下面我们就来构建函数，进行画箭头的正式工作啦！/*------------------------------------------------------------------------------
function: public w_process.wf_getpoint
returns: (none)
parameters: value long al_x1 value long al_y1 value long al_x2 value long al_y2 value long al_angle value long al_width reference long al_a1x1 reference long al_a1y1 reference long al_a2x1 reference long al_a2y1
description:
-------------------------------------------------------------------------------- 2005-04-15 2.0.0 initial version by cuixuf (mail:[email protected])------------------------------------------------------------------------------*/
real lr_angle, & lr_angle1, & lr_angle2 //先获取直线夹角if al_x2 = al_x1 then if al_y2 > al_y1 then lr_angle = pi(1) + pi(1/2) else lr_angle = pi(1/2) end ifelse lr_angle = atan((al_y2 - al_y1)/(al_x2 - al_x1)) end if//注意一下直线的方向if al_x2 > al_x1 then lr_angle = pi(1) + lr_angle
lr_angle1 = lr_angle + al_angle*(pi(2)/360)lr_angle2 = lr_angle - al_angle*(pi(2)/360)
//求两条边的坐标al_a1x1 = al_x2 + al_width*(cos(lr_angle1))al_a1y1 = al_y2 + al_width*(sin(lr_angle1))al_a2x1 = al_x2 + al_width*(cos(lr_angle2))al_a2y1 = al_y2 + al_width*(sin(lr_angle2))
求得坐标以后，我们就是要构造创建箭头的函数啦！/*------------------------------------------------------------------------------
function: public w_process.wf_createline
returns: string
parameters: value string as_tag value long al_x1 value long al_y1 value long al_x2 value long al_y2
description:
-------------------------------------------------------------------------------- 2005-04-15 2.0.0 initial version by cuixuf (mail:[email protected])------------------------------------------------------------------------------*/string ls_createlong ll_a1x1, & ll_a1y1, & ll_a2x1, & ll_a2y1, & ll_len = 50, & ll_degree = 15
wf_getpoint(al_x1,al_y1,al_x2,al_y2,ll_degree,ll_len,ll_a1x1,ll_a1y1,ll_a2x1,ll_a2y1)
ls_create = "create line(band=detail" + &" pointer='arrow!' moveable=0 resizeable=0 x1='"+string(al_x1)+"' y1='"+string(al_y1)+"' x2='"+string(al_x2)+"' y2='"+string(al_y2)+"' name=l_" + as_tag + &" tag='"+as_tag+"' pen.style='0'" + &" pen.width='3' pen.color='134217856' background.mode='1' background.color='1073741824')"
ls_create += "~tcreate line(band=detail" + &" pointer='arrow!' moveable=0 resizeable=0 x1='"+string(ll_a1x1)+"' y1='"+string(ll_a1y1)+"' x2='"+string(al_x2)+"' y2='"+string(al_y2)+"' name=l_" + as_tag+"_1" + &" tag='' pen.style='0'" + &" pen.width='1' pen.color='134217856' background.mode='1' background.color='1073741824')"
ls_create += "~tcreate line(band=detail" + &" pointer='arrow!' moveable=0 resizeable=0 x1='"+string(ll_a2x1)+"' y1='"+string(ll_a2y1)+"' x2='"+string(al_x2)+"' y2='"+string(al_y2)+"' name=l_" + as_tag+"_2" + &" tag='' pen.style='0'" + &" pen.width='1' pen.color='134217856' background.mode='1' background.color='1073741824')"
return ls_create
根据上面函数返回的create语句，我们只需要通过modify方法就能实现画箭头的功能啦，其它的就不用我多说了吧，比较简单，就不给出example啦，呵呵，如果有什么建议的话，请与我联系吧！联系方法上面都有哦。
，欢迎访问网页设计爱好者web开发。
