<![CDATA[Small Basic Forum - Portal]]> https://litdev.uk/mybb/ Fri, 19 Jun 2026 01:31:31 +0000 MyBB <![CDATA[ListView issues by use LDDatabase.AddListView]]> https://litdev.uk/mybb/showthread.php?tid=606 Mon, 08 Jun 2026 16:39:07 +0000 martmen]]> https://litdev.uk/mybb/showthread.php?tid=606
I have the following problem:
I create a ListView in a program using

LV = LDDataBase.AddListView(Width, Height)

With

LDControls.ListViewSelectionChanged = ListViewSelectionChanged 

the subroutine ListViewSelectionChanged is supposed to be called when a row in the ListView is selected.

With
DBQuerry = LDDataBase.Query(DB, "Select * from " + TableName[BP], LV, "True") 
I fill the ListView with all values from the defined table. Two records are present.
The program parts look like this:
SVSC = "False" 
LDFocus.SetFocus(TBInput[1][InputText[1]]) 
Running = "True" 
While Running = "True" 
Program.Delay(20) 
CheckButtonPressed() 
CheckListViewSelect() 
EndWhile 
Program.End()
Sub CheckListViewSelect 
If SVSC = "True" Then 
SelectedRow = LDControls.LastListViewRow 
TextWindow.WriteLine(SelectedRow) 
LVValues = LDControls.ListViewGetRow(LV, SelectedRow) 
TextWindow.WriteLine(LVValues) 
SVSC = "False" 
TextWindow.WriteLine("CheckListViewSelect " + SVSC) 
EndIf 
EndSub
Sub ListViewSelectionChanged 
SVSC = "True" 
TextWindow.WriteLine("ListViewSelectionChanged " + SVSC) 
EndSub
Nothing is printed in CheckListViewSelect.
Does it not work because the ListView was defined using
LV = LDDataBase.AddListView(Width, Height) 
?
LitDev, could you please check this and possibly provide a solution?
Thank you
Martin
Show program GXMV538.000]]>
I have the following problem:
I create a ListView in a program using

LV = LDDataBase.AddListView(Width, Height)

With

LDControls.ListViewSelectionChanged = ListViewSelectionChanged 

the subroutine ListViewSelectionChanged is supposed to be called when a row in the ListView is selected.

With
DBQuerry = LDDataBase.Query(DB, "Select * from " + TableName[BP], LV, "True") 
I fill the ListView with all values from the defined table. Two records are present.
The program parts look like this:
SVSC = "False" 
LDFocus.SetFocus(TBInput[1][InputText[1]]) 
Running = "True" 
While Running = "True" 
Program.Delay(20) 
CheckButtonPressed() 
CheckListViewSelect() 
EndWhile 
Program.End()
Sub CheckListViewSelect 
If SVSC = "True" Then 
SelectedRow = LDControls.LastListViewRow 
TextWindow.WriteLine(SelectedRow) 
LVValues = LDControls.ListViewGetRow(LV, SelectedRow) 
TextWindow.WriteLine(LVValues) 
SVSC = "False" 
TextWindow.WriteLine("CheckListViewSelect " + SVSC) 
EndIf 
EndSub
Sub ListViewSelectionChanged 
SVSC = "True" 
TextWindow.WriteLine("ListViewSelectionChanged " + SVSC) 
EndSub
Nothing is printed in CheckListViewSelect.
Does it not work because the ListView was defined using
LV = LDDataBase.AddListView(Width, Height) 
?
LitDev, could you please check this and possibly provide a solution?
Thank you
Martin
Show program GXMV538.000]]> <![CDATA[D'ont read a file]]> https://litdev.uk/mybb/showthread.php?tid=585 Sun, 12 Apr 2026 09:11:07 +0000 francesco]]> https://litdev.uk/mybb/showthread.php?tid=585
Code:
Sub frasi_puoi_passare
max1a = 0
min1a = 1
numero_estratto1a = 0
' Chiedi il percorso del file
filePath1a = Program.Directory +  "/testidescrittivi/fileyes1.txt"
  ' Legge tutto il contenuto del file
  contenuto1a = File.ReadContents(filePath1a)
 
for i1a=1 to 999 ' ' if there are not more then 999 lines in the file
contenuto1a[i1a]=File.ReadLine(filepath1a,i1a)
if contenuto1a[i1a]="" then
i1a=1000
else
lunghezza1a=i1a
endif
endfor
 
 
  GraphicsWindow.ShowMessage(contenuto1a,"Contenuto")
 
' Calcoliamo la lunghezza della lista
'lunghezza = Array.GetItemCount(contenuto) ' mi da' lunghezza = 0 ERRORE
GraphicsWindow.ShowMessage(lunghezza1a,"LUNGHEZZA")
numeroCasuale1a = Math.GetRandomNumber(lunghezza1a - min1a) + (min1a - 1)
' Generiamo un indice casuale tra 1 e lunghezza
' Estraiamo l'elemento corrispondente
elementoCasuale1a = contenuto1a[numerocasuale1a]
' Mostriamo il risultato
GraphicsWindow.ShowMessage("Elemento estratto: " + elementoCasuale1a, "elemento")
EndSub


file:

Puoi passare,
Vai avanti,
Prosegui,
Non ti fermare
]]>
Code:
Sub frasi_puoi_passare
max1a = 0
min1a = 1
numero_estratto1a = 0
' Chiedi il percorso del file
filePath1a = Program.Directory +  "/testidescrittivi/fileyes1.txt"
  ' Legge tutto il contenuto del file
  contenuto1a = File.ReadContents(filePath1a)
 
