Theos PowerBasic Museum 2017

Is there a way to loop through controls? Kinda like VB6 control arrays?

EnumChildWindow?

...

 
It depends in what you mean with loop (I have no idea of what VB6 does). If it means to navigate from one to another using the tab key, then you must add the %WS_TABSTOP style to the controls and call the IsDialogMessage function in the message pump.

here is some vb6 code:



Dim i as Long

for i = txtTextBox1.LBound to txtTextBox1.UBound

  txtTextBox1(i).Text = str$(i)

next i



For that you will need to use the EnumChildWindows function, retrieve the class name and if the class is "Edit" then set the text using the SetWindowText function. See an EnumChildWindows example here: http://www.jose.it-berater.org/smfforum/index.php?topic=728.0

Perfect :)

Thanks