找回密码
 加入
搜索
AUTOIT CN»论坛 › AU3交流 › 『 提问交流 』 › 已解决问题区 › ```GUICtrlCreateLabel 控件显示```[已解决]
返回列表 发新帖
查看: 5614|回复: 12

[AU3基础] ```GUICtrlCreateLabel 控件显示```[已解决]

 火 [复制链接]
wu5cheng3_bak
发表于 2011-4-9 03:09:32 | 显示全部楼层 |阅读模式
本帖最后由 wu5cheng3 于 2011-4-9 18:30 编辑 
#NoTrayIcon

#include <StaticConstants.au3> ;标签(Label), 图片(Pic), 图标(Icon)
#include <WindowsConstants.au3> ;Gui 扩展样式
#include <GUIConstantsEx.au3> ;GUI 创建, 事件
#include <ButtonConstants.au3>;按钮(Button)样
#include <ProgressConstants.au3>;进度条(Progress Bar)控件样式


$ckbt = GUICreate("AUTOIT CN AutoIt中文论坛acnau3软件汉化   http://www.autoitx.com/", 600, 500)

GUISetBkColor(0x00E0FFFF)

$jbq1 = GUICtrlCreateTab(5, 135, 592, 270)
$jbxx = GUICtrlCreateTabItem("标签页1")

$fbq2 = GUICtrlCreateTab(50, 135, 592, 270)
$fwyh = GUICtrlCreateTabItem("标签页2")

$bq3 = GUICtrlCreateTab(95, 135, 592, 270)
$xtyh = GUICtrlCreateTabItem("标签页3")

$bq4 = GUICtrlCreateTab(185,135,592,270)
$xtmh = GUICtrlCreateTabItem("标签页4")

$bq5 = GUICtrlCreateTab(140, 135, 592, 270)
$xtjj = GUICtrlCreateTabItem("标签页5")

$bq6 = GUICtrlCreateTab(185,135,592,270)
$xtql = GUICtrlCreateTabItem("标签页6")

$lswj6= GUICtrlCreateCheckbox("【IE】 临时文件",30,180,160,15)
$ck6= GUICtrlCreateCheckbox("【IE】 Cookies",30,205,160,15)
$lllsjl6= GUICtrlCreateCheckbox("【IE】 浏览历史记录",30,230,160,15)

$xtqlbq = GUICtrlCreateLabel("说明:部分历史痕迹清理需要电脑重启或注销后生效!",26,380,350,18)
$xtqljdt = GUICtrlCreateProgress(305,377,100,18)
$xtqlksql = GUICtrlCreateButton("开始清理", 420, 376, 70, 20, $BS_FLAT)
$xtqlqx = GUICtrlCreateButton("全 选", 505, 376, 70, 20, $BS_FLAT)

GUISetState()

While 1
        $Msg = GUIGetMsg()
        Switch GUICtrlRead($jbq1,1)
                Case $msg = $GUI_EVENT_CLOSE
                        Exit
                Case $msg = $xtqlksql
                    ControlHide("","",$xtqlbq)
                    xtql()
                        GUICtrlCreateLabel("状态: 系统清理完毕! ... ...",26,380,200,18)
                        MsgBox(64,"X","系统垃圾已清理完毕!")
                        GUICtrlSetData($xtqljdt,0)
                        ControlShow("","",$xtqlbq)
                Case $msg = $xtqlqx
                    xtqlqx()
        EndSwitch
WEnd
        
