Giáo Trình How To Use AutoIt A Professional Manner part 45 pps

32)
$n2 = GUICtrlCreateIcon(@WindowsDir & "\cursors\horse.ani", -1, 0, 40, 32,
32)

GUISetState(@SW_SHOW)

Dim $a = 0, $b = 0
While ($a < 300) And ($b < 300)
$a = $a + Int(Random(0, 1) + 0.5)
$b = $b + Int(Random(0, 1) + 0.5)
GUICtrlSetPos($n1, $a, 0)
GUICtrlSetPos($n2, $b, 40)
Sleep(20)
WEnd
Sleep(1000)
Opt("GUICoordMode", $iOldOpt)
EndFunc ;==>Example2



Function Reference
GUICtrlCreateInput
tạo ra Input control cho GUI để nhập hiện chuỗi kí tự.
GUICtrlCreateInput ( "text", left, top [, width [, height [, style [, exStyle]]]] )
Parameters
text text hiện trị sẵn trên control
left tọa độ X
top tọa độ Y
width chiều rộng
height chiều cao
style kiểu. xem thêm GUI Control Styles Appendix.

default ( -1) : $ES_LEFT, $ES_AUTOHSCROLL
forced styles : $WS_TABSTOP only if no $ES_READONLY.
$ES_MULTILINE is always reset.
exStyle kiểu mở rộng. xem Extended Style Table.

Return Value
Success:

trả lại ControlID
Failure:

Returns 0.

Remarks
để lấy giá trị của control ta dùng GUICtrlRead.
để đặt các thuộc tính cho control ta dùng GUICtrlSet

để nhập kiểu password ta thêm thuộc tính $ES_PASSWORD cho nó.

nếu bạn muốn kéo và thả file trên edit bạn cần phải tạo gui có thuộc
tính WS_EX_ACCEPTFILES extended style ở hàm GUICreate() và set
kiểu $GUI_DROPACCEPTED cho nó bằng guictrlsetstate.
lựa chọn nhiều file sẽ đc phân biệt bởi dấu "|"

để có thể dùng đc các biến trên ta cần phải khai báo thư viện #include
<EditConstants.au3> in your script.

Default resizing is $GUI_DOCKHEIGHT.
Related

GUICoordMode (Option), GUICtrlSet , GUIGetMsg, GUICtrlRead
Example

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
Local $file, $btn, $msg

GUICreate(" My GUI input acceptfile", 320, 120, @DesktopWidth / 2 - 160,
@DesktopHeight / 2 - 45, -1, 0x00000018); WS_EX_ACCEPTFILES
$file = GUICtrlCreateInput("", 10, 5, 300, 20)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlCreateInput("", 10, 35, 300, 20) ; will not accept drag&drop files
$btn = GUICtrlCreateButton("Ok", 40, 75, 60, 20)

GUISetState()

$msg = 0
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
Select
Case $msg = $btn
ExitLoop
EndSelect
WEnd

MsgBox(4096, "drag drop file", GUICtrlRead($file))
EndFunc ;==>Example



Function Reference
GUICtrlCreateLabel
tạo raLabel control cho GUI để hiện thị text.
GUICtrlCreateLabel ( "text", left, top [, width [, height [, style [, exStyle]]]] )
Parameters
text text hiện trị sẵn trên control
left tọa độ X
top tọa độ Y
width chiều rộng
height chiều cao
style
kiểu. xem thêm GUI Control Styles Appendix.

default ( -1) : none.
forced styles : $SS_NOTIFY, $SS_LEFT
exStyle kiểu mở rộng. xem Extended Style Table.

Return Value
Success:

trả lại ControlID
Failure:

Returns 0.

Remarks
để lấy giá trị của control ta dùng GUICtrlRead.
để đặt các thuộc tính cho control ta dùng GUICtrlSet

để sử dụng nhiều kiểu trong style ta dùng BitOr($GUI_SS_DEFAULT_LABEL,
newstyle, ).

để có thể dùng đc các biến trên ta cần phải khai báo thư viện #include
<StaticConstants.au3> in your script.

Default resizing is $GUI_DOCKAUTO size and position will occur.

để đặt màu nền của label là trong suốt ta dùng GUICtrlSetBkColor( label handle,
$GUI_BKCOLOR_TRANSPARENT).
Related
GUICoordMode (Option), GUICtrlSet , GUIGetMsg
Example

#include <GUIConstantsEx.au3>

Opt('MustDeclareVars', 1)

Example()

Func Example()
Local $widthCell, $msg, $iOldOpt

GUICreate("My GUI") ; will create a dialog box that when displayed is
centered

GUISetHelp("notepad") ; will run notepad if F1 is typed
$iOldOpt = Opt("GUICoordMode", 2)

$widthCell = 70
GUICtrlCreateLabel("Line 1 Cell 1", 10, 30, $widthCell) ; first cell 70 width
GUICtrlCreateLabel("Line 2 Cell 1", -1, 0) ; next line
GUICtrlCreateLabel("Line 3 Cell 2", 0, 0) ; next line and next cell
GUICtrlCreateLabel("Line 3 Cell 3", 0, -1) ; next cell same line
GUICtrlCreateLabel("Line 4 Cell 1", -3 * $widthCell, 0) ; next line Cell1

GUISetState() ; will display an empty dialog box

; Run the GUI until the dialog is closed
Do
$msg = GUIGetMsg()
Until $msg = $GUI_EVENT_CLOSE

$iOldOpt = Opt("GUICoordMode", $iOldOpt)
EndFunc ;==>Example