中信易卡白金卡:用VB怎样实现状态栏的滚动文字信息

来源:百度文库 编辑:查人人中国名人网 时间:2024/07/06 14:08:32

实际上,文字滚动是不断显示裁减过的文字实现的

1:常规向左字符效果核心代码
MyStr为原始显示文字
OutStr为显示的文字

For i=Len(Mystr) to 0 Step -1
OutStr=Right(Mystr,i)
'显示文字
Next

2:向右

For i=0 to Len(MyStr)
OutStr=Left(Mystr,i)
'显示文字
Next