Tham khảo tài liệu 'giáo trình hình thành quy trình điều khiển thiết bị bán dẫn chứa các mạch logic điện tử p10', kỹ thuật - công nghệ, điện - điện tử phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | 92 setcolor WHITE if Color WHITE setcolor BLACK outtextxy l t b-t-textheight S 2-b t-3 S1 outtextxy l 5 t b-t-textheight S 2 S ---------------------------------------------------------- void TEXTBOX PressTextBox setcolor BLACK line l t r t line l t l b setcolor WHITE line l b r b line r t r b ---------------------------------------------------------- void TEXTBOX Path lay duong dan nhap vao vao bien S cua TEXTBOX char a int C1 Color1 C1 la mau cua text trong textbox o che do nhap ten file setcolor C1 outtextxy l 5 t b-t-textheight S 2 S chiso 0 MouseText l textwidth S 4 t b-t textheight S 2 Color C1 S gia dau nhac chuot char stemp 128 strcpy stemp S while a getch 13 a 27 kiem tra phim Enter switch a kiem tra ky tu nhap vao case 0 switch a getch case 71 home MouseText l 6 t b-t textheight S 2 Color C1 S chiso -strlen S break case 72 break case 73 break case 75 left arrow int f textwidth S int xt l 6 f --chiso 8 int yt t b-t textheight S 2 if xt l 6 xt l 6 f chiso 8 MouseText xt yt Color C1 S so 8 la be ngang 1 ky tu break case 77 right arrow if chiso 0 break f textwidth S MouseText l f 6 chiso 8 t b-t textheight S 2 Color C1 S so 8 la be ngang 1 ky tu break case 79 end f textwidth S MouseText l f 6 t b-t textheight S 2 Color C1 S chiso 0 break 93 case 80 case 81 case 82 break case 83 del setcolor GREEN outtextxy l 5 t b-t-textheight S 2 S DelChar strlen S chiso f textwidth S setcolor YELLOW outtextxy l 5 t b-t-textheight S 2 S MouseText l f 6 chiso 8 t b-t textheight S 2 Color C1 S so 8 la be ngang 1 ky tu break break case 8 backspace setcolor Color outtextxy l 5 t b-t-textheight S 2 S chiso-- DelChar strlen S setcolor C1 outtextxy l 5 t b-t-textheight S 2 S MouseText l textwidth S 6 chiso 8 t b- t textheight S 2 Color C1 S break case 27 Esc strcpy S stemp return default if a 32 a 126 if strlen S 2 8 r-l break setcolor GREEN outtextxy l 5 t b-t-textheight S 2 S InsertChar a setcolor C1 outtextxy l 5 t b-t-textheight S 2 S MouseText l textwidth S 6 chiso 8 t b-t .