': This form was generated by ': InForm - GUI library for QB64 - v1.5 ': Fellippe Heitor, 2016-2023 - fellippe@qb64.org - @fellippeheitor ': https://github.com/FellippeHeitor/InForm '----------------------------------------------------------- SUB __UI_LoadForm DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG __UI_NewID = __UI_NewControl(__UI_Type_Form, "WordSearch", 619, 714, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Word Search" Control(__UI_NewID).Font = SetFont("", 16) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CenteredWindow = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "FileToLoadLB", 104, 25, 30, 20, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&File to load:" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "FileTB", 345, 27, 134, 20, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Button, "LoadBT", 100, 25, 506, 20, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&Load" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True __UI_NewID = __UI_NewControl(__UI_Type_Label, "ResultLB", 470, 26, 134, 54, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "WordToSearchLB", 120, 25, 17, 89, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&Word to search:" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).AutoSize = True __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "WordTB", 342, 27, 137, 88, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Button, "SearchBT", 98, 26, 508, 87, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&Search" Control(__UI_NewID).ForeColor = _RGB32(0, 0, 59) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).Disabled = True __UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ResultList", 594, 522, 10, 126, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Button, "QUITBT", 85, 38, 520, 666, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "&QUIT" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True END SUB SUB __UI_AssignIDs WordSearch = __UI_GetID("WordSearch") FileToLoadLB = __UI_GetID("FileToLoadLB") FileTB = __UI_GetID("FileTB") LoadBT = __UI_GetID("LoadBT") ResultLB = __UI_GetID("ResultLB") WordToSearchLB = __UI_GetID("WordToSearchLB") WordTB = __UI_GetID("WordTB") SearchBT = __UI_GetID("SearchBT") ResultList = __UI_GetID("ResultList") QUITBT = __UI_GetID("QUITBT") END SUB