Gambas-it

Gambas dal mondo esterno => Altri Paesi => Topic aperto da: vuott - 15 Gennaio 2021, 01:03:15

Titolo: Un consiglio sulla ListBox
Inserito da: vuott - 15 Gennaio 2021, 01:03:15

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

Titolo: Re:Un consiglio sulla ListBox
Inserito da: Gianluigi - 15 Gennaio 2021, 16:39:50

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

 :ciao: