13问答网 > VB6.0，让电脑在时钟控制下自动画一条直线，显示6秒后消失，再过6秒自动出现下一条直线，但出现了问题。

VB6.0，让电脑在时钟控制下自动画一条直线，显示6秒后消失，再过6秒自动出现下一条直线，但出现了问题。

2025-03-13 15:54:53

推荐回答（1个）

回答1：

你这个问题的原因是：
你感觉“却不能过个6秒再出现直线”时是因为你程序中的线条高度位置值h编程负值了，就显示到图片控件以外了，所以看不见线条，其实是已经正常显示了。
你可以通过在窗体增加以下代码得到验证：

Private Sub Form_Resize() '增加本模块让图片框最大化，以便看得更清楚
Picture1.Height = Me.Height
Picture1.Width = Me.Width
End Sub

同时在你的“Picture1.Cls”语句下面增加一句：
If h > 0 Then Picture1.Print Picture1.Height; h; "看见了" Else Picture1.Print Picture1.Height; h; "看不见线条"

这样你就一目了然了：即 h>0时基本能看见当h<0时就看不见线条了（画到外面了）
为何说基本能看见，是因为理论上应该是：0>h>Picture1.Height 范围才能看见线条否则看不见
明白了吧。