会计舞弊案例分析:vb 程序设计

来源:百度文库 编辑:高考问答 时间:2024/04/28 01:46:51
可移动的字幕
1、用“开始”按钮和“停止”按钮控制启动和停止,用“结束”按钮退出程序。运行时,首先使字幕向左移动,当字幕的左边碰到窗体的左边界时,字幕开始向右移动;当字幕的右边碰到窗体的右边界时,字幕开始向左移动,直到单击停止按钮为止。
2、在窗体上添加一个水平滚动条,使字幕的移动速度随着滚动条上的滚动块的位置变化而变化。

That's easy!用timer控件就可以了.代码如下:
If Label1.Left < 3500 Then
Label1.Left = Label1.Left + 150
Else
Label1.Left = 0
End If

用timer控制,不断改变字的位置

懒得写
不过需要注意的是窗体最大化后的变化