Un consiglio sulla ListBox

[vuott]

https://forum.gambas.one/viewtopic.php?f=4&t=999

[Gianluigi]

Credo che lui vorrebbe fare qualcosa del genere:

Codice: [Seleziona]

Public Sub Button1_Click()

  Dim sValue As String = TextArea1.Text
  Dim aList As String[] = ListBox1.List
  Dim aValues As String[]

  If sValue Then
    If InStr(sValue, "\n") Then
      aValues = Split(sValue, "\n", Null, True)
      For i As Integer = 0 To aValues.Max
        aList.Push(aValues[i])
      Next
      ListBox1.List = aList
    Else
      ListBox1.Add(sValue)
    Endif
  Endif

End