': This form was generated by ': InForm - GUI library for QB64 - Beta version 8 ': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor ': https://github.com/FellippeHeitor/InForm '----------------------------------------------------------- SUB __UI_LoadForm DIM __UI_NewID AS LONG __UI_NewID = __UI_NewControl(__UI_Type_Form, "WordSearcher", 300, 300, 0, 0, 0) SetCaption __UI_NewID, "WordSearcher" Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12) __UI_NewID = __UI_NewControl(__UI_Type_TextBox, "WhatSearchTB", 120, 23, 90, 16, 0) SetCaption __UI_NewID, "WhatSearch" ToolTip(__UI_NewID) = "Type here the word to search" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 __UI_NewID = __UI_NewControl(__UI_Type_Button, "AsStartPartBT", 80, 23, 14, 55, 0) SetCaption __UI_NewID, "As Start part" ToolTip(__UI_NewID) = "this searches the word typed at Start of the words" Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "AsEndPartBT", 80, 23, 112, 55, 0) SetCaption __UI_NewID, "As End part" ToolTip(__UI_NewID) = "this seaches the word typed as the END of the words" Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_Button, "AsAnyPartBT", 80, 23, 210, 55, 0) SetCaption __UI_NewID, "As any part " ToolTip(__UI_NewID) = "this searches the typed word as part of the words" Control(__UI_NewID).CanHaveFocus = True __UI_NewID = __UI_NewControl(__UI_Type_ListBox, "WorsListFounded", 268, 174, 21, 98, 0) ToolTip(__UI_NewID) = "this shows the words founded with criterion of button clicked" Control(__UI_NewID).HasBorder = True Control(__UI_NewID).CanHaveFocus = True Control(__UI_NewID).BorderSize = 1 END SUB SUB __UI_AssignIDs WordSearcher = __UI_GetID("WordSearcher") WhatSearchTB = __UI_GetID("WhatSearchTB") AsStartPartBT = __UI_GetID("AsStartPartBT") AsEndPartBT = __UI_GetID("AsEndPartBT") AsAnyPartBT = __UI_GetID("AsAnyPartBT") WorsListFounded = __UI_GetID("WorsListFounded") END SUB