copir, pegar,cortar

[AlterElt]

Hola, tengo una pequeña duda con este tema...

estoy haciendo el típico menú superior de Archivo, Herramientas, Ver.... etc El caso es que quiero poner en el menú herramientas la opción de copiar,cortar y pegar el texto del control activo en ese momento.

He visto que para copiar el codigo es este:

Código vb:

Private Sub btnCopiarTxt_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnCopiarTxt.Click
    ' Copiar el contenido del TextBox2 en el portapapeles
    Clipboard.SetDataObject(TextBox2.Text, True)
End Sub
 

Pero como puedo hacer para que valga para todos los textboxes de mi programa?

Saludos

[Ka0stj]

Hola AlterElt

No se cuantos textbox manejes, pero puedes hacer lo siguiente a nivel de tu Form, en la opción de tu menú copiar pon lo siguiente:

Código ASP:

Dim ctl As New Control
 
        For Each ctl In Me.Controls
 
            If TypeOf ctl Is TextBox Then
 
                If ctl.Focused Then
 
                    Clipboard.SetDataObject(ctl.Text, True)
 
                End If
 
            End If
 
        Next
 

Lo que hace el código anterior es recorrer los controles de tu forma y si es un textbox y contiene el foco en ese momente copia el texto de dicho control.

Comentas si te sirve. Saludos...