Tham khảo tài liệu 'autoi technology curriculum book 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 MyErrFunc SoRP ObjCreate 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 .BackColor 0xff00 EndWith GUISetState Show GUI While 1 Smsg GUIGetMsg Select Case Smsg SGUI_EVENT_CLOSE @ScriptDir 0 ExitLoop Case Smsg STagsPageC Run @ComSpec c start http guids typeinfo clsid 3B7C8860-D78F-101B-B9B5-04021C009402 @SW_HIDE Case Smsg SAboutC Case Smsg SPrefsC 12 Case Smsg SStatC False False False 8 EndSelect WEnd GUIDelete EndFunc RichEditExample Func MyErrFunc MsgBox 0 AutoltCOM Test We intercepted a COM Error @CRLF @CRLF _ is @TAB @CRLF _ @TAB @CRLF is @TAB Hex 8 @CRLF _ is @TAB @CRLF _ is @TAB @CRLF _ is @TAB @CRLF _ is @TAB @CRLF _ is @TAB _ 5 Will automatically continue after 5 seconds Local Serr If Serr 0 Then Serr -1 SetError .
