Синхронизация RTB с PictureBox

[Don Leno]

Есть РичТекстБокс на котором рисуется фоновое изображение и текст (фон будет анимироваться или меняться!!). Суть в том, что из-за мерцания и лагов в Риче решил поместить отображение самого текстового поля в PictureBox, но столкнулся с тем, что не знаю как передавать нажатия клавиатуры и мыши, которые были сделаны на PictureBox, в РичТекстБокс?! Пробовал через Mouse,Key Down/Up ничего не получается. Подскажите, желательно с небольшим примером как можно подобное сделать.
Также, чтобы не создавать лишних тем, если у кого есть альтернативные варианты по реализации подобного текстового поля с изменяемым фоном, прошу пишите)))
Вот мой исходник:

[alibek]

Если текст не редактируемый, то RTB вообще не нужен.
Нужно использовать компонент web-браузера или свою функцию отрисовки.

[Don Leno]

alibek, текст как раз то и будет редактируемым. Суть в том, чтобы сделать текст. поле с анимированым фоном

[bon818]

Держи!

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

Const GWL_EXSTYLE = (-20)
Const WS_EX_TRANSPARENT = &H20&
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public rtf As String, txt As String

Private Sub Form_Load()

    'Текст
    txt = "Сериал «Слепое пятно» рассказывает историю о девушке, которая потеряла память. "
    rtbTx.Text = txt & txt & txt & txt & txt
   
    'Контекст фона
    Picture1.Picture = LoadPicture(App.Path + "\wp2.bmp")
    Call SetWindowLong(rtbTx.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT) ' TRANSPARENT фона
   
End Sub


Если перепробовал все, но так и не заработало, читай инструкцию (MSDN).

[Don Leno]

bon818, не плохая идея, только вот попробуй теперь сам создай проект и что нить там в текстовом поле напечатай))))

[bon818]

Создал, напечатал, в чем проблема?

[Teranas]

Я не спорю анимированный фон, ещё 3D вращающиеся буковки, а смысл…
Если такой редактор, то только для себя, а если для развлечения, то «Rich» не лучший выбор…

[Don Leno]

bon818, проблема в том что у меня в текстовом поле, при наборе текста, все буквы накладываются друг на друга?! Может я что то сделал не так?

[bon818]

bon818, проблема в том что у меня в текстовом поле, при наборе текста, все буквы накладываются друг на друга?! Может я что то сделал не так?

Я использовал форму из твоего примера, так что все должно работать как надо, проверил в xp-w7.
Picture1 с фоном, используй как контейнер для rtbTx, ты же так делаешь?
или так Form1.Picture = LoadPicture(App.Path + "\wp2.bmp")
или используй ф-ю InvaliDateRect.
И еще, в хр нужно обновлять окна скролов(если ни есть) при перерисовке, в w7 все четко и гладко.

[Don Leno]

используй как контейнер для rtbTx, ты же так делаешь? - нет просто ставлю поле над рисунком.
в хр нужно обновлять окна скролов(если ни есть) при перерисовке - у меня как раз Xp, вот только как сделать перерисовку поля?
Я использовал форму из твоего примера - моя форма ничем не отличается от стандартной, поэтому я копипастнул твой код и решил посмотреть что у тебя получилось а в итоге см. скрин.
(черное - это остается после выделения текста, ну и наложение идет)

[bon818]

(черное - это остается после выделения текста, ну и наложение идет)

НУ и?
Сейчас нормально стало?

[Don Leno]

Так как мне это исправить?! Как я понимаю нужна перерисовка? Если да, то как?! И нет ничего так и не работает...

[bon818]

Я уже писал, но повторю - спрошу еще раз.
Самый простой способ это исправить, это вложить RichTextBox в PictureBox.
или так Form1.Picture = LoadPicture(App.Path + "\wp2.bmp")
Ты это сделал?

[Don Leno]

bon818, спс!! Это я просто затупил))) Я больше думал что надо код какой то добавить, оказалось все проще))) Теперь все прекрасно работает!