Autore Topic: [RISOLTO] Restituzione testo tastiera virtuale  (Letto 490 volte)

Offline Gilby

  • Gamberetto
  • *
  • Post: 20
    • Mostra profilo
[RISOLTO] Restituzione testo tastiera virtuale
« il: 29 Maggio 2018, 11:52:15 »
Buongiorno a tutti, ho creato un form che mi simuli una tastiera, nel momento in cui clicco su una textbox mi si apre il form con una tastiera ed una textbox, una volta digitato il testo dovrei premere sul tasto invio della tastiera virtuale ed il testo dovrebbe apparire nella textbox precedente, mi sapreste consigliare un metodo per fare ciò? Grazie in anticipo.
« Ultima modifica: 30 Maggio 2018, 09:26:50 da Gilby »

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.264
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Restituzione testo tastiera virtuale
« Risposta #1 il: 29 Maggio 2018, 12:21:45 »
...una cosa più o meno di questo genere:

Codice: [Seleziona]
Public Sub Form_KeyPress()
 
  If (Key.Code = Key.Enter) Or (Key.Code = Key.Return) Then Print "aaa"
 
End
« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Gianluigi

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 4.150
  • Tonno verde
    • Mostra profilo
Re:Restituzione testo tastiera virtuale
« Risposta #2 il: 29 Maggio 2018, 13:36:46 »
... forse intendeva qualcosa del genere?:
Supponendo che la textbox della tastiera si chiami TextBoxTastiera e che invece la text box ricevente (TextBox1) sia nella FMain.

Codice in form tastiera:

Codice: [Seleziona]
Public Sub TextBoxTastiera_KeyPress()

  If Key.Code = Key.Return Then
    FMain.RicevoTesto(TextBoxTastiera.Text)
    Me.Close
  Endif

End

Codice in FMain:

Codice: [Seleziona]
Public Sub RicevoTesto(value As String)
 
  TextBox1.text = value
 
End

 :ciao:
nuoto in attesa del bacio di una principessa che mi trasformi in un gambero azzurro

Offline vuott

  • Moderatore globale
  • Senatore Gambero
  • *****
  • Post: 11.264
  • Ne mors quidem nos iunget
    • Mostra profilo
Re:Restituzione testo tastiera virtuale
« Risposta #3 il: 29 Maggio 2018, 15:01:19 »
... forse intendeva qualcosa del genere?

...a saperlo !

« Chiunque, non ricorrendo lo stato di necessità, nel proprio progetto Gambas fa uso delle istruzioni Shell o Exec, è punito con la sanzione pecuniaria da euro 20,00 a euro 60,00. »

Offline Gilby

  • Gamberetto
  • *
  • Post: 20
    • Mostra profilo
Re:[RISOLTO] Restituzione testo tastiera virtuale
« Risposta #4 il: 30 Maggio 2018, 09:30:29 »
... forse intendeva qualcosa del genere?:
Supponendo che la textbox della tastiera si chiami TextBoxTastiera e che invece la text box ricevente (TextBox1) sia nella FMain.

Codice in form tastiera:

Codice: [Seleziona]
Public Sub TextBoxTastiera_KeyPress()

  If Key.Code = Key.Return Then
    FMain.RicevoTesto(TextBoxTastiera.Text)
    Me.Close
  Endif

End

Codice in FMain:

Codice: [Seleziona]
Public Sub RicevoTesto(value As String)
 
  TextBox1.text = value
 
End

 :ciao:

Perfetto! Ho risolto partendo dal tuo concetto, grazie mille!