for i1a=1 to 999 ' ' if there are not more then 999 lines in the file
contenuto1a[i1a]=File.ReadLine(filepath1a,i1a)
if contenuto1a[i1a]="" then
i1a=1000
else
lunghezza1a=i1a
endif
endfor
 
 
  GraphicsWindow.ShowMessage(contenuto1a,"Contenuto")
 
' Calcoliamo la lunghezza della lista
'lunghezza = Array.GetItemCount(contenuto) ' mi da' lunghezza = 0 ERRORE
GraphicsWindow.ShowMessage(lunghezza1a,"LUNGHEZZA")
numeroCasuale1a = Math.GetRandomNumber(lunghezza1a - min1a) + (min1a - 1)
' Generiamo un indice casuale tra 1 e lunghezza
' Estraiamo l'elemento corrispondente
elementoCasuale1a = contenuto1a[numerocasuale1a]
' Mostriamo il risultato
GraphicsWindow.ShowMessage("Elemento estratto: " + elementoCasuale1a, "elemento")
EndSub


file:

Puoi passare,
Vai avanti,
Prosegui,
Non ti fermare
]]> <![CDATA[close a file]]> https://litdev.uk/mybb/showthread.php?tid=583 Tue, 07 Apr 2026 22:01:47 +0000 francesco]]> https://litdev.uk/mybb/showthread.php?tid=583 <![CDATA[random in a array]]> https://litdev.uk/mybb/showthread.php?tid=580 Fri, 27 Mar 2026 19:02:42 +0000 francesco]]> https://litdev.uk/mybb/showthread.php?tid=580
lunghezza = Array.GetItemCount(contenuto) ' mi da' lunghezza = 0 ERRORE

give me a lunghezza equal zero = 0]]>
lunghezza = Array.GetItemCount(contenuto) ' mi da' lunghezza = 0 ERRORE

give me a lunghezza equal zero = 0]]> <![CDATA[Sqlite Version]]> https://litdev.uk/mybb/showthread.php?tid=579 Mon, 23 Mar 2026 19:22:34 +0000 Lester]]> https://litdev.uk/mybb/showthread.php?tid=579 <![CDATA[Small Basic Explorer with LitDev extentions]]> https://litdev.uk/mybb/showthread.php?tid=577 Tue, 17 Mar 2026 15:48:41 +0000 martmen]]> https://litdev.uk/mybb/showthread.php?tid=577
here is a challenge for you. Extend the Mini Explorer KBQG606.000 with additional functionalities or speed up the program’s execution.

I’m excited to see what kind of Small Basic Explorer you will create.

Good luck with your programming!
martmen

.jpg   Small Basic Explorer.jpg (Size: 223.8 KB / Downloads: 5) ]]>
here is a challenge for you. Extend the Mini Explorer KBQG606.000 with additional functionalities or speed up the program’s execution.

I’m excited to see what kind of Small Basic Explorer you will create.

Good luck with your programming!
martmen

.jpg   Small Basic Explorer.jpg (Size: 223.8 KB / Downloads: 5) ]]> <![CDATA[Example Program]]> https://litdev.uk/mybb/showthread.php?tid=576 Fri, 13 Mar 2026 16:15:51 +0000 martmen]]> https://litdev.uk/mybb/showthread.php?tid=576
you can also program in Small Basic like this.
Take a look at the program KLLX711.000.

Best regards,
Martin

Hello everyone,

you can also program in Small Basic like this.
Take a look at the program KLLX711.000.

Best regards,
Martin]]>
you can also program in Small Basic like this.
Take a look at the program KLLX711.000.

Best regards,
Martin

Hello everyone,

you can also program in Small Basic like this.
Take a look at the program KLLX711.000.

Best regards,
Martin]]> <![CDATA[BASIC Jam 7 is in progress & info of old Jams.]]> https://litdev.uk/mybb/showthread.php?tid=575 Tue, 10 Mar 2026 02:40:53 +0000 eddylo]]> https://litdev.uk/mybb/showthread.php?tid=575 https://itch.io/jam/jam-for-all-basic-dialects-7

By the way, this information is interesting:
https://itch.io/jam/jam-for-all-basic-di...-basic-jam]]> https://itch.io/jam/jam-for-all-basic-dialects-7

By the way, this information is interesting:
https://itch.io/jam/jam-for-all-basic-di...-basic-jam]]> <![CDATA[LitDev extension]]> https://litdev.uk/mybb/showthread.php?tid=568 Fri, 20 Feb 2026 09:12:08 +0000 martmen]]> https://litdev.uk/mybb/showthread.php?tid=568
I hope you are doing well. Several corrections for your extension have already been submitted.
May I kindly ask when a new version of the extensions might be available?

Best Regards
Martin]]>
I hope you are doing well. Several corrections for your extension have already been submitted.
May I kindly ask when a new version of the extensions might be available?

Best Regards
Martin]]> <![CDATA[Button with icons]]> https://litdev.uk/mybb/showthread.php?tid=565 Sun, 08 Feb 2026 11:07:35 +0000 martmen]]> https://litdev.uk/mybb/showthread.php?tid=565
is it possible with the LitDev extension to display buttons with icons instead of text? It would be great to be able to use both the standard Windows icons and custom icons.
I want to build my DRAWING program using icons.

Many thanks
martmen]]>
is it possible with the LitDev extension to display buttons with icons instead of text? It would be great to be able to use both the standard Windows icons and custom icons.
I want to build my DRAWING program using icons.

Many thanks
martmen]]>