Automatizzare l'assegnazione ad una variabile del contenuto TextLabel

[Luciano]

Salve ragazzi, dopo mesi ekkomi dinuovo in cerca di aiuto

Ho bisogno di sapere come fare in Gambas a recuperare in automatico i valori da una serie di Textlabel.. faccio l'esempio che usavo in VisualBasic:

For i =1 to 100
TextLabel.text = Valore$(i)
Next i

In gambas non posso convertire il TextLabel in una serie array.. quindi come faccio?
Grazie mille

[Luciano]

RISOLTO - in VB6 gli oggetti "clonati" nel form automaticamente venivano creati come array tipo Text1[n].text in Gambas in un altro post riportava questa soluzione:

PUBLIC SUB Form_Open()
  DIM tips AS NEW Object[]
  DIM i, i_tips, tips_y AS Integer
  i_tips = 5
 
  FOR i = 0 TO i_tips
    tips.Add(Label, i)
    tips = NEW Label(ME)
   
    WITH tips
      .X = 10
      .Y = tips_y
      .width = 100
      .height = 20
      .text = "Abc " & i
    END WITH
   
    tips_y += 30
  NEXT
END

[vuott]

Mah.... se vuoi recuperare il testo da Textlabel presenti sul Form, puoi fare anche così   (se ci sono soltanto TextLabel): 

Codice: gambas [Seleziona]

Public Sub Form_Open()

  Dim tl As TextLabel
  Dim s As String
  
    For Each tl In FMain.Children
      s = tl.Text
    Next
       
End  

[pastrank]

Codice: gambas [Seleziona]

    For Each tl In FMain.Children
      s = tl.Text
    Next

Eh no, qui riassegni sempre il valore della variabile s, quindi avrai sempre il valore dell'ultima textbox 
Dovrebbe prima creare l'array, poi ad ogni indice dell'array assegnare il valore di tl.text: a parte che anche il suo esempio non recuperava, ma assegnava, i valori alle textbox, quindi non so piu' chi e cosa!

[vuott]

Eh no, qui riassegni sempre il valore della variabile s, quindi avrai sempre il valore dell'ultima textbox  

Hai ragione.
Avevo utilizzato nel codice a parte di prova un Print per mostrare in console il valore della TextBox:

Codice: gambas [Seleziona]

For Each tl In FMain.Children  
     s = tl.Text
     Print s
   Next  

e poi qui ho dimenticato di riportarlo.
Mi ha assorbito completamente la preoccupzione di mostrare la semplificazione della raccolta dei valori mediante quel semplice ciclo For Each...Next.

Ma è evidente che neppure questa soluzione col Print è utile a conservare quei valori delle TextBox, e pertanto - come hai giustamente rilevato - è necessario l'intervento, ad esempio, di una variabile vettoriale.
Riporto di seguito, dunque, il codice corretto:

Codice: gambas [Seleziona]

Public Sub Form_Open()  
  
 Dim tl As TextLabel  
 Dim ss As New String[]
   
   For Each tl In FMain.Children  
     ss.Add(tl.Text)
   Next  
        
End

[pastrank]

ho dimenticato di riportarlo.

Ci sono diversi miei post originali su usenet dove io dimentico la domanda. Tipo "ho una routine fatta in questo modo, che ho sistemato in un altro, grazie" 

[vuott]

Ci sono diversi miei post originali su usenet dove io dimentico la domanda. Tipo "ho una routine fatta in questo modo, che ho sistemato in un altro, grazie" 

Non capisco...   

[pastrank]

Non capisco...   

L'errore nella routine era chiaro che era una dimenticanza, ero solo a dire che succede spesso anche me!

[vuott]

... ero solo a dire che succede spesso anche me!

Sì, può capitare. Soprattutto se si è concentrati su un particolare obiettivo.