Возможны ли?

[Ruslan Demidow]

Вопрос: возможны ли в буфере обмена данные других форматов, отличных от:
vbCFBitmap
vbCFDIB
vbCFEMetafile
vbCFFiles
vbCFLink
vbCFMetafile
vbCFPalette
vbCFRTF
vbCFText
Я идиот! Убейте меня, кто-нибудь!????

У меня в программе в RTB смайлики вставляются через буфер обмена. При этом перед помещением изображения в буфер - приходится его очищать. А это может не понравиться пользователю.
Хочу: перед очисткой буфера и вставкой в RTB смайлика сделать сохранение содержимого буфера в переменную, а потом его восстановить.
Реально?
Хотя конечно же больше интересует ответ на первый вопрос.

[gaidar]

В буфере может быть все, поскольку там могут быть текстовые и двоичные данные, а значит может быть все, что угодно, поскольку все что ни есть - либо текст, либо данные.
Вопрос не корректен.

[Ruslan Demidow]

В буфере может быть все, поскольку там могут быть текстовые и двоичные данные, а значит может быть все, что угодно, поскольку все что ни есть - либо текст, либо данные.
Вопрос не корректен.

Хорошо, попробую задать вопрос более корректно:
Сделал две процедурки: первая вызывается перед выводом сообщения (при этом в RTB через буфер обмена вставляются смайлы) и сохраняет данные находящиеся в буфере обмена в переменной типа Variant, вторая после вывода сообщения (по моей задумке восстанавливает данные в буфере обмена).

Вот код:

Код: Выделить всё


Private vntClipboardData As Variant
Private intClpbrdDataFormat As Integer

Sub SaveClipboardData()
    If IsEmpty(Clipboard.GetData) Then
        vntClipboardData = -1
        Exit Sub
    End If
    If Clipboard.GetFormat(ccCFBitmap) Then
        Set vntClipboardData = Clipboard.GetData(ccCFBitmap)
        intClpbrdDataFormat = ccCFBitmap
    ElseIf Clipboard.GetFormat(ccCFDIB) Then
        Set vntClipboardData = Clipboard.GetData(ccCFDIB)
        intClpbrdDataFormat = ccCFDIB
    ElseIf Clipboard.GetFormat(ccCFEMetafile) Then
        Set vntClipboardData = Clipboard.GetData(ccCFEMetafile)
        intClpbrdDataFormat = ccCFEMetafile
    ElseIf Clipboard.GetFormat(ccCFFiles) Then
        Set vntClipboardData = Clipboard.GetData(ccCFFiles)
        intClpbrdDataFormat = ccCFFiles
    ElseIf Clipboard.GetFormat(ccCFMetafile) Then
        Set vntClipboardData = Clipboard.GetData(ccCFMetafile)
        intClpbrdDataFormat = ccCFMetafile
    ElseIf Clipboard.GetFormat(ccCFPalette) Then
        Set vntClipboardData = Clipboard.GetData(ccCFPalette)
        intClpbrdDataFormat = ccCFPalette
    ElseIf Clipboard.GetFormat(ccCFRTF) Then
        vntClipboardData = Clipboard.GetText(ccCFRTF)
        intClpbrdDataFormat = ccCFRTF
    ElseIf Clipboard.GetFormat(ccCFText) Then
        vntClipboardData = Clipboard.GetText(ccCFText)
        intClpbrdDataFormat = ccCFText
    End If
End Sub

Sub RestoreClipboardData()
    If intClpbrdDataFormat = -1 Then Exit Sub
   
    If intClpbrdDataFormat = ccCFBitmap Then
         Clipboard.SetData vntClipboardData, ccCFBitmap
         vntClipboardData = Nothing
    ElseIf intClpbrdDataFormat = ccCFDIB Then
        Clipboard.SetData vntClipboardData, ccCFDIB
        vntClipboardData = Nothing
    ElseIf intClpbrdDataFormat = ccCFEMetafile Then
        Clipboard.SetData vntClipboardData, ccCFEMetafile
        vntClipboardData = Nothing
    ElseIf intClpbrdDataFormat = ccCFFiles Then
        Clipboard.SetData vntClipboardData, ccCFFiles
        vntClipboardData = Nothing
    ElseIf intClpbrdDataFormat = ccCFMetafile Then
        Clipboard.SetData vntClipboardData, ccCFMetafile
        vntClipboardData = Nothing
    ElseIf intClpbrdDataFormat = ccCFPalette Then
        Clipboard.SetData vntClipboardData, ccCFPalette
        vntClipboardData = Nothing
    ElseIf intClpbrdDataFormat = ccCFRTF Then
        Clipboard.SetText vntClipboardData, ccCFRTF
    ElseIf intClpbrdDataFormat = ccCFText Then
        Clipboard.SetText vntClipboardData, ccCFText
    End If
End Sub

Sub ShowMessage()
      SaveClipboardData
' здесь выводим сообщение в RTB и вставляем смайлики
      RestoreClipboardData
End Sub


Пока вроде бы работает. Но ещё не проверял во всех ситуациях.
Теперь вопрос корректен?
Надеюсь этот код достаточен?
Меня интересует в первую очередь способ сохранять данные клипборда и потом восстановить содержимое клипборда.

[tyomitch]

Вопрос: возможны ли в буфере обмена данные других форматов, отличных от:

Да. Попробуй скопировать что-нибуть в Ворде, запусти clipbrd.exe и посмотри, сколько сразу форматов он туда суёт.
Сохранять буфер в переменную - имхо безнадёжное дело... Хотя EnumClipboardFormats может помочь.

Кстати, ты похоже вообще не учитываешь, что в буфере могут одновременно быть данные сразу во многих форматах, например - одновременно картинка и текст.

[Ruslan Demidow]

Вопрос: возможны ли в буфере обмена данные других форматов, отличных от:

Да. Попробуй скопировать что-нибуть в Ворде, запусти clipbrd.exe и посмотри, сколько сразу форматов он туда суёт.
Сохранять буфер в переменную - имхо безнадёжное дело... Хотя EnumClipboardFormats может помочь.

Кстати, ты похоже вообще не учитываешь, что в буфере могут одновременно быть данные сразу во многих форматах, например - одновременно картинка и текст.

Не учитываю. А очень хотелось бы...
Очень не хочется отпугивать пользователей потерей данных в буфере при выводе сообщения в RTB со смайлами. Но и от смайлов отказываться не хочется.
Что делать? (с) Чернышевский.

[alibek]

Вставлять смайлы, не используя буфер обмена.
Где-то на форуме уже проскакивал такой код.

[Ruslan Demidow]

Вставлять смайлы, не используя буфер обмена.
Где-то на форуме уже проскакивал такой код.

Окей. Поищу.
И всё-таки какая-то недоговорённость по теме осталась.
Я так понял, что vb не позволяет охватить все типы содержимого буфера обмена?

[tyomitch]

Безусловно, потому что нет "предопределённого" списка форматов - любое приложение может добавлять свои.

[Ruslan Demidow]

Безусловно, потому что нет "предопределённого" списка форматов - любое приложение может добавлять свои.

Артём, думается мне, что это твой код позволяет в RTB вставлять картинки не затрагивая буфер обмена? Если да, то, плиз, кинь ссылку на топик.
Или лучше сам код. (Не сочти за наглость. )