如何在PB中画箭头（二）

如何在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:cuixuf@sina.com)------------------------------------------------------------------------------*/

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:cuixuf@sina.com)------------------------------------------------------------------------------*/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啦，呵呵，如果有什么建议的话，请与我联系吧！联系方法上面都有哦。

原文转自：http://www.ltesting.net