在VB6中在直线对象上绘制箭头 使用VB6，我有一个线对象，它可以被用户拖拽在它的端点上，我只想在它的中间有一个箭头来显示直线的方向。< /P>

有没有一个简单的方法可以做到这一点

这应该可以满足你的需要。你可能需要稍微调整一下，把箭头放在直线的中间，而不是在结尾处：

在Visual Basic 6中的两个向量之间绘制箭头：

Dmatig

这应该可以满足你的需要。你可能需要稍微调整一下，把箭头放在直线的中间，而不是在结尾处：

在Visual Basic 6中的两个向量之间绘制箭头：

---

谢谢你的帮助。这是我考虑过的一个选择（尽管实现它有点棘手），我希望有一些不那么麻烦的东西。特别是考虑到我将有很多行，代码的大小将是箭头的四倍！同样，这也是回答，很高兴知道如何实现这个想法。@Dmatig。希望你能写出一个例程，用中间的箭头画一条直线。然后将您的“绘制大量线条”代码更改为“使用箭头例程对线条进行大量调用”。代码的大小不会翻两番，它会保持不变。我意识到这是一个古老的答案，但就目前的情况而言，我会将其归类为一个仅链接的答案。你能摘录一下你链接的要点吗？谢谢。这是我考虑过的一个选择（尽管实现它有点棘手），我希望有一些不那么麻烦的东西。特别是考虑到我将有很多行，代码的大小将是箭头的四倍！同样，这也是回答，很高兴知道如何实现这个想法。@Dmatig。希望你能写出一个例程，用中间的箭头画一条直线。然后将您的“绘制大量线条”代码更改为“使用箭头例程对线条进行大量调用”。代码的大小不会翻两番，它会保持不变。我意识到这是一个古老的答案，但就目前的情况而言，我会将其归类为一个仅链接的答案。你能把你链接的要点提取出来吗？