RTF + Вставка картинки с дальнейшим сохранением как .rtf

[Elmer]

Так... вообщем есть RichTextFormat контрол, вставляю я в него картинку:

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

Dim rtFboX
rtFboX = RTF1.SelStart
RTF1.OLEObjects.Add , , PathToPict
RTF1.SelStart = rtFboX + 1
RTF1.SetFocus

Затем пытаюсь сохранить это все в файл TextPict.rtf

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

RTF1.SaveFile "C:\TextPict.rtf", rtfRTF

И тут косяк и возникает, когда пытаюсь открыть этот файл, картинки та и как не бывало...... в чем проблема?

[Ennor]

А Ворд этот файл тоже без картинки открывает?

[Elmer]

В том то и дело что ни одна программа не видит картинки(вместо нее остается просто пробел)

[Шурик]

Я в форматах файлов не силен (проще говоря не разбирался), но вроде RTF это файл форматированного текста и картинки туды не запихаешь...
Исправте если я ошибаюсь...

[alibek]

В RTF можно запихнуть картинки.
Есть два предложения.
1. Если у тебя RTB невидимый, может быть у тебя картинка просто не добавляется? Сделай его видимым и посмотри, есть ли она вообще.
2.

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

RTF1.SaveFile "C:\TextPict.rtf", rtfRTF

Попробуй схитрить. Сделай

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

Open "C:\TextPict-2.rtf" For Output As #1
Print #1, RTF1.TextRTF
Close #1

и сравни файлы TextPict.rtf и TextPict-2.rtf. Возможно у тебя глючит контрол.

[Sirik]

А почему бы не вставить рисунок через буфер обмена???

Например, вот такой способ:

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

Private Const WM_PASTE = &H302
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal Msg As Long, ByVal wp As Long, lp As Any) As Long

Private Sub Command1_Click()
  Dim pic As StdPicture
  ' загрузка желаемого рисунка 
  Set pic = LoadPicture("d:\a.bmp")
  Clipboard.Clear
  Clipboard.SetData pic, vbCFBitmap
  SendMessage RichTextBox1.hwnd, WM_PASTE, 0, 0
End Sub