怎么用Shape画出斜线

[lirlir]

怎么用Shape画出斜线??或者用其他控件

[cll007]

image1.canvas.moveto(100,100);
image1.canvas.lineto(200,200);
----
上面就是画斜线，从点（100,100)到点200,200);

[vcshcn]

把宽度设成1，然后改变x,y坐标

[AndaAnda]

moveto
lineto

[sqlserver11]

<script language=vbscript>
sub city_onchange
if form.city.value="北京" then
form.action="beijing.asp"
elseif form.city.value="上海" then
form.action="shanghai.asp"
elseif form.city.value="天津" then
form.action="tianji.asp"
elseif form.city.value="" then
msgbox "请选择一个选项"
end if
form.submit

[ass123]

用fastreport的frShape控件。

[yuganfei19840807]

安装WeiGao包，有个line控件，很好用

[wychero]

总之在 TShape 中是不能画斜线的，必须自己从 TShape 的父去 Inherite.

[whitetiger8]

image1.canvas.moveto(100,100);
image1.canvas.lineto(200,200);