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


Comentarios

  1. Anónimo17 ago 2009, 17:28:00

    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. Pako25 ene 2010, 12:08:00

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

    ResponderEliminar

Publicar un comentario

Entradas populares de este blog

Crear archivos de texto en vb.net

Que tal, en esta caso veremos como crar un archivo de texto en vb.net, verificaremos si existe la carpeta donde se guardara el archivo y si no se creara. Lo primero es utilizar el espacio de nombre system.IO como se ve en el codigo siguiente: Imports System.IO ' esta a al principio de todo nuestro codigo Despues dentro del procedimiento: Dim sRenglon As String = Nothing Dim strStreamW As Stream = Nothing Dim strStreamWriter As StreamWriter = Nothing Dim ContenidoArchivo As String = Nothing ' Donde guardamos los paths de los archivos que vamos a estar utilizando .. Dim PathArchivo As String Dim i As Integer Try If Directory.Exists("C:\Capeta") = False Then ' si no existe la carpeta se crea Directory.CreateDirectory("C:\carpeta") End If Windows.Forms.Cursor.Current = Cursors.WaitCursor PathArchivo = "C:\carpeta\Archivo" & Format(Today.Date, "ddMMyyyy") & ".txt" ' Se determina el nombre del archivo con la fecha act...
Leer más

Exportar a excel en vb.net

Bueno, lo que realizaremos a continuacion es exportar un DataGridView a excel, les explico. Primero se crea un proceso para realizar esta accion, el cual leera toda la informacion contenida en el Grid, y lo cuadara en una tabla: Dim drow As DataRow Dim col As Integer Dim r As String Dim dtable, dtable2 As New DataTable Dim fila As Integer dtable.Clear() dtable.Columns.Clear() 'Se crea un ciclo para los encabezados For col = 0 To dgw.Columns.Count - 1 If dgw.Columns(col).Visible = True Then r = dgw.Columns(col).HeaderText.ToString dtable.Columns.Add(New DataColumn(r, GetType(String))) End If Next drow = Nothing col = 0 'Llenamos los registrod del table For fila = 0 To dgw.Rows.Count - 1 drow = dtable.NewRow() For col = 0 To dgw.Columns.Count - 1 If dgw.Columns(col).Visible = True Then drow(dgw.Columns(col).HeaderText.ToString) = CStr(dgw.Item(col, fila).Value) End If Next dtable.Rows.Add(drow) Next Try Dim iExp As New Funciones iExp.TablaExcel(dtable) Catch ex As Exception MsgBo...
Leer más