Quantcast
Viewing all articles
Browse latest Browse all 3768

Saving the DesktopListBox contents with Listbox.AllRows, Listbox.AllColumns

Because Listbox.AllRows, Listbox.AllColumns does not works on the current Xojo (2024r3), I had to code it like you can read below: with imbricated loops instead of using a single line.

The other result is a Tab character at the end of each and every line.

You will find this code in the example I shared in my other entry, some minutes ago.

Dim Row_Idx As Integer
Dim Col_Idx As Integer
For Row_Idx = 0 to LB.RowCount-1
  For Col_Idx = 0 to LB.ColumnCount-1
    Save_TOS.Write LB.CellTextAt(Row_Idx,Col_Idx) + Chr(9)
  Next
  Save_TOS.WriteLine ""
Next

4 posts - 3 participants

Read full topic


Viewing all articles
Browse latest Browse all 3768

Trending Articles