': 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, "Trackword", 408, 567, 0, 0, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Trackword Solver" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12) Control(__UI_NewID).HasBorder = False __UI_NewID = __UI_NewControl(__UI_Type_Frame, "Frame1", 136, 136, 240, 120, 0) __UI_RegisterResult = 0 Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Value = 9 Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "TrackwordSolverLB", 161, 32, 130, 14, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, " Trackword Solver " Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_ListBox, "ListBox1", 150, 320, 15, 220, 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_ListBox, "ListBox2", 150, 50, 15, 100, 0) __UI_RegisterResult = 0 Control(__UI_NewID).ForeColor = _RGB32(255, 0, 0) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Label, "WordsFoundLB", 150, 27, 15, 184, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Words Found" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Label, "NineLetterWordsLB", 129, 27, 25, 65, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Nine-Letter Words" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 16) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).VAlign = __UI_Middle __UI_NewID = __UI_NewControl(__UI_Type_Button, "SetPuzzleBT", 80, 23, 270, 80, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Set Puzzle" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 14) Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox1", 32, 32, 13, 12, __UI_GetID("Frame1")) __UI_RegisterResult = 0 Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox2", 32, 32, 53, 12, __UI_GetID("Frame1")) __UI_RegisterResult = 0 Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox3", 32, 32, 93, 13, __UI_GetID("Frame1")) __UI_RegisterResult = 0 Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox4", 32, 32, 13, 52, __UI_GetID("Frame1")) __UI_RegisterResult = 0 Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox5", 32, 32, 53, 52, __UI_GetID("Frame1")) __UI_RegisterResult = 0 Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox6", 32, 32, 93, 52, __UI_GetID("Frame1")) __UI_RegisterResult = 0 Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox7", 32, 32, 13, 92, __UI_GetID("Frame1")) __UI_RegisterResult = 0 Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox8", 32, 32, 53, 92, __UI_GetID("Frame1")) __UI_RegisterResult = 0 Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "TextBox9", 32, 32, 93, 92, __UI_GetID("Frame1")) __UI_RegisterResult = 0 Control(__UI_NewID).Font = SetFont("segoeui.ttf", 20) Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Max = 1 Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Button, "ExitBT", 80, 23, 310, 517, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Exit" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "SolveBT", 80, 23, 270, 272, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Solve" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "ClearBT", 80, 23, 270, 321, 0) __UI_RegisterResult = 0 SetCaption __UI_NewID, "Clear" Control(__UI_NewID).HasBorder = False Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_PictureBox, "PictureBox1", 150, 150, 240, 355, 0) __UI_RegisterResult = 0 Control(__UI_NewID).Stretch = True Control(__UI_NewID).HasBorder = True Control(__UI_NewID).Align = __UI_Center Control(__UI_NewID).VAlign = __UI_Middle Control(__UI_NewID).BorderSize = 1 END SUB SUB __UI_AssignIDs Trackword = __UI_GetID("Trackword") Frame1 = __UI_GetID("Frame1") TrackwordSolverLB = __UI_GetID("TrackwordSolverLB") ListBox1 = __UI_GetID("ListBox1") ListBox2 = __UI_GetID("ListBox2") WordsFoundLB = __UI_GetID("WordsFoundLB") NineLetterWordsLB = __UI_GetID("NineLetterWordsLB") SetPuzzleBT = __UI_GetID("SetPuzzleBT") TextBox1 = __UI_GetID("TextBox1") TextBox2 = __UI_GetID("TextBox2") TextBox3 = __UI_GetID("TextBox3") TextBox4 = __UI_GetID("TextBox4") TextBox5 = __UI_GetID("TextBox5") TextBox6 = __UI_GetID("TextBox6") TextBox7 = __UI_GetID("TextBox7") TextBox8 = __UI_GetID("TextBox8") TextBox9 = __UI_GetID("TextBox9") ExitBT = __UI_GetID("ExitBT") SolveBT = __UI_GetID("SolveBT") ClearBT = __UI_GetID("ClearBT") PictureBox1 = __UI_GetID("PictureBox1") END SUB