AutoIT Help part 45 pps

Function Reference GUICtrlCreateGraphic tạo Graphic control cho GUI để vẽ.. GUICtrlCreateGraphic left, top [, width [, height [, style]]] Parameters left toaj đọ X width chiều rộng he

Func RichEditExample()

Local $oRP, $TagsPageC, $AboutC, $PrefsC, $StatC, $GUIActiveX, $msg

$oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

$oRP = ObjCreate("RICHTEXT.RichtextCtrl.1")

GUICreate("Embedded RICHTEXT control Test", 320, 200, -1, -1,

BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS,

$WS_CLIPCHILDREN))

$TagsPageC = GUICtrlCreateLabel('Visit Tags Page', 5, 180, 100, 15,

$SS_CENTER)

GUICtrlSetFont($TagsPageC, 9, 400, 4)

GUICtrlSetColor($TagsPageC, 0x0000ff)

GUICtrlSetCursor($TagsPageC, 0)

$AboutC = GUICtrlCreateButton('About', 105, 177, 70, 20)

$PrefsC = GUICtrlCreateButton('FontSize', 175, 177, 70, 20)

$StatC = GUICtrlCreateButton('Plain Style', 245, 177, 70, 20)

$GUIActiveX = GUICtrlCreateObj($oRP, 10, 10, 400, 260)

GUICtrlSetPos($GUIActiveX, 10, 10, 300, 160)

With $oRP; Object tag pool

.OLEDrag()

.Font = 'Arial'

.text = "Hello - Au3 supports ActiveX components like the RICHTEXT thanks to SvenP" & @CRLF & 'Try write some text and quit to reload'

;.FileName = @ScriptDir & '\RichText.rtf'

;.BackColor = 0xff00

EndWith

GUISetState();Show GUI

While 1

$msg = GUIGetMsg()

Select

Case $msg = $GUI_EVENT_CLOSE

$oRP.SaveFile(@ScriptDir & "\RichText.rtf", 0)

ExitLoop

Case $msg = $TagsPageC

Run(@ComSpec & ' /c start

http://www.myplugins.info/guids/typeinfo/typeinfo.php?clsid={3B7C8860-D78F-101B-B9B5-04021C009402}', '', @SW_HIDE)

Case $msg = $AboutC

$oRP.AboutBox()

Case $msg = $PrefsC

$oRP.SelFontSize = 12

Case $msg = $StatC

$oRP.SelBold = False

$oRP.SelItalic = False

$oRP.SelUnderline = False

$oRP.SelFontSize = 8

EndSelect

WEnd

GUIDelete()

EndFunc ;==>RichEditExample

Func MyErrFunc()

MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF &

@CRLF & _

"err.description is: " & @TAB & $oMyError.description & @CRLF & _ "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _

"err.number is: " & @TAB & Hex($oMyError.number, 8) & @CRLF & _ "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _ "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _

"err.source is: " & @TAB & $oMyError.source & @CRLF & _

"err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _

"err.helpcontext is: " & @TAB & $oMyError.helpcontext _

, 5)

; Will automatically continue after 5 seconds

Local $err = $oMyError.number

If $err = 0 Then $err = -1

SetError($err) ; to check for after this function returns

EndFunc ;==>MyErrFunc

Function Reference

GUICtrlCreateGraphic

tạo Graphic control cho GUI để vẽ

GUICtrlCreateGraphic ( left, top [, width [, height [, style]]] )

Parameters

left toaj đọ X

width chiều rộng

height chiều cao

style

kiểu xem thêm GUI Control Styles Appendix

default ( -1) : $SS_NOTIFY

Return Value

Success: trả lại ControlID

Failure: Returns 0

Remarks

để vẽ trên control xem hàm GUICtrlSetGraphic

GUICtrlSetBkColor (set màu nền) và GUICtrlSetColor (set màu vẽ)

Related

GUICtrlSetGraphic, GUICtrlSetBkColor, GUICtrlSetColor, GUICtrlDelete, GUICoordMode (Option), GUISetState, GUICtrlSetStyle, GUICtrlSetResizing, GUIGetMsg

Example

#include <GUIConstantsEx.au3>

#include <StaticConstants.au3>

Opt('MustDeclareVars', 1)

Global $MAXGr = 6, $del

Global $a[$MAXGr + 1] ; 0 and $MAXGr entries not used to allow

GUICtrlDelete result

Example()

Func Example()

Local $msg, $inc, $i

CreateChild()

$i = 1

$inc = 1

Do

$msg = GUIGetMsg()

If $msg = $del Then

GUICtrlDelete($a[$i])

$i = $i + $inc

If $i < 0 Or $i > $MAXGr Then Exit

EndIf

If $msg > 0 Then MsgBox(0, "clicked", $msg & @LF & $a[5], 2)

Until $msg = $GUI_EVENT_CLOSE

EndFunc ;==>Example

Func CreateChild()

Local $child

$child = GUICreate("My Draw")

$del = GUICtrlCreateButton("Delete", 50, 165, 50)

$a[1] = GUICtrlCreateGraphic(20, 50, 100, 100)

GUICtrlSetBkColor(-1, 0xffffff)

GUICtrlSetColor(-1, 0)

GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff0000, 0xff0000) GUICtrlSetGraphic(-1, $GUI_GR_PIE, 50, 50, 40, 30, 270) GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x00ff00, 0xffffff) GUICtrlSetGraphic(-1, $GUI_GR_PIE, 58, 50, 40, -60, 90)

GUICtrlSetGraphic(-1, $GUI_GR_ELLIPSE, 100, 100, 50, 80) GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x00ff00, 0xc0c0ff) GUICtrlSetGraphic(-1, $GUI_GR_RECT, 350, 200, 50, 80) GUICtrlCreateLabel("label", 65, 100, 30)

GUICtrlSetColor(-1, 0xff)

$a[2] = GUICtrlCreateGraphic(220, 50, 100, 100)

GUICtrlSetStyle(-1, $SS_NOTIFY)

GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0, 0xff)

GUICtrlSetGraphic(-1, $GUI_GR_PIE, 50, 50, 40, 30, 270) GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x00ff00, 0xffffff) GUICtrlSetGraphic(-1, $GUI_GR_PIE, 58, 50, 40, -60, 90)

$a[3] = GUICtrlCreateGraphic(220, 150, 100, 100, 0)

GUICtrlSetBkColor(-1, 0xf08080)

GUICtrlSetColor(-1, 0xff)

GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff00)

GUICtrlSetGraphic(-1, $GUI_GR_RECT, 50, 50, 80, 80)

$a[4] = GUICtrlCreateGraphic(20, 200, 80, 80)

GUICtrlSetState(-1, $GUI_DISABLE)

GUICtrlSetBkColor(-1, 0xffffff)

GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 10, 10)

GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff)

GUICtrlSetGraphic(-1, $GUI_GR_LINE, 30, 40)

GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff00)