Question

在vb中怎么写让几条线颜色交换的代码

Answer 1

如果你所谓的“线”是指Line控件，那么只需直接交换它们的颜色值即可：
Dim c As Long
c = Line1.BorderColor
Line1.BorderColor = Line2.BorderColor
Line2.BorderColor = c

如果你的“线”是用Line命令实时绘制的，那么可以互换颜色重新绘制即可。