Возникла проблема, которая возникает только у пользователей с Windows 10, в Windows 7 все работает. Есть userfom c кнопками, на которые зашиты коды, которые копируют данные из texbox в буфер обмена и затем данные вставляются в другую программу. Ниже коды которые пробовали, но с ними все равно у кого-то появляются сразу квадраты при вставке, у кого-то периодически. Помогите понять в чем проблема и как можно ее решить.
Первый вариант кода:
Код |
---|
'Создание и VBA-наименование объекта "DataObject". Dim myDataObject As New MSForms.DataObject 'Очистка DataObject. myDataObject.Clear 'Копирование текста в DataObject. myDataObject.SetText Text:=TextBox9.Text myDataObject.PutInClipboard |
Второй вариант кода:
Код |
---|
Dim txt$ 'переменная будет хранить комментарий txt = TextBox18.Text 'Вызываем процедуру которая копирует данные Call copytext(ByVal txt$) 'Функция копирования Private Sub SetClipboardText(ByVal txt$) With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}") .SetText txt$ .PutInClipboard End With End Sub 'Процедура копирования по принципу ctr+C Private Sub copytext(ByVal txt$) SetClipboardText (txt) End Sub |