查看完整版本: AU3进度条的问题```

xingkongb 2008-5-1 12:53 PM

AU3进度条的问题```

[attach]2276[/attach]




怎么让 60秒无人操作自动运行呢?

还有怎么让 上边的选项是默认选择的```

怎么让 60秒无人操作自动运行呢?

还有怎么让 上边的选项是默认选择的```



代码如下:

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=D:\TDDOWNLOAD\au3\工具\Form1.kxf
$Form1 = GUICreate("Form1", 356, 396, 333, 185)
$Tab1 = GUICtrlCreateTab(32, 48, 273, 313)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$tab3 = GUICtrlCreateTabItem("基本调用练习")
$Group1 = GUICtrlCreateGroup("请您选择", 40, 72, 257, 73)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Radio1 = GUICtrlCreateRadio("记事本", 48, 96, 161, 17)
$Radio2 = GUICtrlCreateRadio("写字板", 48, 120, 161, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("请您选择", 40, 152, 257, 65)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Checkbox1 = GUICtrlCreateCheckbox("计算器", 72, 168, 97, 17)
$Checkbox2 = GUICtrlCreateCheckbox("画图", 72, 192, 97, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("安装说明", 40, 224, 257, 57)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
$Label1 = GUICtrlCreateLabel("60秒后会 自动运行默认选择的程序", 56, 240, 187, 18)
$Progress1 = GUICtrlCreateProgress(72, 256, 169, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("马上运行", 48, 304, 209, 49, 0)
GUICtrlSetFont(-1, 8, 400, 0, "Arial")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###



While 1
$msg = GUIGetMsg()
Select
  Case $msg = $GUI_EVENT_CLOSE
   ExitLoop
  Case $msg=$Button1
    _res()  
   
EndSelect

WEnd
Func _res()

   If GUICtrlRead($Radio1) = $GUI_CHECKED Then  
    run ("c:\windows\system32\notepad.exe","","3")
   EndIf
   If GUICtrlRead($Radio2) = $GUI_CHECKED Then
    run ("C:\Program Files\Windows NT\Accessories\wordpad.exe","","3")
   EndIf
   If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
    run ("calc.exe","","")
   EndIf
   If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
    run ("mspaint.exe","","3")
   EndIf
   
   
   
  EndFunc   ;==>_res
  
Func DefaultRes()

EndFunc   ;==>DefaultRes

[[i] 本帖最后由 xingkongb 于 2008-5-2 05:17 PM 编辑 [/i]]

xingkongb 2008-5-2 07:05 AM

谁来帮帮我。。等了一天了```yct05

xingkongb 2008-5-2 06:42 PM

yct05 yct05 yct05 yct05  谁来帮帮我````
页: [1]
查看完整版本: AU3进度条的问题```
Google