Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Feb 13, 2002

Copy Listview Contents to a Clipboard


This easy routine copies the contents of a listview, including column headers, to the clipboard for pasting into Excel or other applications:
 
Public Sub SendToClipboard(ByVal ListViewObj _
As MSComctlLib.ListView)
Dim ListItemObj As MSComctlLib.ListItem
Dim ListSubItemObj As MSComctlLib.ListSubItem
Dim ColumnHeaderObj As _
MSComctlLib.ColumnHeader
Dim ClipboardText As String
Dim ClipboardLine As String
Clipboard.Clear
For Each ColumnHeaderObj In _
ListViewObj.ColumnHeaders
Select Case ColumnHeaderObj.Index
Case 1
ClipboardText = ColumnHeaderObj.Text
Case Else
ClipboardText = ClipboardText & _
vbTab & ColumnHeaderObj.Text
End Select
Next ColumnHeaderObj
For Each ListItemObj In _
ListViewObj.ListItems
ClipboardLine = ListItemObj.Text
For Each ListSubItemObj In ListItemObj.ListSubItems
ClipboardLine = ClipboardLine & _
vbTab & ListSubItemObj.Text
Next ListSubItemObj
ClipboardText = ClipboardText & vbCrLf _
& ClipboardLine
Next ListItemObj
Clipboard.SetText ClipboardText
End Sub
Chris Schneider
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap
Thanks for your registration, follow us on our social networks to keep up-to-date