9 jul. 2009

Copiar al protapapeles el contenido de un DGView en vb.net

Buen dia:

Esta es mi primer entrada en el blogg espero les sea de utilidad.

el codigo es el siguiente y se hizo con vb 2005:



Dim Datos As String = Nothing
Dim i, k As Integer

Try

Me.Cursor = Cursors.WaitCursor

For k = 0 To dgwArchivo.ColumnCount - 1
Datos = CStr(Datos & dgwArchivo.Columns(k).Name & vbTab)
Next

Datos = CStr(Datos & vbNewLine)
k = 0

'Recorremos todos los datos de la columna en la que hicimos click
For i = 0 To dgwArchivo.Rows.Count - 1
For k = 0 To dgwArchivo.ColumnCount - 1
Datos = CStr(Datos & CStr(dgwArchivo.Item(k, i).Value) & vbTab)
Next
Datos = Datos & vbNewLine
Next

' limpiamos el portapapeles

Clipboard.Clear()

'Copiamos los datos del Datagrid al Clipboard

Clipboard.SetText(Datos)

Me.Cursor = Cursors.Default

MsgBox("Archivo compiado con exito", MsgBoxStyle.Information,

Application.ProductName)

Me.Close()

Catch ex As Exception
MsgBox("Error al copiar el archivo: " & e.ToString, MsgBoxStyle.Critical,application.ProductName)
End Try


2 comentarios:

  1. Hola, en que evento lanzas ese codigo? en algun lado vi que era en el evento headclick, pero ese evento es de vb.net

    Gracias

    ResponderEliminar
  2. Lo tengon al momento de hacer click en un boton (en este caso copiar)

    ResponderEliminar