Mark

Есть код , который прекрасно работает под Windows 98 .
На Picture1 приклеевается RichTextBox и отпечатывается Picture1 .

-----------------------------------------------------------------------------------------------------------
Option Explicit

Private Declare Function SendMessage Lib 'user32' Alias _
'SendMessageA' (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long

Private Const WM_PAINT = &HF
Private Const WM_PRINT = &H317
Private Const PRF_CLIENT = &H4& ' Draw the window's client area
Private Const PRF_CHILDREN = &H10& ' Draw all visible child
Private Const PRF_OWNED = &H20& ' Draw all owned windows

Private Sub Command1_Click()
RichTextBox1.OLEObjects.Add , , 'c:windows riangles.bmp'

Picture1.SetFocus
Picture1.AutoRedraw = True
rv = SendMessage(Picture1.hwnd, WM_PAINT, Picture1.hDC, 0)
rv = SendMessage(Picture1.hwnd, WM_PRINT, Picture1.hDC, _
PRF_CHILDREN + PRF_CLIENT + PRF_OWNED)
Picture1.Picture = Picture1.Image
Picture1.AutoRedraw = False

Printer.PaintPicture Picture1.Image, 1, 1
Printer.EndDoc
End Sub
-----------------------------------------------------------------------------------------------------------
Но при переходе под Windows 2000 или Windows XP код почему-то не работает.
RichTextBox не появляется на Picture1.
Может кто-то сталкивался с этой проблемой.
Или знает как по-другому отпечатать отредактированный RichTextBox.
Заранее спасибо.
Марк. mark_str@km.ru

Вернуться к обсуждению:
Проблема с RichTextBox под Windows 2000 или Windows XP VB