Visualizza post

Questa sezione ti permette di visualizzare tutti i post inviati da questo utente. N.B: puoi vedere solo i post relativi alle aree dove hai l'accesso.


Post - LuigiR

Pagine: [1]
1
Programmazione / Re:[Risolto] non riesco a far sì che un pulsante invii del testo a una label...
« il: 11 Luglio 2020, 15:34:46 »
Ragazzi, vi ringrazio. Quindi era sufficiente che dichiarassi innanzitutto le istanze (perché devono essere globali, vero?) come con le variabili, neanche sarebbe stato necessario metterle sotto il Sub. E dire che l'avevo anche letto.
Ma che volete, abituato a Python-Tkinter e Tcl-Tk ...

Tra parentesi, sto studiando Gambas su "A Beginner's Guide to Gambas" di John W. Rittinghouse, che fa riferimento alla versione 1.0.9. Ovvio che tengo conto delle dovute differenze con la 3.

Ancora grazie e un sauto :ciao:
Luigi

2
Programmazione / [Risolto] non riesco a far sì che un pulsante invii del testo a una label...
« il: 11 Luglio 2020, 10:38:18 »
Buongiorno a tutti.
Sono nuovo sia di qui che di Gambas e me lo sto studiando e sperimentando.
Vi pongo allora una prima domanda dopo un giorno che provo.
Premetto: Gambas 3 su Fedora in ambiente Mate.
Allora:
voglio che al clic di un pulsante appaia il testo da me indicato in una label.

Se costruisco in ambiente grafico il pulsante e la label funziona perfettamente.
Se lo faccio tramite codice mi appaiono sia il pulsante che l'etichetta ma al momento dell'avvio del programma subito mi dice: identificatore sconosciuto lbl nel FMain Class.
Son sicuro che è qualcosa di semplicissimo che non riesco a vedere, ma cosa?
Vi riporto il codice che inserisco sperando in una risposta.

Codice: [Seleziona]
Public Sub Form_Open()

  Dim nascondi As Button
  Dim lbl As Label
  nascondi = New Button(Me) As "nascondi"
  lbl = New Label(Me) As "label"
  nascondi.enabled = True
  nascondi.X = 50
  nascondi.Y = 200
  nascondi.Width = 200
  nascondi.Height = 30
  nascondi.Text = ""
  nascondi.Show
  
  lbl.enabled = True
  lbl.X = 50
  lbl.Y = 100
  lbl.Width = 200
  lbl.Height = 40
  lbl.Text = ""
  lbl.Background = Color.RGB(255, 255, 255)
  lbl.Foreground = Color.RGB(0, 0, 0)
  lbl.Show

End
Public Sub nascondi_click()
  
  lbl.Text = "Beppe"
  
End

Un saluto
Luigi

Pagine: [1]