[Inform]WordSearcher... but Listbox doesn't work well

[TempodiBasic]

Hi guys
here a Windowed (window based) version of the code of Steve https://www.qb64.org/forum/index.php?topic=1359.msg105517#msg105517 but on running I have had a problem...
program crashes when I click on ListBox after computation!?

Here code:

Code: QB64: [Select]

1. ': This program uses
2. ': InForm - GUI library for QB64 - Beta version 8
3. ': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
4. ': https://github.com/FellippeHeitor/InForm
5. '-----------------------------------------------------------
6.  
7. ': Controls' IDs: ------------------------------------------------------------------
8. DIM SHARED WordSearcher AS LONG
9. DIM SHARED WhatSearchTB AS LONG
10. DIM SHARED AsStartPartBT AS LONG
11. DIM SHARED AsEndPartBT AS LONG
12. DIM SHARED AsAnyPartBT AS LONG
13. DIM SHARED WorsListFounded AS LONG
14. REDIM SHARED wordlist(1000000) AS STRING
15. ': External modules: ---------------------------------------------------------------
16. '$INCLUDE:'InForm\InForm.ui'
17. '$INCLUDE:'InForm\xp.uitheme'
18. '$INCLUDE:'wordsearcher.frm'
19.  
20. ': Event procedures: ---------------------------------------------------------------
21. SUB __UI_BeforeInit
22.  
23. END SUB
24.  
25. SUB __UI_OnLoad
26.     OPEN "Scrabble WordList 2006.txt" FOR BINARY AS #1
27.     DO UNTIL EOF(1)
28.         wordcount = wordcount + 1
29.         LINE INPUT #1, wordlist(wordcount)
30.     LOOP
31.     REDIM _PRESERVE wordlist(wordcount)
32.     CLOSE
33. END SUB
34.  
35. SUB __UI_BeforeUpdateDisplay
36.     'This event occurs at approximately 30 frames per second.
37.     'You can change the update frequency by calling SetFrameRate DesiredRate%
38.  
39. END SUB
40.  
41. SUB __UI_BeforeUnload
42.     'If you set __UI_UnloadSignal = False here you can
43.     'cancel the user's request to close.
44.  
45. END SUB
46.  
47. SUB SearcheR (Mode AS INTEGER)
48.     m$ = _TRIM$(UCASE$(Text(WhatSearchTB)))
49.     l = LEN(m$)
50.     SELECT CASE Mode
51.         CASE 1 ' STA
52.             FOR i = 1 TO wordcount
53.                 IF LEFT$(wordlist(i), l) = m$ THEN AddItem WorsListFounded, wordlist(i)
54.                 '    _DELAY .3
55.             NEXT
56.         CASE 2 '"END"
57.             FOR i = 1 TO wordcount
58.                 IF RIGHT$(wordlist(i), l) = m$ THEN AddItem WorsListFounded, wordlist(i)
59.                 '  _DELAY .3
60.             NEXT
61.         CASE 3 '"CON"
62.             FOR i = 1 TO wordcount
63.                 IF INSTR(wordlist(i), m$) THEN AddItem WorsListFounded, wordlist(i)
64.                 '  _DELAY .3
65.             NEXT
66.         CASE ELSE
67.             END
68.     END SELECT
69. END SUB
70.  
71.  
72. SUB __UI_Click (id AS LONG)
73.     SELECT CASE id
74.         CASE WordSearcher
75.  
76.         CASE WhatSearchTB
77.  
78.         CASE AsStartPartBT
79.             IF LEN(Text(WhatSearchTB)) > 0 THEN
80.                 ResetList WorsListFounded
81.                 SearcheR 1
82.             END IF
83.         CASE AsEndPartBT
84.             IF LEN(Text(WhatSearchTB)) > 0 THEN
85.                 ResetList WorsListFounded
86.                 SearcheR 2
87.             END IF
88.         CASE AsAnyPartBT
89.             IF LEN(Text(WhatSearchTB)) > 0 THEN
90.                 ResetList WorsListFounded
91.                 SearcheR 3
92.             END IF
93.         CASE WorsListFounded
94.  
95.     END SELECT
96. END SUB
97.  
98. SUB __UI_MouseEnter (id AS LONG)
99.     SELECT CASE id
100.         CASE WordSearcher
101.  
102.         CASE WhatSearchTB
103.  
104.         CASE AsStartPartBT
105.  
106.         CASE AsEndPartBT
107.  
108.         CASE AsAnyPartBT
109.  
110.         CASE WorsListFounded
111.  
112.     END SELECT
113. END SUB
114.  
115. SUB __UI_MouseLeave (id AS LONG)
116.     SELECT CASE id
117.         CASE WordSearcher
118.  
119.         CASE WhatSearchTB
120.  
121.         CASE AsStartPartBT
122.  
123.         CASE AsEndPartBT
124.  
125.         CASE AsAnyPartBT
126.  
127.         CASE WorsListFounded
128.  
129.     END SELECT
130. END SUB
131.  
132. SUB __UI_FocusIn (id AS LONG)
133.     SELECT CASE id
134.         CASE WhatSearchTB
135.  
136.         CASE AsStartPartBT
137.  
138.         CASE AsEndPartBT
139.  
140.         CASE AsAnyPartBT
141.  
142.         CASE WorsListFounded
143.  
144.     END SELECT
145. END SUB
146.  
147. SUB __UI_FocusOut (id AS LONG)
148.     'This event occurs right before a control loses focus.
149.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
150.     SELECT CASE id
151.         CASE WhatSearchTB
152.  
153.         CASE AsStartPartBT
154.  
155.         CASE AsEndPartBT
156.  
157.         CASE AsAnyPartBT
158.  
159.         CASE WorsListFounded
160.  
161.     END SELECT
162. END SUB
163.  
164. SUB __UI_MouseDown (id AS LONG)
165.     SELECT CASE id
166.         CASE WordSearcher
167.  
168.         CASE WhatSearchTB
169.  
170.         CASE AsStartPartBT
171.  
172.         CASE AsEndPartBT
173.  
174.         CASE AsAnyPartBT
175.  
176.         CASE WorsListFounded
177.  
178.     END SELECT
179. END SUB
180.  
181. SUB __UI_MouseUp (id AS LONG)
182.     SELECT CASE id
183.         CASE WordSearcher
184.  
185.         CASE WhatSearchTB
186.  
187.         CASE AsStartPartBT
188.  
189.         CASE AsEndPartBT
190.  
191.         CASE AsAnyPartBT
192.  
193.         CASE WorsListFounded
194.  
195.     END SELECT
196. END SUB
197.  
198. SUB __UI_KeyPress (id AS LONG)
199.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
200.     'You can change it and even cancel it by making it = 0
201.     SELECT CASE id
202.         CASE WhatSearchTB
203.  
204.         CASE AsStartPartBT
205.  
206.         CASE AsEndPartBT
207.  
208.         CASE AsAnyPartBT
209.  
210.         CASE WorsListFounded
211.  
212.     END SELECT
213. END SUB
214.  
215. SUB __UI_TextChanged (id AS LONG)
216.     SELECT CASE id
217.         CASE WhatSearchTB
218.  
219.     END SELECT
220. END SUB
221.  
222. SUB __UI_ValueChanged (id AS LONG)
223.     SELECT CASE id
224.         CASE WorsListFounded
225.  
226.     END SELECT
227. END SUB
228.  
229. SUB __UI_FormResized
230.  
231. END SUB
232.  

