Gambas-it

Gambas3 => Programmazione => Topic aperto da: Gilby - 29 Maggio 2018, 11:52:15

Titolo: [RISOLTO] Restituzione testo tastiera virtuale
Inserito da: Gilby - 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.

Titolo: Re:Restituzione testo tastiera virtuale
Inserito da: vuott - 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

Titolo: Re:Restituzione testo tastiera virtuale
Inserito da: Gianluigi - 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:

Titolo: Re:Restituzione testo tastiera virtuale
Inserito da: vuott - 29 Maggio 2018, 15:01:19

Citazione da: Gianluigi - 29 Maggio 2018, 13:36:46

... forse intendeva qualcosa del genere?

...a saperlo !

(https://www.remocontro.it/wp-content/uploads/2016/01/Stregone-Crystal-ball-sito.jpg)

Titolo: Re:[RISOLTO] Restituzione testo tastiera virtuale
Inserito da: Gilby - 30 Maggio 2018, 09:30:29

Citazione da: Gianluigi - 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:

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