На одной из форм данные выводятся в несколько Label'ов. Для того, чтобы можно было копировать эти данные для последующей вставки куда-нибудь я использовал кнопку со следующим кодом:
Private Sub Command2_Click()
Text1.Text = Label3.Caption + Chr$(13) + Chr$(10) + Label5.Caption + Chr$(32) + Chr$(32) + Label6.Caption + Chr$(13) + Chr$(10) + Chr$(32) + Label16.Caption + Chr$(13) + Chr$(10) + Chr$(32) + Label7.Caption
Clipboard.Clear
Clipboard.SetText (Text1.Text)
End Sub
Text1 просто так, как контейнер для текста.........
Текст копируется в буфер, но проблема в том, что весь этот текст при вставке отображается не так как хотелось бы, а иероглифами
Вот так к примеру:
Øàÿõìåòîâ Ðóøàí
Êàìàç 41 ó525óò / òâ5356
Ïàñïîðò: 6302 632512 Âûäàí ÎÂÄ Êèðîâñêîãî ðàéíîà ã Ñàðàòîâà 12.12.2000ã
Àäðåñ:
Âîä.óä:
Òåëåôîí: 8-960-372-1413
Подскажите что можно сделать! Заранее благодарен!
P.S. Или предложите альтернативный вариант копирования данных с формы!
