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

[复制链接]
查看11 | 回复1 | 2011-5-16 06:03:07 | 显示全部楼层 |阅读模式
PrivateSubCommand1_Click()
Form1.ForeColor=vbBlue



Form1.Line(0,0)-(ScaleWidth,0)
Form1.Line(ScaleWidth,0)-(ScaleWidth,ScaleHeight)
EndSub
回复

使用道具 举报

千问 | 2011-5-16 06:03:07 | 显示全部楼层
这两个线紧贴一边和右边,并且颜色跟边框的颜色一致,你当然看不到了。不信你稍微改一下试试:Form1.Line(0,100)-(ScaleWidth,100)
Form1.Line(ScaleWidth-100,0)-(ScaleWidth-100,ScaleHeight)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行