| Pregunta: | 51606 - COMO CARGAR VARIOS ARCHIVOS EN EL PORTA PAPELES DE WINDOWS |
| Autor: | carlos rondón |
| me gustaria que por favor me dieran un codigo donde varios archivos de un listViewer se pudieran copiar (agregarlos al porta papeles de windows) y pegarlos en cualquier lado | |
| Respuesta: | Saul Garay |
| Buenos dias carlos, con este codigo podrias guiarte, este lo tengo funcionando en un modulo de proveedores en la que lleva la identificacion del mismo al portapapeles y posteriormente accede a un portal WEB para identificar la veracidad de los datos. _________________________________________________________ Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Command1_Click() Dim res As Long direccion = Data1.Recordset("link") MsgBox ("A continuacion ingresara al Portal del Seniat, asegurece de que tenga conexion a Internet; la informacion del RIF del proveedor se encuentra almacenada en el portapapeles por lo que puede hacer uso con las teclas SHIFT+INS o el boton contrario del Mouse y posteriormente usar la Opcion PEGAR") res = ShellExecute(Me.hwnd, "Open", direccion, "", "", 1) Clipboard.Clear Clipboard.SetText (Text1) link_seniat.Hide End Sub Private Sub Form_load() Text1 = proveedores.rif End Sub _________________________________________________________ Exito SAUL GARAY | |