Vb6, копирование текста в буфер

fireday · Регистрация: 17.04.2013

Студворк — интернет-сервис помощи студентам

всем доброго времени суток
копирую в буфер текст из текст бокса, копируется аброкозябра

Visual Basic
1
2
3
4
5
6
Private Sub txtWord_KeyPress(KeyAscii As Integer)
  If KeyAscii = 3 Then
    Clipboard.Clear
    Clipboard.SetText txtWord.Text
  End If
End Sub

А если так:

Visual Basic
1
Clipboard.SetText "СЛОВО"

то копируется нормально

в чем дело?

з.ы. шрифт текстбокса - MS Sans Serif

@dzug · 09.01.2015, 19:43

Попробуйте так

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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

fireday · 09.01.2015, 21:18 **[ТС]**

Сразу не подумал, что это может иметь значение
1) В текстовом окне только кириллица, нижний подчерки, пробелы
2) Текст вводится программно

Visual Basic
1
2
3
4
5
6
7
8
9
Dim CurrResult() As String
'CurrWord - слово на кириллице, загружается из файла формата ANSI
CurrResult(i) = Mid(CurrWord, i + 1, 1)
 
 
txtWord.Text = vbNullString
For i ...
txtWord.Text = txtWord.Text & CurrResult(i) & " "
Next

Создал новый проект
Создал текст бокс, вписал текст, создал кнопку

Visual Basic
1
2
3
4
Private Sub Command1_Click()
  Clipboard.Clear
  Clipboard.SetText Text1.Text, vbCFText
End Sub

Работает...

Добавлено через 22 минуты

Сообщение от dzug

Попробуйте так

Спасибо

fireday · 09.01.2015, 21:31 **[ТС]**

Такс, потестил еще - работает не всегда
одно и то же слово иногда копируется нормально, иногда - нет. закономерности не увидел...
В общем, прикладываю работу project.7z
в файле со списком слов оставил два слова

Dragokas · 09.01.2015, 22:15

При копировании в TextBox буфера портится русский текст

Новые блоги и статьи Все статьи Все блоги /
Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .
SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .

fireday 307 / 138 / 6 Регистрация: 17.04.2013 Сообщений: 1,943
	09.01.2015, 21:31 [ТС]
	Такс, потестил еще - работает не всегда одно и то же слово иногда копируется нормально, иногда - нет. закономерности не увидел... В общем, прикладываю работу project.7z в файле со списком слов оставил два слова 0

Dragokas 18031 / 7734 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	09.01.2015, 22:15
	При копировании в TextBox буфера портится русский текст 1

Vb6, копирование текста в буфер

Решение