```GUICtrlCreateLabel 控件显示```[已解决]-已解决问题区-AUTOIT CN

wu5cheng3_bak 发表于 2011-4-9 03:09:32

```GUICtrlCreateLabel 控件显示```[已解决]

本帖最后由 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

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

学习一下看

页: [1]

AUTOIT CN's Archiver

```GUICtrlCreateLabel 控件显示```[已解决]