and attached are the screenshot of crashing and the .frm file. While the .txt is avaiable on the link above showed.
Remember to have installed Inform into QB64 folder.
 

about the issue IMHO the cause may be a too fast FOR NEXT loop, but also a _DELAY .3 has no good results.

Thanks to read and for feedback

[FellippeHeitor]

A few things fixed in your code (no changes to the form, just the .bas):

• wordcount was not a shared variable
• wordlist was being REDIMmed but you were not specifying the correct data type (STRING) in SUB __UI_OnLoad
• there was an END statement in SUB SearcheR, which I changed into an EXIT SUB. Using SYSTEM is OK, but you shouldn't use END in an InForm-based program (using _DELAY is a bad idea too).

Code: QB64: [Select]

1. ': This program uses
2. ': InForm - GUI library for QB64 - Beta version 8
3. ': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
4. ': https://github.com/FellippeHeitor/InForm
5. '-----------------------------------------------------------
6.  
7. ': Controls' IDs: ------------------------------------------------------------------
8. DIM SHARED WordSearcher AS LONG
9. DIM SHARED WhatSearchTB AS LONG
10. DIM SHARED AsStartPartBT AS LONG
11. DIM SHARED AsEndPartBT AS LONG
12. DIM SHARED AsAnyPartBT AS LONG
13. DIM SHARED WorsListFounded AS LONG
14. REDIM SHARED wordlist(1000000) AS STRING, wordcount AS LONG
15. ': External modules: ---------------------------------------------------------------
16. '$INCLUDE:'InForm\InForm.ui'
17. '$INCLUDE:'InForm\xp.uitheme'
18. '$INCLUDE:'wordsearcher.frm'
19.  
20. ': Event procedures: ---------------------------------------------------------------
21. SUB __UI_BeforeInit
22.  
23. END SUB
24.  
25. SUB __UI_OnLoad
26.     OPEN "Scrabble WordList 2006.txt" FOR BINARY AS #1
27.     DO UNTIL EOF(1)
28.         wordcount = wordcount + 1
29.         LINE INPUT #1, wordlist(wordcount)
30.     LOOP
31.     REDIM _PRESERVE wordlist(wordcount) AS STRING
32.     CLOSE
33. END SUB
34.  
35. SUB __UI_BeforeUpdateDisplay
36.     'This event occurs at approximately 30 frames per second.
37.     'You can change the update frequency by calling SetFrameRate DesiredRate%
38.  
39. END SUB
40.  
41. SUB __UI_BeforeUnload
42.     'If you set __UI_UnloadSignal = False here you can
43.     'cancel the user's request to close.
44.  
45. END SUB
46.  
47. SUB SearcheR (Mode AS INTEGER)
48.     m$ = _TRIM$(UCASE$(Text(WhatSearchTB)))
49.     l = LEN(m$)
50.     SELECT CASE Mode
51.         CASE 1 ' STA
52.             FOR i = 1 TO wordcount
53.                 IF LEFT$(wordlist(i), l) = m$ THEN AddItem WorsListFounded, wordlist(i)
54.             NEXT
55.         CASE 2 '"END"
56.             FOR i = 1 TO wordcount
57.                 IF RIGHT$(wordlist(i), l) = m$ THEN AddItem WorsListFounded, wordlist(i)
58.             NEXT
59.         CASE 3 '"CON"
60.             FOR i = 1 TO wordcount
61.                 IF INSTR(wordlist(i), m$) THEN AddItem WorsListFounded, wordlist(i)
62.             NEXT
63.         CASE ELSE
64.             EXIT SUB
65.     END SELECT
66. END SUB
67.  
68.  
69. SUB __UI_Click (id AS LONG)
70.     SELECT CASE id
71.         CASE WordSearcher
72.  
73.         CASE WhatSearchTB
74.  
75.         CASE AsStartPartBT
76.             IF LEN(Text(WhatSearchTB)) > 0 THEN
77.                 ResetList WorsListFounded
78.                 SearcheR 1
79.             END IF
80.         CASE AsEndPartBT
81.             IF LEN(Text(WhatSearchTB)) > 0 THEN
82.                 ResetList WorsListFounded
83.                 SearcheR 2
84.             END IF
85.         CASE AsAnyPartBT
86.             IF LEN(Text(WhatSearchTB)) > 0 THEN
87.                 ResetList WorsListFounded
88.                 SearcheR 3
89.             END IF
90.         CASE WorsListFounded
91.  
92.     END SELECT
93. END SUB
94.  
95. SUB __UI_MouseEnter (id AS LONG)
96.     SELECT CASE id
97.         CASE WordSearcher
98.  
99.         CASE WhatSearchTB
100.  
101.         CASE AsStartPartBT
102.  
103.         CASE AsEndPartBT
104.  
105.         CASE AsAnyPartBT
106.  
107.         CASE WorsListFounded
108.  
109.     END SELECT
110. END SUB
111.  
112. SUB __UI_MouseLeave (id AS LONG)
113.     SELECT CASE id
114.         CASE WordSearcher
115.  
116.         CASE WhatSearchTB
117.  
118.         CASE AsStartPartBT
119.  
120.         CASE AsEndPartBT
121.  
122.         CASE AsAnyPartBT
123.  
124.         CASE WorsListFounded
125.  
126.     END SELECT
127. END SUB
128.  
129. SUB __UI_FocusIn (id AS LONG)
130.     SELECT CASE id
131.         CASE WhatSearchTB
132.  
133.         CASE AsStartPartBT
134.  
135.         CASE AsEndPartBT
136.  
137.         CASE AsAnyPartBT
138.  
139.         CASE WorsListFounded
140.  
141.     END SELECT
142. END SUB
143.  
144. SUB __UI_FocusOut (id AS LONG)
145.     'This event occurs right before a control loses focus.
146.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
147.     SELECT CASE id
148.         CASE WhatSearchTB
149.  
150.         CASE AsStartPartBT
151.  
152.         CASE AsEndPartBT
153.  
154.         CASE AsAnyPartBT
155.  
156.         CASE WorsListFounded
157.  
158.     END SELECT
159. END SUB
160.  
161. SUB __UI_MouseDown (id AS LONG)
162.     SELECT CASE id
163.         CASE WordSearcher
164.  
165.         CASE WhatSearchTB
166.  
167.         CASE AsStartPartBT
168.  
169.         CASE AsEndPartBT
170.  
171.         CASE AsAnyPartBT
172.  
173.         CASE WorsListFounded
174.  
175.     END SELECT
176. END SUB
177.  
178. SUB __UI_MouseUp (id AS LONG)
179.     SELECT CASE id
180.         CASE WordSearcher
181.  
182.         CASE WhatSearchTB
183.  
184.         CASE AsStartPartBT
185.  
186.         CASE AsEndPartBT
187.  
188.         CASE AsAnyPartBT
189.  
190.         CASE WorsListFounded
191.  
192.     END SELECT
193. END SUB
194.  
195. SUB __UI_KeyPress (id AS LONG)
196.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
197.     'You can change it and even cancel it by making it = 0
198.     SELECT CASE id
199.         CASE WhatSearchTB
200.  
201.         CASE AsStartPartBT
202.  
203.         CASE AsEndPartBT
204.  
205.         CASE AsAnyPartBT
206.  
207.         CASE WorsListFounded
208.  
209.     END SELECT
210. END SUB
211.  
212. SUB __UI_TextChanged (id AS LONG)
213.     SELECT CASE id
214.         CASE WhatSearchTB
215.  
216.     END SELECT
217. END SUB
218.  
219. SUB __UI_ValueChanged (id AS LONG)
220.     SELECT CASE id
221.         CASE WorsListFounded
222.  
223.     END SELECT
224. END SUB
225.  
226. SUB __UI_FormResized
227.  
228. END SUB
229.  
230.  

[TempodiBasic]

Thanks Fellippe for your fixed version and for your time!

I must admit my disappoint when I got this failure!
I have not been able to copy correctly the code of Steve and put it into Inform structure to have a windowed interface!

LOL Better to write than to copy.