如何通过指定的点，画虚线

我有一个数组，里面存储了一系列的坐标值。
如：Point（1）=（5,6）；Point(2)=(7,8);Point(3)= (10,7)....Point(1000)=(101,989)....
我想通过这个数组给定的坐标画一条虚线，依次经过所有的点，请问该如何画？备注：我知道，将Picture1.DrawStyle 设为 2,Picture1.DrawWidth 设为1 ，然后运用Picture.Line 方法可以画虚线。
可是，因为这个坐标数组中，有些点挨得很近很近，如 Point(1）与Point(2)，坐标相差不大。所以，即使采用虚线线性，画出来的线，看上去也和实线差不多。所以，这种方法没有用。请问，还有没有别的方法可以画线？

解决方案 »

  1.   

    http://download.csdn.net/source/1817028
      

  2.   

    Visual Basic 6.0计算机绘图教程?Veron_04你贴的是华南理工大学出版社03年出的那本书吗,陈锦昌等编著的?
      

  3.   

    虚线间距太小，当然就看起来像直线啊，跟CAD里面一样啊。画点嘛，要不就自己写一个类，可以定义虚线比例的。
      

  4.   

    Veron_04麻烦把书中代码的下载地址发一下,书中写的官方下载地址中那个vb.7z死活下载不了
      

  5.   

    Veron_04麻烦把书中代码的下载地址发一下,书中写的官方下载地址中那个vb.7z死活下载不了
      

  6.   

    Picture1.DrawStyle =1 画虚线  =0 恢复距离太近你只能用 ScaleWidth给定值来画 0,0---0,1 你只能投降