VB在两个图形中间连接一条直线

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/11/09 09:50:37

VB在两个图形中间连接一条直线
比如我现在有两个圆形素材,让后点击其中一个素材后会出现一条直线,直线的一端在这个素材上,另一端会跟着我的鼠标移动,并且可以让它可以连接在第二个素材上.
请问该怎么实现?

Dim p As Boolean
Private Sub Form_Load()
Line1.Visible = False
End Sub
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Not p Then
Line1.X1 = X
Line1.Y1 = Y
Line1.Visible = True
End If
Line1.X2 = X
Line1.Y2 = Y
p = Not p
End Sub
Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)
If p Then
Line1.X2 = X
Line1.Y2 = Y
End If
End Sub

以上代码需要用到一个Line控件Line1

VB在两个图形中间连接一条直线在图上画一条直线,使图形变成两个三角形在图上画一条直线使图形划分成两个三角形在图上画一条直线使下面图形划为两个三角形用一条直线分成两个三角形在这个图形上两个图形关于一条直线对称,对称点必在直线的两旁 vb中picture用line画两闭合图形的时候中间多了一条线? 就是关于任意一个四边形过它中间的一个什么心的任意一条直线可以把这个图形平分成两个相等的图形的术语一道小学四年级数学奥数题.在图上画一条直线,使图形分成两个三角形. 在图上面画一条直线使下面的图形划为两个三角形在图上画一条直线使下面的图形划分为两个三角形,怎么画? 在图上画一条直线使下面的图形化分为两个三角形