vb程序，高手请进 急

1.在vb窗体上显示动态、变色文字，左进右出

2.点击窗体发出声音

3.标题文字左进右出

给出具体程序代码

Private Const fTitle As String = "我向右移动"

Private Const MaxSpace As Long = 20 '控制最大位移

Private Sub Form_Click()
Beep '单击窗体发声
End Sub

Private Sub Form_Load()

Timer1.Interval = 100
Timer2.Interval = 150

End Sub

Private Sub Timer1_Timer()'动态变色文字及左进右出
Randomize
Label1.ForeColor = RGB(Int(Rnd * 250), Int(Rnd * 250), Int(Rnd * 250)) '变色

'*********************左进右出************************
If Label1.Left < Me.Width Then
Label1.Left = Label1.Left + 80 '控制最大位移
Else
Label1.Left = 0
End If
'******************************************************

End Sub

Private Sub Timer2_Timer() '标题栏文字左进右出
Static i As Long, j As Boolean
Dim tmpStr As String, sLen As Long

sLen = Len(fTitle)
i = i + 1
If i >= 0 And i <= MaxSpace Then
tmpStr = Space(i) & fTitle
Else
If i < 0 Then
tmpStr = Mid(fTitle, Abs(i), sLen + i)
Else
i = 0
End If
End If
Me.Caption = tmpStr
End Sub

窗体上放2个Timer控件和1个label

动态变色和文字左进右出 我用一个TIMER来控制了，你也可以分开。

Dim strText As String

Private Sub Command1_Click() Reset End Sub

Private Sub Form_Click()

Beep '声音 Label2.Visible = True Label2.Width = 0 Timer1.Enabled = True End Sub

Private Sub Form_Load()

Timer1.Interval = 100 Timer1.Enabled = False Command1.Caption = "重设" Reset End Sub

Private Sub Timer1_Timer() Label2.Width = Label2.Width + 100 End Sub

Private Sub Reset()

strText = InputBox("输入文本") Label1 = strText Label1.ForeColor = vbBlue Label2 = strText Label2.ForeColor = vbRed Label2.Top = Label1.Top Label2.Left = Label1.Left Label2.Visible = False End Sub

'窗体放一个计时器(timer1)，一个命令按钮(command1)，两个标签(label1和label2)

'点击窗体运行效果

1.简单点，用 label 控件装载文字，用Timer改变 Label 的文字颜色，颜色根据你自己需要调配，RGB,0~255

2.用多媒体控件播放声音。

3.最简单的，在Timer内循环设置标题文字，空空格控制进出距离，内容通过字符串拆解组合就是左进右出的效果。

4.如果以上的你自己做不了，给你源代码对你也没有提高的意义，除非你有一些细节不明白再说。

5.代码太啰嗦，做起来费时间，我比你还懒，不做了。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息