hzxymkb 发表于 2010-2-25 16:17:09

窗口的背景怎么自动更换！

本帖最后由 hzxymkb 于 2010-2-25 23:27 编辑

窗口的背景图片怎么自动更换！就是隔5分钟就自动换一张！请高手赐教！

解决方法在4#

lanfengc 发表于 2010-2-25 16:46:57

Global $StartTime=TimerInit()
OnAutoItExitRegister("_exit")
AdlibRegister("timerfunc",500)

While 1
        Sleep(100)
WEnd
Func timerfunc()
        $Now=TimerDiff($StartTime)
        ToolTip("已经过了："&$Now,200,100)
        If $Now>10000 Then
                MsgBox(0,"","达到定时时间！")
                $StartTime=TimerInit()
        EndIf
EndFunc
Func _exit()
        AdlibUnRegister("timerfunc")
EndFunc

可以参考我的这段代码。

menfan 发表于 2010-2-25 20:41:35

搜索一下就知道啦

hzxymkb 发表于 2010-2-25 23:26:15

#include <WindowsConstants.au3>
#NoTrayIcon
    ;创建背景窗口
    $v1=GUICreate("",@DesktopWidth,@DesktopHeight,"","",$WS_POPUP)
      ;显示一幅背景图像
        $pic=GUICtrlCreatePic("setup"&_ran_dom(1,Random(1, 2, 2))&".jpg", 0,0,@DesktopWidth, @DesktopHeight)
    GUISetState(@SW_SHOW)

        ;间隔3秒
        For $k=1 To 10
      Sleep(3000)
      GUICtrlSetImage($pic,"setup"&_ran_dom(1,Random(1, 2, 2))&".jpg")
        Next
      
Func _ran_dom($var,$n)
      $cdk = ""
      if $var = 1 then
             FOR $i= 1 to $n
            $cdk = $cdk&Chr(Random(Asc("1"), Asc("9")))
            Next
      EndIf
      Return $cdk
EndFunc

gaozhenghong 发表于 2010-3-26 11:56:08

好东西，支持一下

newuser 发表于 2010-5-6 08:37:56

本帖最后由 newuser 于 2010-5-6 09:04 编辑

回复 4# hzxymkb

改来改去还是不行!
除了将图片改名称setup1.jpg setup2.jpg就行了,但问题是再次执行,就什么都不显示了?
而且我将@desktopweight改为 -1,@desktopheight改为-1 也不显示了?

hzxymkb 发表于 2010-5-6 13:31:09

回复 6# newuser
怎么不行呀！？

newuser 发表于 2010-5-6 14:01:41

回复 7# hzxymkb
好使了,是我再执行一次后马上再点击就是灰色了,不过我测试了一次之后稍微等了一会在点击就又好使了.
另外,能否麻烦阁下再讲解一下该代码的函数部分,可以吗?
Random ( [最小值 [, 最大值 [, 标志]]] ) 中random(1,2,2)中最后一个2什么意思啊!在random()帮助中没有找到啊!另外我设置了5张图片,图片名分别是setup1.jpg 到setup5.jpg,那为什么不是random(1,5,2)呢?

mo_shaojie 发表于 2010-11-21 10:27:03

这个好,学习下.

wangqinpei 发表于 2010-11-26 13:29:24

还是要学习。。。。
页: [1]
查看完整版本: 窗口的背景怎么自动更换！