|
|
API : Eliminar el contenido del Portapapeles
| Autor/es:
Juan M Afán de Ribera | | Pregunta : ¿Cómo puedo eliminar el contenido del Portapapeles de Windows a través de código? | | Respuesta : Utilizando el API. En realidad, se trata de emplear muy poco código. Una manera de implementarlo podría ser ésta. Copia la siguiente función en un módulo estandar (las declaraciones de funciones del API deben situarse siempre por encima de cualquier procedimiento o función) | '---------------------------------------------------------
'
' fEmptyClipboard
'
' Código escrito originalmente por Juan M Afán de Ribera.
' Estás autorizado a utilizarlo dentro de una aplicación
' siempre que esta nota de autor permanezca inalterada.
' En el caso de querer publicarlo en una página Web,
' por favor, contactar con el autor en
'
' accessvbafaq@ya.com
'
' Este código se brinda por cortesía de
' Juan M. Afán de Ribera
'
' función que abre el Portapapeles
Private Declare Function OpenClipboard Lib "user32" _
(ByVal hwnd As Long) As Long
' función que vacía el contenido del Portapapeles
Private Declare Function EmptyClipboard Lib "user32" () As Long
'función que cierra el Portapapeles
Private Declare Function CloseClipboard Lib "user32" () As Long
Function fEmptyClipboard()
OpenClipboard 0&
EmptyClipboard
CloseClipboard
End Function
'---------------------------------------------------------
| Ejemplos: | Temas relacionados: |
|
