': This program uses
': InForm - GUI library for QB64 - Beta version 8
': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
': https://github.com/FellippeHeitor/InForm
'-----------------------------------------------------------
': Controls' IDs: ------------------------------------------------------------------
': External modules: ---------------------------------------------------------------
'$INCLUDE:'InForm\InForm.ui'
'$INCLUDE:'InForm\xp.uitheme'
'$INCLUDE:'wordsearcher.frm'
': Event procedures: ---------------------------------------------------------------
wordcount = wordcount + 1
SUB __UI_BeforeUpdateDisplay
'This event occurs at approximately 30 frames per second.
'You can change the update frequency by calling SetFrameRate DesiredRate%
'If you set __UI_UnloadSignal = False here you can
'cancel the user's request to close.
IF LEFT$(wordlist
(i
), l
) = m$
THEN AddItem WorsListFounded
, wordlist
(i
) ' _DELAY .3
IF RIGHT$(wordlist
(i
), l
) = m$
THEN AddItem WorsListFounded
, wordlist
(i
) ' _DELAY .3
IF INSTR(wordlist
(i
), m$
) THEN AddItem WorsListFounded
, wordlist
(i
) ' _DELAY .3
ResetList WorsListFounded
SearcheR 1
ResetList WorsListFounded
SearcheR 2
ResetList WorsListFounded
SearcheR 3
'This event occurs right before a control loses focus.
'To prevent a control from losing focus, set __UI_KeepFocus = True below.
'When this event is fired, __UI_KeyHit will contain the code of the key hit.
'You can change it and even cancel it by making it = 0