vb盲请教代码翻译 希望各位达人 给予帮忙 谢谢

来源：百度知道 编辑：UC知道 时间：2024/05/23 19:54:33
1. 字体滚动
Private Sub Form_Load()
Form1.Caption = "字体滚动"
Timer1.Interval = 100
Timer1.Enabled = False
Label1.ForeColor = vbRed
End Sub
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Command1.Caption = "停止"
Else
Timer1.Enabled = False
Command1.Caption = "开始"
End If
End Sub
Private Sub Timer1_Timer()
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width
Else
Label1.Left = Label1.Left + 100
End If
End Sub

希望各位VB高手能给系统的翻译一下 小盲先谢谢了
谢谢zgwxm 不知道 我归纳的一下简述对吗
窗体标题栏显示“字体滚动”字样
点击命令按钮“开始”程序开始启动(显示字样“开始”变为“停止”)
字幕从右向左滚动 0.1秒滚动一次 一次滚动100像素 长宽根据内容多少
标签字体为红色
再次点击命令按钮以上效果停止 （显示字样“停止”变为“开始”）

可反复点击运行

Private Sub Form_Load() '程序启动时运行的代码放在此处
Form1.Caption = "字体滚动"' 窗体标题栏显示“字体滚动”字样
Timer1.Interval = 100 '时钟控件的Interval属性为100即100毫秒启动一次
Timer1.Enabled = False '时钟控件的Enabled属性无效即不启动
Label1.ForeColor = vbRed '设的标签字体红色
End Sub
Private Sub Command1_Click() '单击命令按钮时运行这段代码
If Command1.Caption = "开始" Then '如果命令按钮上的字为“开始”，那么运行以下代码
Timer1.Enabled = True '时钟控件的Enabled属性有效，即字体开始移动
Command1.Caption = "停止" '命令按钮上显示“停止”
Else '否则运行以下代码
Timer1.Enabled = False '时钟控件停止，即字体停止移动
Command1.Caption = "开始" '命令按钮上显示“开始”
End If
End Sub
Private Sub Timer1_Timer() '时钟控件的Enabled属性有效时运行这里的代码
If Label1.Left >= Form1.Width Then
Label1.Left = -Label1.Width '.Left为标签距离窗体左边的像素数，Width为标签的左右长度。
Else
Label1.Left = Label1.Left + 100 '
End If
End Sub

补充：基本正确。你必须亲自实践，才能很快掌握。