Declare Function IsClipboardFormatAvailable Lib "USER32" ( _ ByVal format As Long) As Long
IsClipboardFormatAvailable определяет, содержит ли буфер обмена данные в заданном формате
Если формат буфера обмена доступен, то возвращается ненулевое значение. Иначе возвращается 0 (для получения кода ошибки используйте GetLastError
Const CF_TEXT As Integer = 1 If IsClipboardFormatAvailable(CF_TEXT) Then Print "В буфере обмена содержится текст" Else Print "В буфере обмена сейчас не содержится текст" End If
CountClipboardFormats, EnumClipboardFormats