VB在两个图形中间连接一条直线比如我现在有两个圆形素材,让后点击其中一个素材后会出现一条直线,直线的
答案:2 悬赏:0 手机版
解决时间 2021-02-23 17:12
- 提问者网友：聂風
- 2021-02-23 06:13
VB在两个图形中间连接一条直线比如我现在有两个圆形素材,让后点击其中一个素材后会出现一条直线,直线的
最佳答案
- 五星知识达人网友：刀戟声无边
- 2021-02-23 06:45
Dim p As BooleanPrivate Sub Form_Load()Line1.Visible = FalseEnd SubPrivate Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Not p ThenLine1.X1 = XLine1.Y1 = YLine1.Visible = TrueEnd IfLine1.X2 = XLine1.Y2 = Yp = Not pEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)If p ThenLine1.X2 = XLine1.Y2 = YEnd IfEnd Sub以上代码需要用到一个Line控件Line1
全部回答
- 1楼网友：未来江山和你
- 2021-02-23 07:59
谢谢解答
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