Đang chuẩn bị nút TẢI XUỐNG, xin hãy chờ
Tải xuống
Tham khảo tài liệu 'giáo trình how to use autoit a professional manner part 43', công nghệ thông tin, kỹ thuật lập trình phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Func RichEditExample Local SoRP STagsPageC SAboutC SPrefsC SStatC SGUIActiveX msg SoMyError ObjEvent AutoIt.Error MyErrFunc SoRP ObjCreate RICHTEXT.RichtextCtrl.1 GUICreate Embedded RICHTEXT control Test 320 200 -1 -1 BitOR WS_OVERLAPPEDWINDOW WS_CLIPSIBLINGS WS_CLIPCHILDREN STagsPageC GUICtrlCreateLabel Visit Tags Page 5 180 100 15 SSS_CENTER GUICtrlSetFont TagsPageC 9 400 4 GUICtrlSetColor TagsPageC 0x0000ff GUICtrlSetCursor TagsPageC 0 SAboutC GUICtrlCreateButton About 105 177 70 20 SPrefsC GUICtrlCreateButton FontSize 175 177 70 20 SStatC GUICtrlCreateButton Plain Style 245 177 70 20 SGUIActiveX GUICtrlCreateObj SoRP 10 10 400 260 GUICtrlSetPos GUIActiveX 10 10 300 160 With SoRP 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 Smsg GUIGetMsg Select Case Smsg SGUI_EVENT_CLOSE SoRP.SaveFile @ScriptDir RichText.rtP 0 ExitLoop Case Smsg STagsPageC Run @ComSpec c start http www.myplugins.info guids typeinfo typeinfo.php clsid 3B7C8860-D78F-101B-B9B5-04021C009402 @SW_HIDE Case Smsg SAboutC SoRP.AboutBox Case Smsg SPrefsC SoRP.SelFontSize 12 Case Smsg SStatC SoRP.SelBold False SoRP.SelItalic False SoRP.SelUnderline False SoRP.SelFontSize 8 EndSelect WEnd GUIDelete EndFunc RichEditExample Func MyErrFunc MsgBox 0 AutoltCOM Test We intercepted a COM Error @CRLF @CRLF _ err.description is @TAB SoMyError.description @CRLF _ err.windescription @TAB SoMyError.windescription @CRLF err.number is @TAB Hex oMyError.number 8 @CRLF _ err.lastdllerror is @TAB SoMyError.lastdllerror @CRLF _ err.scriptline is @TAB SoMyError.scriptline @CRLF _ err.source is @TAB SoMyError.source @CRLF _ err.helpfile is @TAB SoMyError.helpfile @CRLF _ err.helpcontext is @TAB SoMyError.helpcontext _ 5 Will automatically continue after 5 seconds Local Serr SoMyError.number If Serr 0 Then Serr -1 SetError .
