He venido a solicitar ayuda con un código que me esta quebrando la cabeza xD.
El tema es que tengo un programa para digitar pedidos de materiales, tengo todo listo, excepto la parte donde copio los datos del List1 al porta papeles, he probado muchos códigos pero ninguno parece funcionar.
Este es el codigo:
Código
Private Sub CopiarOC_Click() Dim strList As String Dim i As Integer For i = 0 To Me.List1.ListCount - 1 If Len(Trim(Me.List1.List(i))) > 0 Then strList = strList & Trim(Me.List1.List(i)) & " " End If Next i Dim MyData As DataObject Set MyData = New DataObject ' he aqui el error T_T MyData.Clear MyData.SetText Trim(strList) MyData.PutInClipboard End Sub
El problema con el código es que me da el error siguiente:
Código:
Error de compilación,
El uso de la palabra clave New no es valido.
Pensaran que programar en VB6 es arcaico, pero tengo todo listo, solo me falta eso y no he podido solucionarlo, y he venido para ver si me pueden guiar .-
De igual forma he probado añadiendo los items a un archivo .txt y copiarlos desde ahi, pero creo que es poco útil si de igual forma los tendré en el listbox.
Espero alguien me pueda ayudar. Saludos y gracias de ante mano