Всем ДД!
Столкнулся с проблемой переноса текста с Textbox в Picturebox
Переношу текст таким методом т.к. текст в юникодах вставляется
Private Declare Function DrawText2 Lib "user32" Alias "DrawTextW" (ByVal hdc As Long, ByVal lpStr As Long, ByVal nCount As Long, lpRect As RECT, ByVal wFormat As Long) As Long
...
...
Private Sub Text5_Change()
..
DrawText2 Picture1.hdc, StrPtr(Text5.Text), -1, R1, DT_LEFT
..
End Sub
Когда раньше переносил через простой Print все было без проблем
Проблема в том что вставляя текст в Textbox состоящий из некскольких строк в Picture box выводиться лишь первая строка