Vb6, копирование текста в буфер
Формулировка задачи:
всем доброго времени суток
копирую в буфер текст из текст бокса, копируется аброкозябра
А если так:
то копируется нормально
в чем дело?
з.ы. шрифт текстбокса - MS Sans Serif
Решение задачи: «Vb6, копирование текста в буфер»
textual
Листинг программы
Sub mmm() txt = InputBox("", "", "12345") SetClipboardText txt txt = ClipboardText MsgBox txt End Sub Function ClipboardText() ' чтение With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .GetFromClipboard ClipboardText = .GetText End With End Function Sub SetClipboardText(ByVal txt$) ' Запись With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText txt$ .PutInClipboard End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д