[已解决]为何窗体的标题没滚动效果？

爱疯

Private Sub UserForm_Activate()
    If Application.Wait(Now + TimeValue("0:00:05")) Then Call Scroll
End Sub



Sub Scroll()
    Dim x, i, j
    x = "abcdef...."
    For i = 0 To Len(x)
        UserForm1.Caption = Mid(x, i + 1) & Left(x, i)
        For j = 1 To 10 ^ 7    '延时
        Next j
    Next i
End Sub



1.xls是测试效果，能否改善。
对于2.xls，请问如题。谢谢！ 滚动效果.rar (18.77 KB, 下载次数: 17)

2013-11-18 11:04 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-11-18 19:06

过程名可能和系统的重了，压根不会掉用你的过程。
你改成myscroll就成了。

跳转到最佳答案楼层

hwc2ycy

1. Private Sub UserForm_Activate()
   
2.     Dim x, i
   
3.     x = "abcdef...."
   
4.     For i = 0 To Len(x)
   
5.         UserForm1.Caption = Mid(x, i + 1) & Left(x, i)
   
6.         VBA.DoEvents
   
7.         Application.Wait (Now + TimeValue("0:00:1"))
   
8.     Next
   
9. End Sub

复制代码

hwc2ycy

过程名可能和系统的重了，压根不会掉用你的过程。
你改成myscroll就成了。

hwc2ycy

爱疯

只要代码运行，好像鼠标的光标就是“程序执行中”的状态。

这一来，代码就只有“看看”的效果了，没啥实用性。

难道真没实用性吗