找回密码
 加入
搜索
楼主: fuldho

AU3如何实现在窗口中显示循环滚动文字

 火... [复制链接]
 楼主| 发表于 2010-2-3 14:05:06 | 显示全部楼层
感谢“gapkiller”的无私帮助,老菜鸟非常感激,再次谢谢了!
发表于 2010-2-3 17:48:25 | 显示全部楼层
这是我一个未弄完的小软件部分(exe文件),虽没附源码,但有源码解说。

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×

评分

参与人数 1金钱 +19 收起 理由
gapkiller + 19 专业

查看全部评分

发表于 2010-2-3 19:04:13 | 显示全部楼层
这是我一个未弄完的小软件部分(exe文件),虽没附源码,但有源码解说。
afan 发表于 2010-2-3 17:48



    学习了...
发表于 2010-2-3 19:06:06 | 显示全部楼层
至于闪的问题,其实我还想到了内嵌IE...
发表于 2010-2-3 19:14:43 | 显示全部楼层
回复 19# gapkiller
期待牛人出招
发表于 2010-2-3 19:15:04 | 显示全部楼层
回复 17# afan

看看大作
发表于 2010-2-3 20:22:27 | 显示全部楼层
这是偶从别人的代码改的
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$a="2010年02月3日"

$Form1 = GUICreate("2010年02月3日", 790,586)

$Label1 = GUICtrlCreateLabel($a, 320,580,  572, 17,$SS_CENTERIMAGE)
GUISetState(@SW_SHOW)

$b = 1
While 1
if $b = 635 Then $b = 1
sleep (10)
ControlMove ($a,"", $Label1,  320,580-$b, 572, 17)
$b +=1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
        EndSwitch
WEnd
如何完善文字的显示,偶不想说了

评分

参与人数 1金钱 +15 收起 理由
afan + 15

查看全部评分

发表于 2010-2-3 20:40:01 | 显示全部楼层
回复 17# afan
为什么运行这个帖的四楼代码 会出现

错误呢?
而我把
If $s >= 188 Then AdlibUnRegister()
改为
If $s >= 188 Then Exit
就没事了!!!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?加入

×
发表于 2010-2-3 20:43:24 | 显示全部楼层
回复 23# lchl0588


    你的Au版本?
发表于 2010-2-3 20:45:53 | 显示全部楼层
回复 24# afan
v3.3.1.1 (beta)
发表于 2010-2-3 20:48:06 | 显示全部楼层
本帖最后由 afan 于 2010-2-3 20:52 编辑

将括号里面加一对引号即可。
If $s >= 188 Then AdlibUnRegister('')
以下版本及之上版本不用加。
3.3.1.2 (2009-10-14) (Beta)
AdlibUnRegister()'s function argument is now optional.  Called without arguments causes the last registered function to be unregistered.
发表于 2010-2-3 20:53:22 | 显示全部楼层
本帖最后由 lchl0588 于 2010-2-3 20:55 编辑

汗,我试过,加了之后,无循环的向右一直走下去,没有结束语,不会停止的

偶的英文不好,看了中文的:
AdlibUnRegister()的函数的参数现在是可选的。所谓原因不带参数的最后登记职能未经注册。
发表于 2010-2-3 20:53:26 | 显示全部楼层
本帖最后由 lchl0588 于 2010-2-3 21:05 编辑

如果到头后,再调用别的函数,或许更好些!!!!
回复 29# afan
呵呵,这个改法  在问之前我也试过,到头就停在那里了,应该消失才对吧!!!
如果不消失,那做这段代码就无意义了!!
发表于 2010-2-3 20:58:36 | 显示全部楼层
回复 28# lchl0588


    那就是 If $s >= 188 Then AdlibUnRegister('myadlib') 了,汗
发表于 2010-2-3 23:53:10 | 显示全部楼层
学到一招,收藏备用先!多谢gapkiller
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-4-20 11:15 , Processed in 0.083647 second(s), 19 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表