[RISOLTO] Trovare textbox attiva e passare un valore da altra form

[Marmar]

Salve a tutti! E' la prima volta che scrivo, ma seguo il forum da tempo, visto che mi ha aiutato a risolvere molti problemi   tranne questo  
Ho provato a cercare nel forum più volte, ma senza risultati. Dunque, il problema è il seguente: ho due form, nella prima vari controlli come textbox, textarea su cui ci si può scrivere, mentre nel secondo form ho una serie di pulsanti che, se cliccati, devono inserire un carattere speciale nelle textbox del primo form. Qui sta il mio problema: siccome il pulsante non deve scrivere in tutte le textbox, ma solo in quella che l'utente ha attivato nel primo form, come faccio a dire al pulsante della seconda form di cercarmi il controllo attivo nella prima form e aggiungere il carattere speciale (ad un eventuale testo già preesistente)?

Se non sono stato chiaro o se ho dimenticato di dire qualcosa fatemi sapere! Gratias

[milio]

Posto un esempio con la prima cosa che mi e' venuta in mente

[Marmar]

grazie per la risposta... ma non so se ho sbagliato io sezione del forum, ma mi dice che non è un progetto Gambas 2. Ho provato a modificare i file ricreando i form su un falso progetto gambas 2 e inserendo il codice con copia e incolla, ma si ferma dandomi un errore alla linea 45 di FMain.class, esattamente dove compare Paint:

Codice: [Seleziona]

Public Area As New DrawingArea[]
Public Btn As New ToggleButton[]

Public Sub _new()

End

Public Sub Form_Open()

  Me.Center()
  Form1.Show()

End


Public Sub AddObj()
Dim BtnX As ToggleButton
Dim AreaX As DrawingArea

  BtnX = New ToggleButton(Me.ScrollView1) As "Button"
  Btn.Add(BtnX)
  Btn[Btn.Max].Name = "Button" & Btn.Count
  Btn[Btn.Max].Move(5, 5 + (100 * Btn.Max), 28, 28)
  Btn[Btn.Max].Tag = Btn.Max

  AreaX = New DrawingArea(Me.ScrollView1) As "DrawingArea"
  Area.Add(AreaX)
  Area[Area.Max].Name = "DrawingArea" & Area.Count
  Area[Area.Max].Move(40, 5 + (100 * Area.Max), 100, 100)
  Area[Area.Max].Border = Border.Plain
  Area[Area.Max].Tag = Area.Max

End

Public Sub Button_Click()

  Area[Last.Tag].Refresh()

End

Public Sub DrawingArea_Draw()

  Paint.Begin(Last)                                            'qui mi da l'errore: unknown identifier Paint alla  linea 45 (cioè questa)!!
    Paint.Rectangle(30, 30, 40, 40)
    If Btn[Last.Tag].Value = True Then
      Paint.Brush = Paint.Color(Color.Red)
    Else
      Paint.Brush = Paint.Color(Color.Green)
    Endif
    Paint.Fill()
  Paint.End()

End

Cmq se ho capito bene il trucco sta nel creare una "funzione" in FMain che poi il Form1 va a richiamare al click del pulsante, giusto? grazie ancora dell'aiuto 

[milio]

Ops... ho postato il progetto sbagliato... 

[Marmar]

Funziona perfettamente ed è esattamente quello che cercavo!! grazie mille, soprattutto per i tempi velocissimi! Ti devo una birra  Aggiungo [RISOLTO] al titolo!! 

[milio]

Mi raccomando: Birra Menabrea