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

来源：学生作业帮助网 编辑：作业帮 时间：2024/05/07 19:31:53
VB在两个图形中间连接一条直线比如我现在有两个圆形素材,让后点击其中一个素材后会出现一条直线,直线的一端在这个素材上,另一端会跟着我的鼠标移动,并且可以让它可以连接在第二个素

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

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在两个图形中间连接一条直线比如我现在有两个圆形素材,让后点击其中一个素材后会出现一条直线,直线的一端在这个素材上,另一端会跟着我的鼠标移动,并且可以让它可以连接在第二个素 在图上画一条直线,使图形变成两个三角形 在图上画一条直线使下面图形划为两个三角形 在图上画一条直线使图形划分成两个三角形 在图上划一条直线使下面图形划为两个三角形 在图上画一条直线使下面图形划为两个三角形 用一条直线分成两个三角形在这个图形上 AI在两个图形直接填充颜色,比如矩形里画一横再填充矩形一半的颜色.先画一个矩形,然后调用直线再在矩形中间画一条直线.有什么办法可以在以矩形边界和直线边界为范围之间的区域填充颜 轴对称图形的中间一条直线叫什么轴对称图形的中间一条直线叫什么 在VB中画直线,怎样使画下一条直线时,上一条直线保留?求回答啊,对的话我会加分的. VB已经绘制一条直线,怎么使这条直线绕原点旋转一定角度在VB中,我画出了如下直线：For xian = -100 To 100 Step 25Picture1.Line (-Sqr(10000 - xian * xian),xian)-(Sqr(10000 - xian * xian),xian),vbBlacknext现在我想这条 在图上画一条直线使下面的图形划分为两个三角形,怎么画? 在图上画一条直线使下面的图形划为两个三角形. 在图上画一条直线使下面的图形划为两个三角形 在图上画一条直线使下面的图形化分为两个三角形 一道小学四年级数学奥数题.在图上画一条直线,使图形分成两个三角形. 在图上画一条直线使下面的图形划为两个三角形 在图上面画一条直线使下面的图形划为两个三角形