VBA自学应用（9）——制作游走字幕

不知道大家还记不记得很多商铺前都挂了电子荧幕，用来显示游走字幕——“本店今推出特价商品咸鱼excel、麻辣ppt”，今天就让我们自己用excel来制作这样的游走字幕，方法如下

• 按ALT+F11打开vbe窗口，选择插入→用户窗体
• 在用户窗体上添加frame控件 ，通过属性窗口设置backcolor为你喜欢的颜色,borderstyle为0,caption=""
  -添加label控件 ，设置backstyle为你喜欢的颜色，borderstyle为0，caption=""
• 接下来添加命令按钮 ，插入如下代码

Private Sub CommandButton1_Click()
Dim BL As Boolean
Dim T As Single
Dim strs As String
strs = "欢迎来到星梦的世界！"
Me.Label1.Left = Me.Frame1.Left + Me.Frame1.Width
Me.Label1.Caption = strs
Do
If BL = False Then
Me.Label1.Left = Me.Label1.Left - 1
If Me.Label1.Left + Me.Label1.Width <= Me.Frame1.Left Then
Me.Label1.Left = Me.Frame1.Left + Me.Frame1.Width
End If
End If
T = Timer
Do While Timer - T < 0.01
DoEvents
Loop
Loop
End Sub

这样我们就可以看到我们的成果啦！

• 点赞
• 收藏
• 分享
• 文章举报