Question

vb 滚动字幕代码

题目4 滚动字幕板

题目介绍
“滚动字幕板”是指人们在公共场所（如车站、机场、办公大厅等）经常见到的用来显示消息、广告、通知等内容的显示屏。滚动字幕的方式容易引起观众的注意，具有很好的宣传作用。本程序要求编制一个模拟滚动字幕板的实用程序。
2. 功能要求
⑴ 启动程序，同时显示如图4.1和图4.2所示的两个窗口，窗口一是用来显示滚动字幕的显示板，窗口二是控制板。

图4.1 显示窗口

图4.2 控制窗口
⑵ 单击控制窗口中的“开始滚动”按钮，显示窗口中的文字开始滚动显示。滚动的方式由控制窗口中“字幕滚动方向控制”框中四个单选框决定的，共有四种方式：“从左往右”、“从右往左”、“穿透式左右摆动”和“壁面反射式摆动”， “从右往左”是默认方式。选择“滚动字幕的文字大小控制”框中的“大字体”或“小字体”单选框，可以改变显示窗口中文字的大小。从“滚动字幕字体控制”框中可以为显示窗口中的文字选择一种字体。表示字体的四个按钮实际上是按钮样式的单选框（设置其Style属性）。
⑶ 本程序提供了8种内置文字内容，单击“内置字幕” 框中一个按钮可以改变滚动字幕的内容。如果要显示自定义的文字内容，可以直接在控制窗口底部的文本框中输入，然后按回车键即可。
⑷ 通过“前景色”和“背景色”组合框（如图4.3所示）可以改变滚动字幕的前景色和背景色。如果选定了“颜色自动变化”复选框，则滚动字幕的前景色和背景色均自动变化（每1秒变换一次）。

图4.3 选择颜色
⑸ 单击控制板窗口中的“隐藏控制板”按钮可以将控制窗口隐藏只留显示板，双击显示板窗口可以重新显示控制板。单击控制窗口中的“退出”按钮，同时关闭两个窗口，程序结束。

Answer 1

现在的心情是伤心&痛苦&绝望
本来已经写的差不多了 结果电脑无辜断电 没有良好保存习惯的我只有.....
现在贴上部分代码 如果还有不明白继续提问也可以或者发消息给我
穿透式左右摆动 不明白啥意识 所以没写

Dim YDfx As Boolean

Private Sub Form_Load()
YDfx = False
End Sub

Private Sub Timer1_Timer() '左到右
If Label1.Left >= Form1.ScaleWidth Then
Label1.Move (Form1.ScaleLeft - Label1.Width)
Else
Label1.Move (Label1.Left + 100)
End If
End Sub

Private Sub Timer2_Timer() '右到左
If Label1.Left <= Form1.ScaleLeft - Label1.Width Then
Label1.Move (Form1.ScaleWidth)
Else
Label1.Move (Label1.Left - 100)
End If
End Sub
'-----------------------------来回移动---------------
Private Sub Timer3_Timer()
If YDfx Then
Call Yyd
Else
Call Zyd
End If
End Sub
Sub Yyd()
If Label1.Left >= Form1.ScaleLeft Then
Label1.Move (Label1.Left - 100)
Else
YDfx = False
End If
End Sub

Sub Zyd()
If Label1.Left <= Form1.ScaleWidth - Label1.Width Then
Label1.Move (Label1.Left + 100)
Else
YDfx = True
End If
End Sub
'-----------------------------来回移动---------------

'随机颜色
Private Sub Timer5_Timer()
Randomize Timer
Label1.ForeColor = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))
End Sub

Answer 2

你们这群童鞋是一个班的吗？邮箱多少？才做了一个，送佛送到西了我

Answer 3

1416914056@qq.com
可以个我发一个吗？谢谢了！

Answer 4

用time控制文本框移动不就可以了吗！