怎么用Shape画出斜线

Question

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

Answer 1

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

Answer 2

<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

Answer 3

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

Answer 4

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

Answer 5

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