Question

问题：vb中如何在窗体中画一个末端带一个黑色小三角的直线？

如图

Answer 1

我没画过，如果是我做先画个黑色小三角然后form中加入image装入小三角，画线，效果应该能达到，但方法是笨了一点

追问

看看这是图片，有没有办法？谢谢了啊

Answer 2

Private Sub Command1_Click()
Dim x1, y1 As Single
Dim x, y As Single
Dim angle As Single
Dim li As Single, i As Single
i = 300 '控制末端小三角形的大小
x1 = 100 '线段起点横坐标
y1 = 100 '线段起点纵坐标
x = 2000 '线段终点纵坐标
y = 2500 '线段终点纵坐标
angle = Atn((x - x1) / (y - y1))
For li = 0 To i Step 0.01
Line (x1, y1)-(x, y)
Line (x, y)-(x - li * Cos(angle), y + li * Sin(angle))
Line (x, y)-(x + li * Cos(angle), y - li * Sin(angle))
Line (x + li * Cos(angle), y - li * Sin(angle))-(x + li * Tan(3.1415926 / 3) * Sin(angle), y + li * Tan(3.1415926 / 3) * Cos(angle))
Line (x - li * Cos(angle), y + li * Sin(angle))-(x + li * Tan(3.1415926 / 3) * Sin(angle), y + li * Tan(3.1415926 / 3) * Cos(angle))
Next
End Sub

Answer 3

label1.caption="→"

追问

这个太那个了啊，呵呵，我要的是用line方法画条竖线，竖线的末端有一个黑色的小三角

追答

可以用Pset点一些点，怎么计算是你算法的事