Func xtql()
        if GUICtrlRead($lswj6) = $GUI_CHECKED Then 
                GUICtrlCreateLabel("状态: 正在清理 IE 临时文件 ... ...",26,380,230,18)
                RunWait(@ComSpec & " /C rundll32.exe " & @SystemDir & "\InetCpl.cpl,ClearMyTracksByProcess 8", "", @SW_HIDE)
                GUICtrlSetData($xtqljdt,33)
        EndIf
        
        if GUICtrlRead($ck6) = $GUI_CHECKED Then 
                GUICtrlCreateLabel("状态: 正在清理 IE Cookies ... ...",26,380,230,18)
                RunWait(@ComSpec & " /C rundll32.exe " & @SystemDir & "\InetCpl.cpl,ClearMyTracksByProcess 2", "", @SW_HIDE)
                GUICtrlSetData($xtqljdt,66)
        EndIf
                        
        if GUICtrlRead($lllsjl6) = $GUI_CHECKED Then 
                GUICtrlCreateLabel("状态: 正在清理 IE 浏览历史记录 ... ...",26,380,230,18)
                RunWait(@ComSpec & " /C rundll32.exe " & @SystemDir & "\InetCpl.cpl,ClearMyTracksByProcess 1", "", @SW_HIDE)
                GUICtrlSetData($xtqljdt,100)
        EndIf
EndFunc

Func xtqlqx()
        ;临时文件
        GUICtrlSetState($lswj6, $GUI_CHECKED)
        GUICtrlSetState($ck6, $GUI_CHECKED)
        GUICtrlSetState($lllsjl6, $GUI_CHECKED)
EndFunc


软件, 中文论坛

本帖子中包含更多资源

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

×

相关帖子
回复

举报

Au3代码高亮发贴标签： [AU3] 你的代码 [/AU3]                   支持论坛的发展，请添加此》》网址导航《《为您的主页          
happytc
发表于 2011-4-9 06:05:03 | 显示全部楼层
先建立这个Label，然后隐藏，再在while里让它显示就可以了
$xtql = GUICtrlCreateTabItem("标签页6")
$label = GUICtrlCreateLabel("状态: 系统清理完毕! ... ...",26,380,200,18)
GUICtrlSetState($label, $gui_hide)
.........

while 1
      .....
      xtql()
       GUICtrlSetState($label, $gui_show)
        ;GUICtrlCreateLabel("状态: 系统清理完毕! ... ...",26,380,200,18)
        MsgBox(64,"X","系统垃圾已清理完毕!")
       .......
回复

举报

netegg
发表于 2011-4-9 07:24:15 | 显示全部楼层
设置状态栏文本有直接的函数吧
回复

举报

kadingxiaodi
发表于 2011-4-9 07:42:50 | 显示全部楼层
貌似有直接函数
回复

举报

wu5cheng3_bak
 楼主| 发表于 2011-4-9 18:29:50 | 显示全部楼层 
#NoTrayIcon

#include <StaticConstants.au3> ;标签(Label), 图片(Pic), 图标(Icon)
#include <WindowsConstants.au3> ;Gui 扩展样式
#include <GUIConstantsEx.au3> ;GUI 创建, 事件
#include <ButtonConstants.au3>;按钮(Button)样
#include <ProgressConstants.au3>;进度条(Progress Bar)控件样式


$ckbt = GUICreate("AUTOIT CN AutoIt中文论坛acnau3软件汉化   http://www.autoitx.com/", 600, 500)

GUISetBkColor(0x00E0FFFF)

$jbq1 = GUICtrlCreateTab(5, 135, 592, 270)
$jbxx = GUICtrlCreateTabItem("标签页1")

$fbq2 = GUICtrlCreateTab(50, 135, 592, 270)
$fwyh = GUICtrlCreateTabItem("标签页2")

$bq3 = GUICtrlCreateTab(95, 135, 592, 270)
$xtyh = GUICtrlCreateTabItem("标签页3")

$bq4 = GUICtrlCreateTab(185,135,592,270)
$xtmh = GUICtrlCreateTabItem("标签页4")

$bq5 = GUICtrlCreateTab(140, 135, 592, 270)
$xtjj = GUICtrlCreateTabItem("标签页5")

$bq6 = GUICtrlCreateTab(185,135,592,270)
$xtql = GUICtrlCreateTabItem("标签页6")

