Giáo Trình How To Use AutoIt A Professional Manner part 54 doc

@LF & "OS:" & @TAB & @OSVersion & @LF & "SP:" & @TAB &
@OSServicePack, 120, 30, 200, 80)
GUICtrlSetState(-1, $GUI_HIDE) ; Hides the "compinfo"-text during
initialization

GUICtrlCreateLabel("", 0, 170, 350, 2, $SS_SUNKEN)
$togglebutton = GUICtrlCreateButton("&Toggle", 35, 185, 70, 20)
$infobutton = GUICtrlCreateButton("&Info", 105, 185, 70, 20)
$statebutton = GUICtrlCreateButton("Col./Exp.", 175, 185, 70, 20)
$cancelbutton = GUICtrlCreateButton("&Cancel", 245, 185, 70, 20)

GUICtrlSetState($generalitem, BitOR($GUI_EXPAND,
$GUI_DEFBUTTON)) ; Expand the "General"-item and paint in bold
GUICtrlSetState($displayitem, BitOR($GUI_EXPAND,
$GUI_DEFBUTTON)) ; Expand the "Display"-item and paint in bold

GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $cancelbutton Or $msg = $GUI_EVENT_CLOSE
ExitLoop

Case $msg = $togglebutton ; Toggle the bold painting
If BitAND(GUICtrlRead($generalitem), $GUI_DEFBUTTON) Then
GUICtrlSetState($generalitem, 0)
GUICtrlSetState($displayitem, 0)
Else
GUICtrlSetState($generalitem, $GUI_DEFBUTTON)
GUICtrlSetState($displayitem, $GUI_DEFBUTTON)
EndIf

Case $msg = $infobutton
$item = GUICtrlRead($treeview) ; Get the controlID of the current
selected treeview item
If $item = 0 Then
MsgBox(64, "TreeView Demo", "No item currently selected")
Else
$text = GUICtrlRead($item, 1) ; Get the text of the treeview item
If $text == "" Then
MsgBox(16, "Error", "Error while retrieving infos about item")
Else
MsgBox(64, "TreeView Demo", "Current item selected is: " &
$text)
EndIf
EndIf

Case $msg = $statebutton
$item = GUICtrlRead($treeview)
If $item > 0 Then
$hItem = GUICtrlGetHandle($item)
DllCall("user32.dll", "int", "SendMessage", "hwnd",
GUICtrlGetHandle($treeview), "int", $TVM_EXPAND, "int", $TVE_TOGGLE,
"hwnd", $hItem)
EndIf

; The following items will hide the other labels (1st and 2nd parameter)
and then show the 'own' labels (3rd and 4th parameter)
Case $msg = $generalitem
GUIChangeItems($aboutlabel, $compinfo, $startlabel, $startlabel)

Case $msg = $aboutitem
GUICtrlSetState($compinfo, $GUI_HIDE)
GUIChangeItems($startlabel, $startlabel, $aboutlabel, $aboutlabel)

Case $msg = $compitem
GUIChangeItems($startlabel, $aboutlabel, $compinfo, $compinfo)
EndSelect
WEnd

GUIDelete()
EndFunc ;==>Example

Func GUIChangeItems($hidestart, $hideend, $showstart, $showend)
Local $idx

For $idx = $hidestart To $hideend
GUICtrlSetState($idx, $GUI_HIDE)
Next
For $idx = $showstart To $showend
GUICtrlSetState($idx, $GUI_SHOW)
Next
EndFunc ;==>GUIChangeItems



Function Reference
GUICtrlCreateUpdown
tạo một UpDown control cho GUI.
GUICtrlCreateUpdown ( inputcontrolID [,style] )
Parameters

inputcontrolID

controlID của input muốn updown add vào
style
kiểu, xem GUI Control Styles Appendix.

default (-1) : $UDS_ALIGNRIGHT.
forced style : $UDS_SETBUDDYINT and $UDS_ALIGNRIGHT
if no align defined.

Return Value
Success:

trả lại ControlID
Failure:

Returns 0.

Remarks

khai báo thư viện #include <UpDownConstants.au3> để dùng các hằng của
updown

giá trị to nhất và nhỏ nhất đc đặt bởi GUICtrlSetLimit.

mặc định của window: giá trị của input sẽ tăng lên 1 khi click vào nút lên

mặc định kích thuwocs của updown control ~ kích thước của input
Related
GUICtrlCreateInput, GUICtrlSetData, GUICtrlSetLimit

Example

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
Local $title, $input, $updown, $msg

$title = "My GUI UpDown"
GUICreate($title, -1, -1, -1, -1, $WS_SIZEBOX)

$input = GUICtrlCreateInput("2", 10, 10, 50, 20)
$updown = GUICtrlCreateUpdown($input)

; Attempt to resize input control
GUICtrlSetPos($input, 10, 10, 100, 40)

GUISetState()

; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

MsgBox(0, "Updown", GUICtrlRead($input))
EndFunc ;==>Example



Function Reference
GUICtrlDelete
xóa một control.
GUICtrlDelete ( controlID )
Parameters
controlID controlid

Return Value
Success:

Returns 1.
Failure:

Returns 0.

Remarks
!
Related
GUICreate, GUICtrlCreate , GUICtrlCreateContextMenu
Example