在EXCEL VBA用户窗体的标签控件里写了“您好”,想让它从左向右滚动
在EXCELVBA用户窗体的标签控件里写了“您好”两个字,想让它在打开该窗体时“您好”两字不停地从左向右滚动,各位高手怎么编程啊EXCEL里不是没有TIMER吗?...
在EXCEL VBA用户窗体的标签控件里写了“您好”两个字,
想让它在打开该窗体时“您好”两字不停地从左向右滚动,
各位高手怎么编程啊
EXCEL里不是没有TIMER 吗? 展开
想让它在打开该窗体时“您好”两字不停地从左向右滚动,
各位高手怎么编程啊
EXCEL里不是没有TIMER 吗? 展开
2个回答
展开全部
Private Sub UserForm_Activate()
Dim tmpTime As Long
Dim I As Integer, s As String
s = " 你好,这是标题滚动演示! "
Do
tmpTime = Timer
Do
DoEvents
Loop While (Timer - tmpTime < 1)
s = Right(s, 1) & Left(s, Len(s) - 1)
Label1.Caption = s
Loop
End Sub
给你一个例程,可参考修改。
Timer函数的最小值是1秒,所以,本例程看到的效果不佳,如需要滚动速度加快,需要编写额外的延时程序。
===================================
大哥,timer函数与timer控件是两码事噢!请查阅VB的相关帮助文件!
Timer 函数
返回一个 Single,代表从午夜开始到现在经过的秒数。
Dim tmpTime As Long
Dim I As Integer, s As String
s = " 你好,这是标题滚动演示! "
Do
tmpTime = Timer
Do
DoEvents
Loop While (Timer - tmpTime < 1)
s = Right(s, 1) & Left(s, Len(s) - 1)
Label1.Caption = s
Loop
End Sub
给你一个例程,可参考修改。
Timer函数的最小值是1秒,所以,本例程看到的效果不佳,如需要滚动速度加快,需要编写额外的延时程序。
===================================
大哥,timer函数与timer控件是两码事噢!请查阅VB的相关帮助文件!
Timer 函数
返回一个 Single,代表从午夜开始到现在经过的秒数。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询