$lswj6= GUICtrlCreateCheckbox("【IE】 临时文件",30,180,160,15)
$ck6= GUICtrlCreateCheckbox("【IE】 Cookies",30,205,160,15)
$lllsjl6= GUICtrlCreateCheckbox("【IE】 浏览历史记录",30,230,160,15)

$xtqlbq = GUICtrlCreateLabel("说明:部分历史痕迹清理需要电脑重启或注销后生效!",26,380,350,18)
$xtqljdt = GUICtrlCreateProgress(305,377,100,18)
$xtqlksql = GUICtrlCreateButton("开始清理", 420, 376, 70, 20, $BS_FLAT)
$xtqlqx = GUICtrlCreateButton("全 选", 505, 376, 70, 20, $BS_FLAT)

GUISetState()

While 1
        $Msg = GUIGetMsg()
        Switch GUICtrlRead($jbq1,1)
                Case $msg = $GUI_EVENT_CLOSE
                        Exit
                Case $msg = $xtqlksql
                    ControlHide("","",$xtqlbq)
                    xtql()
                    $xxxx = GUICtrlCreateLabel("状态: 系统清理完毕! ... ...",26,380,200,18)
                    MsgBox(64,"X","系统垃圾已清理完毕!")
                    GUICtrlSetData($xtqljdt,0)
                    ControlHide("","",$xxxx)
                Case $msg = $xtqlqx
                    xtqlqx()
        EndSwitch
WEnd
        
Func xtql()
        if GUICtrlRead($lswj6) = $GUI_CHECKED Then 
                $x = GUICtrlCreateLabel("状态: 正在清理 IE 临时文件 ... ...",26,380,230,18)
                RunWait(@ComSpec & " /C rundll32.exe " & @SystemDir & "\InetCpl.cpl,ClearMyTracksByProcess 8", "", @SW_HIDE)
                GUICtrlSetData($xtqljdt,33)
                ControlHide("","",$x)
        EndIf
        
        if GUICtrlRead($ck6) = $GUI_CHECKED Then 
                $xx = GUICtrlCreateLabel("状态: 正在清理 IE Cookies ... ...",26,380,230,18)
                RunWait(@ComSpec & " /C rundll32.exe " & @SystemDir & "\InetCpl.cpl,ClearMyTracksByProcess 2", "", @SW_HIDE)
                GUICtrlSetData($xtqljdt,66)
                ControlHide("","",$xx)
        EndIf
                        
        if GUICtrlRead($lllsjl6) = $GUI_CHECKED Then 
                $xxx = GUICtrlCreateLabel("状态: 正在清理 IE 浏览历史记录 ... ...",26,380,230,18)
                RunWait(@ComSpec & " /C rundll32.exe " & @SystemDir & "\InetCpl.cpl,ClearMyTracksByProcess 1", "", @SW_HIDE)
                GUICtrlSetData($xtqljdt,100)
                ControlHide("","",$xxx)
        EndIf
EndFunc

Func xtqlqx()
        ;临时文件
      GUICtrlSetState($lswj6, $GUI_CHECKED)
        GUICtrlSetState($ck6, $GUI_CHECKED)
        GUICtrlSetState($lllsjl6, $GUI_CHECKED)
EndFunc
非常感谢几位仁兄的帮助!~
回复

举报

cbao123
发表于 2011-4-17 08:06:36 | 显示全部楼层
好好学习天天向上
回复

举报

80ren
发表于 2011-11-24 16:02:00 | 显示全部楼层
设置状态栏文本有直接的函数
回复

举报

chinaxx
发表于 2012-8-29 16:48:31 | 显示全部楼层
下载参与一下
回复

举报

chinaxx
发表于 2012-8-30 09:42:29 | 显示全部楼层
学习一下看
回复

举报

chinaxx
发表于 2012-8-31 11:26:57 | 显示全部楼层
学习一下看
回复

举报

chinaxx
发表于 2012-8-31 11:27:07 | 显示全部楼层
学习一下看
回复

举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-11-15 12:26 , Processed in 0.081249 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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