Tengo el siguiente código:
Public Declare Function GetClipboardData Lib "user32" (ByVal wFormat As Long) As Long
Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function CloseClipboard Lib "user32" () As Long
Sub test()
Dim wat As String
OpenClipboard (0&)
wat = GetClipboardData(CF_TEXT)
MsgBox wat
CloseClipboard
End Sub
Esto siempre devuelve 0 (NULL) en el msgbox. ¿Podría alguien decirme qué está mal con este código?
@Ramhound ¿cómo lo sabría (en el sentido de cómo lo verifico)?
—
Noir
La misma forma en que verificó que el otro método devolvía 0. Use una variable para capturar el valor de retorno.
—
Ramhound
@Ramhound no parece ser el día más brillante para mí. De hecho puedo confirmar que el booleano es 1.
—
Noir
@Ramhound Creo que el código realmente funciona, simplemente no devuelve lo que esperaba. Si el portapapeles está vacío, devuelve 0, si no está vacío, devuelve un número aparentemente aleatorio de enteros (por ejemplo, "*" devuelve 791549112). Hubiera esperado que devuelva el texto copiado real.
—
Noir
OpenClipboard
, ¿qué valor booleano devuelve? Edita tu pregunta para incluir esta información vital