哪位帅哥或美女知道字幕一碰到窗体就弹回反向滚动 如此循环
rt 谢谢！ --------------------编程问答-------------------- 这个程序要是都不会写的话...哎....timer控件或for循环就搞定了,哎....
真不知道现在的人杂了,最基本的都不会了?最起码的学习能力都没有了? --------------------编程问答-------------------- 只有把饭喂到他嘴里才行。。。。 --------------------编程问答-------------------- 呵呵,放置一个label在窗口上,再放置一个timer控件,在timer里控制label的位置或者空格的数量就可以了. --------------------编程问答-------------------- 去源码天空下载源码咯，，，自己学习，， --------------------编程问答-------------------- ....................无语,路过. --------------------编程问答-------------------- 大家不要鄙视我们这样的菜鸟，谁都是从菜过来的，你想想你正是在鄙视当初的自己 --------------------编程问答--------------------
不对，我们当菜鸟的时候也许更好学，更钻研。
更重要的是，那时我会设想如果是我设计一个语言，或者我是老鸟，我会用什么样的方式来处理这类问题。
不要以为所有的菜鸟都能自然而然地成为真正的高手。
--------------------编程问答--------------------
多说一句，如果你问的是函数的接口，或者一种语言中某一现象的原因，这一类知识性的问题，没有人会鄙视你。
但是，如果你问的是基本的思想方法，或者直接要代码，怕是无人垂青于你。
一些简单的问题我也会答，甚至写一些简单的代码，那是因为我觉得有趣，可以引发出一些想法。 --------------------编程问答-------------------- --------------------编程问答-------------------- 诶~，哪怕你找到一段代码看不懂叫我们解释也好啊，最起码你看过了，努力过了，实在不行。但是你想了吗？好吧，我今天来是赚分数的，写份代码给你吧。
Dim A As Integer '决定方向的数
Private Sub Form_Load()
Timer1.Interval = 10 '设置时间间隔是500毫秒
'随机方向
Randomize
A = Int(Rnd(4) * 4 + 1)
End Sub
Private 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 If
If Label1.Left <= 0 Then '碰到左边
'随机方向
Randomize
A = Int(Rnd(4) * 4 + 1)
Label1.Move Label1.Left + 20, Label1.Top + 20
End If
If Label1.Top <= 0 Then '碰到上面
'随机方向
Randomize
A = Int(Rnd() * 4 + 1)
Label1.Move Label1.Left - 20, Label1.Top + 20
End If
If Label1.Left + Label1.Width >= Me.Width - 200 Then '碰到右边
'随机方向
Randomize
A = Int(Rnd(4) * 4 + 1)
Label1.Move Label1.Left - 20, Label1.Top - 20
End If
If 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属性随便写些什么就可以运行了。字幕的运动方向是随机的 --------------------编程问答-------------------- 为什么基础类的帖子可以是0分的呢~~~~~，LZ，这就是你的不是了，你再菜，最起码发帖子要给分啊~，难怪大家骂你了~，不会做人啊~~~~~。也算我倒霉，来赚回答次数吧~~~~ --------------------编程问答-------------------- 有些老师太严厉了 --------------------编程问答--------------------
它就不是零分帖子，你也得不到分，因为楼主是不会来结贴的，你看看这个帖子是什么时候发的？楼主除了发帖还有没有再次回复？ --------------------编程问答-------------------- 这位楼主太有才了~~~~，算，来转回答次数吧~~~，一个星期10次以上各外加可用分30
补充：VB , 基础类
