初学者

收到的鲜花

• 我是菜鸟哦 于 2008-11-26 19:26 送鲜花  9朵   附言：鼓励一下下

方法不错，鼓励一下。
提几个建议
1、图像比例失真问题？
2、窗口能否最大化？

提个优化建议
左右移动字幕，可以一个定时器里完成。
当到最左边时，增量变为 100
当到最右边时，增量变为 -100
变量的程序段完全相同。

其它没仔细看。

谢谢啊，我去试试，一个Timer控件我也想了，当时没想出来

一个Timer怎么搞啊,帮我写下代码

lable1.left=lable1.left+增量
if lable1.left <10 then 增量=100      
if lable1.left > me.width - lable1.width then 增量= -100

大概语句就是这样的，代码是在你自己完善。

Private Sub Timer1_Timer()
Dim H
Label1.Move Label1.Left + H
If Label1.Left + Label1.Width > Form1.ScaleWidth Then H = -100
If Label1.Left < 10 Then H = 100
End Sub
这样啊 ,不行吗
指导