[Risolto] Approfondimenti sui controlli keypress e lostfocus

[Franco_da_vc]

Ciao amici di forum Gambas,

Sto rivedendo il codice che ho scritto per il mio programma bolle e siccome sono proliferate le diversità tra un fornitore e l'altro ho dovuto aggiungere alcune alcune classi TextBox da far usare in più per un fornitore, questo mi ha incasinato molto nei rimandi da una classe all'altra essendo diverso per i vari fornitori.

Analizzando il codice passo a passo mi sono accorto che l'uscita da una classe con l'evento KeyPress  questa mi va inevitabilmente a finire nell'evento LostFocus anche esso descritto.

Nel mio progetto però avevo descritto i due eventi per poter uscire dalle classi sia con i tasti "invio" e "Tab" che direttamente in grafica cliccando al di fuori dell'oggetto associato alla classe; questi due eventi sembra però che interferisco tra di essi.

Che ne dite? Avreste dei consigli da darmi?

Ho poi un altro dubbio da esporvi, ma questo ve lo scrivero in un altro topic.

Ringrazio tutti per il vostro aiuto!

Bye by AFo

[Gianluigi]

Tutte le volte che premiamo un tasto solleviamo l'evento KeyPress() anche con Tab (Ctrl o Alt ecc.) quindi devi tenerne conto.
Non so come hai organizzato il tutto forse potresti usare dei booleani a livello di classe per evitare il ripetersi del codice, però devi essere sicuro di poterli ripristinare.
Per esempio:

Codice: [Seleziona]

Private $bTextBox1 As Boolean

Public Sub TextBox1_KeyPress()

  If $bTextBox1 Then Return
  Print "TextBox1_KeyPress()"
  $bTextBox1 = True

End

Public Sub TextBox1_LostFocus()

  $bTextBox1 = False

End

La cosa migliore è evitare di far fare la stessa cosa a due eventi diversi o a un evento che si può ripetere accidentalmente.

 

[Franco_da_vc]

E' vero Gianluigi,

I due eventi interferivano, ma sto pensando che il lostfocus sia anche inutile, dovrò sperimentare un po di più nel mio prototipo, comunque ora daro inizio al secondo topic perché ho un altro dubbio sul mio codice.

Grazie