• Home
 · 
• Miscellaneous
 · 
• Copying List Items to the Clipboard

Copying List Items to the Clipboard

This code is a demonstration of a quick and easy way to copy an entire list (without needing to select them all) or selected list items to the clipboard for pasting into other applications. It simply copies the items to a hidden text box and then uses the clipboard method. Follow the instructions below to see how it works

API Declarations
none


Rate Copying List Items to the Clipboard

• 1
• 2
• 3
• 4
• 5

(39(39 Vote))

'*******************************
'demonstration on how to copy
'an entire list or selected
'list items to the clipboard
'for use in other apps.
'to see how it works, do the
'following:
'1. open a new project
'2. put a listbox on the form,
'  name it lstList and set its
'  MultiSelect value to 2
'3. put a command button on
'  the form and call it 
'  cmdCopyList
'4. put another command button
'  on the form and call it
'  cmdCopyListItems.
'5. put a textbox on the form,
'  call it txtHidden, and set
'  its visible property to false.
'6. paste the code into the
'  code window, run, and test.
'  Be sure to select some items
'  before you choose
'  copy list items.
'
'******************************
Private Sub Form_Load()
   'add rainbow colors to list box
   lstList.AddItem "Red"
   lstList.AddItem "Orange"
   lstList.AddItem "Yellow"
   lstList.AddItem "Green"
   lstList.AddItem "Blue"
   lstList.AddItem "Indigo"
   lstList.AddItem "Violet"
End Sub
Private Sub cmdCopyList_Click()
'this procedure loops thru the list
'and copies each item to a textbox
   Dim I As Integer
   For I = 0 To lstList.ListCount - 1
     txtHidden.Text = txtHidden.Text & lstList.List(I) & vbCrLf
   Next I
   Call CopyText
End Sub
Private Sub cmdCopyListItems_Click()
'copy list item to textbox
   Dim I As Integer
   For I = 0 To lstList.ListCount - 1
     If lstList.Selected(I) Then
        txtHidden.Text = txtHidden.Text & lstList.List(I) & vbCrLf
     End If
   Next I
   Call CopyText
End Sub
Public Sub CopyText()
'select list and copy
'to clipboard
   
   txtHidden.SelLength = Len(txtHidden.Text)
   Clipboard.Clear
   Clipboard.SetText txtHidden.SelText
End Sub