[VB6] Clipboard con più controlli

[L'Aquila]

Salve, nel mio programmino veorrei salvare nella clipboard un testo selezionato in uno qualsiasi dei controlli che sono presenti nel form, più precisamente quello che ha lo stato attivo.

Qualcuno sa consigliarmi un segmento di codice per farlo?

[MMarzia]

linguaggio e versione?
vanno sempre specificati nel titolo: leggi il regolamento

[Giulio C.]

Ciao L'Aquila.
Una possibile soluzione potrebbe essere questa che ti posto qui sotto, ipotizzando un programma scritto in VB6.

Private Sub cmdCopia_Click()
   Clipboard.Clear
   Clipboard.SetText Text1.Text
   cmdCopia.Enabled = False
End Sub

La routine qui sopra prevede che alla pressione di un pulsante (cmdCopia) venga ripulita la Clipboard e inizializzata con il contenuto della casella di testo Text1.

Per le tue esigenze puoi dunque abilitare il pulsante "cmdCopia" solo quando il controllo che ti interessa prende lo stato attivo gestendolo dall'evento "GotFocus". Il pulsante lo rendi "disabilitato" sin dall'inizio. Tradotto in codice:

Private Sub Form_Load()
   cmdCopia.Enabled = False
End Sub

Private Sub Text1_GotFocus()
   cmdCopia.Enabled = True
End Sub

Quando il pulsante diventa attivo, premendolo viene copiato nella Clipboard il contenuto della casella di testo.

Fammi sapere.

[L'Aquila]

Chiedo perdono a MMarzia per aver omesso il linguaggio e la versione: VB6

La tua idea è giusta e alquanto ovvia, ma dentro alla routine

Private Sub cmdCopia_Click()
   Clipboard.Clear
   Clipboard.SetText Text1.Text 
   cmdCopia.Enabled = False
End Sub

dovrei riuscire ad individuare l'oggetto tra i tanti che ha il focus altrimenti prendo il testo sempre dallo stesso oggetto.....

[Brainjar]

Usa la proprietà del Form ActiveControl :

Private Sub cmdCopia_Click()
   Clipboard.Clear
   ' Controlla se il controllo ha la proprietà text
   ' altrimenti ti da un errore 
   If TypeOf Me.ActiveControl Is TextBox Or ComboBox Or ListBox Then
       Clipboard.SetText Me.ActiveControl.Text
       cmdCopia.Enabled = False
   End If
End Sub

Ciao,

[L'Aquila]

e se i controlli a cui mi riferisco hanno delle collection subordinate?! Ad es. il controllo TreeView ha la collection Nodes che a sua volta ha la proprietà Text...

[Brainjar]

Adotti la tecnica medesima del controllo :
(Approfitto per postare una correzione al codice precedente)

Private Sub cmdCopia_Click()
   Clipboard.Clear
   ' Controlla se il controllo ha la proprietà text
   ' altrimenti ti da un errore 
   If (TypeOf Me.ActiveControl Is TextBox) Or (TypeOf Me.ActiveControl Is ComboBox) Or (TypeOf Me.ActiveControl Is ListBox) Then
       Clipboard.SetText Me.ActiveControl.Text
       cmdCopia.Enabled = False
   End If
   If TypeOf Me.ActiveControl Is TreeView Then
       Dim oNodo As Node
       Set Nodo = TreeView1.SelectedItem
       If Not Nodo Is Nothing Then
           Clipboard.SetText Nodo.Text
           cmdCopia.Enabled = False
       End If
   End If

Tieni presente, però, che così non ti funzionerà mai. Per il semplice
motivo che con il click sul bottone PERDERAI il focus sul controllo.
Devi trovarti un meccanismo che ti conservi il controllo attivo
PRIMA di cliccare sul bottone.

Ciao,

[L'Aquila]

Grazie!

Cmq a me funziona perchè ho usato una toolbar invece che un pulsante che non fa perdere il focus all'oggetto...( o qualcosa del genere).

Grazie!