请教,为什么下面程序中的Form1.Line (ScaleWidth, 0)-(ScaleWidth, ScaleHeight)这条直线不能被显示?

2025-05-09 07:58:54
推荐回答(2个)
回答1:

这两个线紧贴一边和右边,并且颜色跟边框的颜色一致,你当然看不到了。不信你稍微改一下试试:Form1.Line (0, 100)-(ScaleWidth, 100)
Form1.Line (ScaleWidth-100, 0)-(ScaleWidth-100, ScaleHeight)

回答2:

上述代码绘制的两条线,没有显示的原因在于forecolor属性设置为蓝色正好和窗体的边界颜色一致,所以不容易发现。你可以把此属性设置为vbred试一下,就可以看到线条了。