GIỚI THIỆU VỀ AUTOIT-Lập Trình Trên AutoIT part 21 potx

 Muốn dùng các giá trị nêu trên, phải gọi #include <StaticConstants.au3>
trong file script của bạn
 Đưa về kích thước mặc định là $GUI_DOCKAUTO
 Style mở rộng $GUI_WS_EX_PARENTDRAG cho phép bạn kéo những
cửa sổ bố-mẹ không có thanh tiêu đề (không có $WS_CAPTION trong
GUICreate)
 Để thiết lập màu nền trong suốt, gọi GUICtrlSetBkColor(-1,
$GUI_BKCOLOR_TRANSPARENT).
Ví dụ
#include <GUIConstantsEx.au3>
Opt('MustDeclareVars', 1)
Example()
Func Example()
Local $widthCell, $msg, $iOldOpt
; will create a dialog box that when displayed is centered
GUICreate("My GUI")
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

GUICtrlCreatePic
Hàm này sẽ tạo ra một control cho phép nạp và hiển thị hình ảnh (picture) trên
GUI.
GUICtrlCreatePic ( filename, left, top [, width [, height [, style [, exStyle]]]] )
Các tham số
Filename
Đư
ờng dẫn v
à tên đ
ầy đủ file ảnh cần load. Hỗ trợ ảnh BMP, JPG v
à
GIF (không có hình động)
left

Kho
ảng cách canh từ lề trái của GUI (tọa độ x). Nếu sử dụng
-
1, thì l
ề
trái được tính theo GUICoordMode.
Top

Kho
ảng cách canh từ lề tr
ên c
ủa GUI (tọa độ y). Nếu sử dụng
-
1, thì l
ề
trái được tính theo GUICoordMode.

width

[tùy
ch
ọn] độ rộng của control. Mặc định l
à đ
ộ rộng đ
ã dùng tr
ư
ớc đó

height

[tùy ch
ọn] chiều cao của control. Mặc định l
à chi
ều cao đ
ã dùng tr
ư
ớc
đó.
Style
[Tùy ch
ọn] Định nghĩa style cho control. Xem
GUI Control Styles
Appendix.

default (-1) : $SS_NOTIFY
style bắt buộc : $SS_BITMAP
exStyle

[tùy ch
ọn] Định nghĩa style mở rộng. Xem Extended Style Table.


Giá trị trả về
Th.
Công :
Trả về ID của control picture vừa được tạo
H
ỏng :


Tr
ả về 0 nếu ảnh không tạo đ
ư
ợc ảnh


Chú ý
 Để thiết lập hoặc thay đổi thông tin picture, xem hàm GUICtrlSet
 Để cập nhật ảnh sau khi hộp thoại đã được hiển thị , sử dụng hàm
GUICtrlSetImage
 Nếu bạn muốn ảnh hiển thị với kích thước gốc của nó , gán width = heigh
= 0
 Nếu bạn muốn có một ảnh trong suốt , bạn cần tạo GUI với style mở
rộng $WS_LAYERED. Điểm ảnh left-top (góc trái trên) sẽ được dùng làm
màu trong suốt. Khi có nhiều ảnh được tạo , thì ảnh cuối cùng được định
nghĩa màu trong suốt. Xem example 2.
 .Để kết hợp style mặc định với style khác , sử dụng

BitOr($GUI_SS_DEFAULT_PIC, newstyle, ).
 Để sử dụng được các giá trị nêu trên , gọi thư viện #include
<StaticConstants.au3>
 Đưa về kích thước mặc định : $GUI_DOCKSIZE.
 Nếu một ảnh được thiết lập làm ảnh trong suốt , các control khác sẽ bị
phủ lấp , điều quan trọng là phải vô hiệu control pic và tạo nó sau khi bạn đã
tạo các control khác : GUICtrlSetState(-1, $GUI_DISABLE). Chỉ điều này
thôi thì chưa đủ cho control Tab và ListView vì chúng sẽ hoạt động hơi khác
thường. Trong trường hợp này bạn cần tạo ảnh với style
$WS_CLIPSIBLINGS , GuiCtrlSetState(-1,$GUI_ONTOP) là cần thiết cho
control Tab và ListView.
 Style mở rộng $GUI_WS_EX_PARENTDRAG cho phép bạn nắm và
kéo những cửa sổ con không có thanh tiêu đề.
 Nền thì luôn được làm cho trong suốt. GUICtrlSetBkColor( ) thì không
có tác dụng đối với control picture.
 PNG có thể được dùng với GDI+. Xem example 3.
Ví dụ
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Opt('MustDeclareVars', 1)
Global $gui, $guiPos, $pic, $picPos
Example1()
Example2()
; example 1
Func Example1()
Local $n, $msg
GUICreate("My GUI picture", 350, 300, -1, -1, $WS_SIZEBOX +
$WS_SYSMENU) ; will create a dialog box that when displayed is centered
GUISetBkColor(0xE0FFFF)
$n = GUICtrlCreatePic(@SystemDir & "\oobe\images\mslogo.jpg", 50, 50,

200, 50)
GUISetState()
; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
;~ GUISetState ()
; resize the control
$n = GUICtrlSetPos($n, 50, 50, 200, 100)
; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUIDelete()
EndFunc ;==>Example1
; example 2
Func Example2()
Local $msg
$gui = GUICreate("test transparentpic", 200, 100,-1 )
$pic = GUICreate("", 68, 71, 10, 10, $WS_POPUP,
BitOR($WS_EX_LAYERED, $WS_EX_MDICHILD), $gui)
GUICtrlCreatePic(@SystemDir & "\oobe\images\merlin.gif", 0, 0, 0, 0,-
1,$GUI_WS_EX_PARENTDRAG )
GUISetState(@SW_SHOW, $gui)
GUISetState(@SW_SHOW, $pic)
HotKeySet("{ESC}", "main")
HotKeySet("{LEFT}", "left")
HotKeySet("{RIGHT}", "right")

HotKeySet("{DOWN}", "down")
HotKeySet("{UP}", "up")
$picPos = WinGetPos($pic)