Copiare in memoria il contenuto di una textbox

Question

Cortesemente volevo il vostro aiuto per fare una cosa del genere: in una form ho alcune textbox il cui contenuto mi serve copiarlo per poi utilizzarlo per nominare/salvare un file esterno; in pratica vorrei evitare ogni volta di utilizzare i tasti CTRL+C, visto che nelle text non è possibile copiare direttamente il testo selezionato; in pratica per snellire il lavoro vorrei mettere un pulsante accanto ad ogni text che mi mette in memoria il contenuto corrispettivo, spero si possa fare e confido nei vostri preziosi consigli: Un saluto a tuttie buona serata.

Ciao Antonio

Answer 1

Cortesemente volevo il vostro aiuto per fare una cosa del genere: in una form ho alcune textbox il cui contenuto mi serve copiarlo per poi utilizzarlo per nominare/salvare un file esterno; in pratica vorrei evitare ogni volta di utilizzare i tasti CTRL+C, visto che nelle text non è possibile copiare direttamente il testo selezionato; in pratica per snellire il lavoro vorrei mettere un pulsante accanto ad ogni text che mi mette in memoria il contenuto corrispettivo, spero si possa fare e confido nei vostri preziosi consigli: Un saluto a tuttie buona serata.

Ciao Antonio

Forse non ho capito cosa vuoi fare. Questo copia il contenuto della TextBox1 e lo incolla nella TextBox2

Private Sub CommandButton1_Click()

    With Me.TextBox1

        .SelStart = 0

        .SelLength = Len(TextBox1.Text)

        .SetFocus

        .Copy

        Me.TextBox2.Paste

    End With

End Sub

Answer 2

Ciao Mauro, ho fatto una prova col codice che mi hai passato e mi pare vada bene, ho escluso la riga:

"Me.TextBox2.Paste"

Private Sub CommandButton3_Click()

    With Me.TextBox1

        .SelStart = 0

        .SelLength = Len(TextBox1.Text)

        .SetFocus

        .Copy

    End With

End Sub

Quando apro paint mi tiene in memoria, quindi è quello che volevo. Grazie dell'aiuto e un saluto.

Ciao

Antonio

Grazie a te per il cortese riscontro.

Answer 3

Ciao Mauro, ho fatto una prova col codice che mi hai passato e mi pare vada bene, ho escluso la riga:

"Me.TextBox2.Paste"

Private Sub CommandButton3_Click()

    With Me.TextBox1

        .SelStart = 0

        .SelLength = Len(TextBox1.Text)

        .SetFocus

        .Copy

    End With

End Sub

Quando apro paint mi tiene in memoria, quindi è quello che volevo. Grazie dell'aiuto e un saluto.

Ciao

Antonio

Answer 4

Ciao Mauro e grazie dell'attenzione, no in effetti devo fare una cosa diversa, utilizzo paint per archiviare documenti scannerizzati, da excel utilizzo una maschera (userform) dove è presente nella textbox1 il nome del file (ottenuto tramite VB), poi ho un pulsante che mi apre paint e qui mi serve il contenuto della text1 per nominare il documento scannerizzato e quindi ogni vonta devo prima selezionare e poi copiare utilizzando i tasti CTRL+C e poi vado ad incollare da paint nella maschera "Salva con nome". Volevo evitare ogni volta questo passaggio della selezione e combinasione dei tasti, mettendo (magari tramite un commandbutton) una procedura che mi metta in memoria il contenuto della text interessata.

In pratica, non so se è fattibile, una procedura che sostituisca i passaggi "Seleziona testo textbox1 e copia con tasto CTRL+C".

Grazie ancora e una buona giornata.

Ciao Antonio