找回密码
 加入
搜索
查看: 5194|回复: 14

[AU3基础] (已解决)这个进度條的代码如何改正,

  [复制链接]
发表于 2012-6-28 18:20:32 | 显示全部楼层 |阅读模式
本帖最后由 faceyao 于 2012-6-28 22:51 编辑

这个进度条运行后会自动从100退回来,要求不要他退回来,到了100就exit,且最好在到34%和94%的位置简短的停1400毫秒,
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Opt("MustDeclareVars", 1)

Global $Form, $Graphic, $Label
Global $nMsg, $i, $time = 50

GraphicProgress()
Func GraphicProgress()
$Form = GUICreate("Form1", 302, 15, -1, -1, _
BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS), _
BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE))
$Graphic = GUICtrlCreateGraphic(0, 0, 1, 15)
GUICtrlSetBkColor(-1, 0xFF0000)
$Label = GUICtrlCreateLabel("0%", 137, 2, 26, 13)
GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case 0
            For $i = 1 To 302 Step 1
                GUICtrlSetPos($Graphic, 0, 0, $i, 15)
                GUICtrlSetData($Label, Round($i/3.02) & "%")
                If GUICtrlRead($Label) = 48 Then GUICtrlSetColor($Label, 0xFFFFFF)
                Sleep($time)
            Next
            For $i = 302 To 1 Step -1
                GUICtrlSetPos($Graphic, 0, 0, $i, 15)
                GUICtrlSetData($Label, Round($i/3.02) & "%")
                If GUICtrlRead($Label) = 52 Then GUICtrlSetColor($Label, 0x000000)
                Sleep($time)
            Next
                Exit
    EndSwitch
WEnd
EndFunc 
发表于 2012-6-28 18:39:22 | 显示全部楼层
本帖最后由 afan 于 2012-6-28 18:49 编辑

这不叫怪异,仅为演示……
要学会看懂代码,像这种东西看懂了修改就很简单了。照搬不会有进步的。多独立思考,少提问。
#NoTrayIcon
#include <WindowsConstants.au3>

GraphicProgress(1400, 34, 94)

Func GraphicProgress($time1, $vPro1, $vPro2)
        Local $Graphic, $Label, $vPro, $time = 50
        GUICreate("", 302, 15, -1, -1, _
                        BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS), _
                        BitOR($WS_EX_OVERLAPPEDWINDOW, $WS_EX_TOPMOST, $WS_EX_WINDOWEDGE))
        $Graphic = GUICtrlCreateGraphic(0, 0, 1, 15)
        GUICtrlSetBkColor(-1, 0xFF0000)
        $Label = GUICtrlCreateLabel("0%", 137, 2, 26, 13)
        GUICtrlSetFont(-1, 6, 400, 0, "MS Sans Serif")
        GUICtrlSetBkColor(-1, -2)
        GUISetState()
        For $i = 1 To 302
                GUICtrlSetPos($Graphic, 0, 0, $i, 15)
                $vPro = Round($i / 3.02)
                GUICtrlSetData($Label, $vPro & "%")
                If $vPro = 48 Then GUICtrlSetColor($Label, 0xFFFFFF)
                If $vPro = $vPro1 Or $vPro = $vPro2 Then ContinueLoop Sleep($time1)
                Sleep($time)
        Next
EndFunc   ;==>GraphicProgress

评分

参与人数 1金钱 +18 收起 理由
faceyao + 18 Thanks!

查看全部评分

发表于 2012-6-28 19:17:46 | 显示全部楼层
啥叫怪异?标题党啊!
修改这个应该还算简单吧  
 楼主| 发表于 2012-6-28 19:31:05 | 显示全部楼层
请问如何让这个不在任务栏显示

本帖子中包含更多资源

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

×
发表于 2012-6-28 19:47:00 | 显示全部楼层
第10行改成这个
BitOR($WS_EX_OVERLAPPEDWINDOW,$WS_EX_TOPMOST,$WS_EX_WINDOWEDGE),WinGetHandle("Program Manager"))

评分

参与人数 1金钱 +18 收起 理由
faceyao + 18 thanks!

查看全部评分

发表于 2012-6-28 20:07:35 | 显示全部楼层
本帖最后由 komaau3 于 2012-6-28 20:15 编辑

回复 4# faceyao

http://www.autoitscript.com/foru ... hl__%20itaskbarlist
发表于 2012-6-28 21:41:40 | 显示全部楼层
回复 6# komaau3
谢谢兄弟分享,但是ITaskBarList.au3下载不了啊!能不能共享一下啊?
发表于 2012-6-28 22:31:33 | 显示全部楼层
回复 7# xms77

我也是让蛋蛋帮我下的,以前下的找不到了

本帖子中包含更多资源

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

×
发表于 2012-6-28 22:44:18 | 显示全部楼层
回复 8# komaau3

旧版的貌似有问题哦 找了个在线代理给down下来了 效果很酷

本帖子中包含更多资源

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

×

评分

参与人数 1金钱 +10 收起 理由
komaau3 + 10 好 以前下的就是这个

查看全部评分

发表于 2012-6-28 22:49:29 | 显示全部楼层
回复 8# komaau3
谢谢分享,但是怎么解压缩出错啊!
发表于 2012-6-28 22:58:13 | 显示全部楼层
回复 10# xms77

呵呵 用我的吧 win7下不是一般的帅 忍不住拿出来分享  



本帖子中包含更多资源

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

×
发表于 2012-6-28 23:03:02 | 显示全部楼层
回复 11# ashfinal
呵呵,是被我逼出来的吧? 谢谢了,兄弟!笑纳了~~
发表于 2012-6-28 23:06:01 | 显示全部楼层
回复 11# ashfinal
咦,东西呢?
发表于 2012-6-28 23:24:33 | 显示全部楼层
回复 13# xms77



9楼。。。
发表于 2012-6-29 08:33:45 | 显示全部楼层
回复 14# ashfinal
骚瑞啊!我还以为是原先的那个呢!
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-11-22 12:48 , Processed in 0.091283 second(s), 30 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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