Передача текста из переменной в буфер

[@Wiktor]

Подскажите ответы на 2 вопроса:

1. Можно ли узнать в неактивном приложении изменилось ли содержание системного буфера? Т.е. приложение накапливает текст копируемый в др. программах. У меня - проверка происходит по таймеру, но такое ощущение, что метод этот через..., короче - неправильный.

2. Пре передаче текста "переменная - буфер" изменяется кодировка - в буфере крякозябры.

Clipboard.SetText PeremennayaString

Как решить проблему, желательно без копирования как RTF (vbCFRTF) - там появляются другие проблемы?

[GSerg]

1. http://bbs.vbstreets.ru/viewtopic.php?t=11721
Скачать API-Guide, посмотреть в нём пример по функции SetClipboardViewer

2. http://bbs.vbstreets.ru/viewtopic.php?p=55306#55306 и http://bbs.vbstreets.ru/viewtopic.php?p=62176#62176

[@Wiktor]

Спасибо за ответ.
Шрифт поменял на Courier New Cyr - проблема с кодировкой снята.
Но вот по поводу изменения буфера - я не разобрался, опыта маловато. Благодаря API-Guide выяснил что нужно использовать функцию SetClipboardViewer. Но вот приведенный там пример у меня не заработал.
Сейчас у меня происходит постоянное сравнение (500 мсек) 20 знаков в буфере с записью в переменной.

Private Sub Timer1_Timer()
IdenNev = Left(Clipboard.GetText, 10) & Right(Clipboard.GetText, 10)
If IdenNev <> IdenStar Then
Buf = Clipboard.GetText
Vse = Vse + vbCrLf + Buf
RichTextBox1.Text = Vse
IdenStar = IdenNev
End If
End Sub

Если не трудно подскажите как провести этот номер с помощью SetClipboardViewer.

[GSerg]

Почему приведённый там пример не заработал?

[@Wiktor]

Разобрался. Но встал следующий вопрос: пример из двух частей – форма и модуль. Как сделать, чтобы при изменении буфера модуль дал команду форме на выполнение операции:
RichTextBox1.Text = Clipboard.GetText
Заранее спасибо.

[GSerg]

Поместить этот код между If uMsg = WM_DRAWCLIPBOARD Then ... End If

[@Wiktor]

Так я уже пробовал. Но ведь RichTextBox не в модуле (его там и быть не может) а в форме. BV RichTextBox принимает за необъявленную переменную. Я уж весь инет перерыл - нашел только статью про передачу данных между процедурами. А о передаче команд - ничего.

[GSerg]

Я не думаю, что BV принимает RichTextBox за необъявленную переменную...
Но я думаю, что с азами работы в VB нужно ознакомиться...
Form1.RichTextBox1.Text = Clipboard.GetText