哪位帅哥或美女知道字幕一碰到窗体就弹回反向滚动 如此循环

Question

rt 谢谢！

Answer 1

这个程序要是都不会写的话...哎....timer控件或for循环就搞定了,哎....真不知道现在的人杂了,最基本的都不会了?最起码的学习能力都没有了?

Answer 2

呵呵,放置一个label在窗口上,再放置一个timer控件,在timer里控制label的位置或者空格的数量就可以了.

Answer 3

诶~，哪怕你找到一段代码看不懂叫我们解释也好啊，最起码你看过了，努力过了，实在不行。但是你想了吗？好吧，我今天来是赚分数的，写份代码给你吧。Dim A As Integer '决定方向的数Private Sub Form_Load()
Timer1.Interval = 10 '设置时间间隔是500毫秒
'随机方向
Randomize
A = Int(Rnd(4) * 4 + 1)
End SubPrivate Sub Timer1_Timer()
If Label1.Left <> 0 And Label1.Left + Label1.Width <> Me.Width And Label1.Top <> 0 And Label1.Top + Label1.Height <> Me.Height Then
     Select Case A
     Case 1
       Label1.Move Label1.Left + 5, Label1.Top + 20
     Case 2
       Label1.Move Label1.Left - 35, Label1.Top + 20
     Case 3
       Label1.Move Label1.Left - 20, Label1.Top - 5
     Case 4
       Label1.Move Label1.Left + 35, Label1.Top - 20
    End Select
End IfIf Label1.Left <= 0 Then '碰到左边
    '随机方向
    Randomize
    A = Int(Rnd(4) * 4 + 1)
    
    Label1.Move Label1.Left + 20, Label1.Top + 20
End IfIf Label1.Top <= 0 Then '碰到上面
    '随机方向
    Randomize
    A = Int(Rnd() * 4 + 1)
    
    Label1.Move Label1.Left - 20, Label1.Top + 20
End IfIf Label1.Left + Label1.Width >= Me.Width - 200 Then '碰到右边
    '随机方向
    Randomize
    A = Int(Rnd(4) * 4 + 1)
    
    Label1.Move Label1.Left - 20, Label1.Top - 20
End IfIf Label1.Top + Label1.Height >= Me.Height - 500 Then '碰到下面
    '随机方向
    Randomize
    A = Int(Rnd(4) * 4 + 1)
    
    Label1.Move Label1.Left + 20, Label1.Top - 20
End If
End Sub直接弄到窗体上，放上一个Label控件和一个Timer控件，都别改名称，Label1的Caption属性随便写些什么就可以运行了。字幕的运动方向是随机的