SetBatchLines -1

String := "　　　　　　测试效果，长一点的。"
Gui, Add, Text, vS gRev, %String%
Gui, +AlwaysOnTop +ToolWindow
Gui, Show
SetTimer, Animate, 150
Return

; 另一个例子
CoordMode ToolTip
x=0
Loop
  ToolTip, 简易滚动效果, % ++x
Return

Animate:
  String := (!Reverse) ? (SubStr(String, 0) . Substr(String, 1, StrLen(String)-1)) : (SubStr(String, 2) . SubStr(String, 1, 1))
  GuiControl,,S, %String%
return

Rev: ; 当用户单击文本控件时，运行文字滚动将会反向
  Reverse := !Reverse
return

GuiClose:
  ExitApp

 

声明：站内资源为整理优化好的代码上传分享与学习研究，如果是开源代码基本都会标明出处，方便大家扩展学习路径。请不要恶意搬运，破坏站长辛苦整理维护的劳动成果。本站为爱好者分享站点，所有内容不作为商业行为。如若本站上传内容侵犯了原著者的合法权益，请联系我们进行删除下架。