[（较高难度问题）]VB怎样做矢量连接线``？

Question

要求是连接两个可拖动的控件``矢量线也随着动```最好是有连接点的```

Answer 1

Line 方法
      在对象上画直线和矩形。语法object.Line [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]Line 方法的语法有以下对象限定符和部分：部分 描述 
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。 
Step 可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。 
(x1, y1) 可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。 
Step 可选的。关键字，指定相对于线的起点的终点坐标。  
(x2, y2) 必需的。Single （单精度浮点数），直线或矩形的终点坐标。 
color 可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。 
B 可选的。如果包括，则利用对角坐标画出矩形。 
F 可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。 
说明画联结的线时，前一条线的终点就是后一条线的起点。线的宽度取决于 DrawWidth 属性值。在背景上画线和矩形的方法取决于 DrawMode 和 DrawStyle 属性值。执行 Line 方法时， CurrentX 和 CurrentY 属性被参数设置为终点。这个方法不能用于With...End With 语句块。

Answer 2

一下代码可供参考
创建一个窗体，在窗体上添加2个按钮Command1、Command2，拷贝以下代码到窗体中，
然后运行工程，拖动Command1即可看到效果Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Command1.Left = X
Command1.Top = Y
Me.Cls
Me.Line (Command1.Left, Command1.Top)-(Command2.Left, Command2.Top)
End SubPrivate Sub Form_Load()
Command1.DragMode = 1
Command2.DragMode = 1
End Sub

Answer 3

如果楼主只是为了显示用，可以用WebBrowser控件来显示vml！vml在我的网站上有源码，你可以看看。ASP资料－>“VML(矢量可标记语言)简介”；╭═══════════════════╮
║　免费的源码、工具网站，欢迎大家访问！║
║　http://www.j2soft.cn/　　　　　　　　║
╰═══════════════════╯

Answer 4

用VB编写的代码我已经上传到我的网站上，请到我的网站上下载源码。VB资料->查询“VB在两个控件之间连线”；╭═══════════════════╮
║　免费的源码、工具网站，欢迎大家访问！║
║　http://www.j2soft.cn/　　　　　　　　║
╰═══════════════════╯