С Новым годом! Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.97/34: Рейтинг темы: голосов - 34, средняя оценка - 4.97
 Аватар для Skorp24
52 / 50 / 26
Регистрация: 15.06.2009
Сообщений: 390

Как скопировать текст в буфер обмена

08.09.2010, 11:52. Показов 6679. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Подскажите, пожалуйста, как решить проблему: если на Windows 7 из текстового поля программы, написанной на VB, скопировать текст в буфер и затем вставить в какое-нибудь другое приложение (в моём случае это был Excel), то вставленный текст, написанный кириллицей, отображается неправильно (будто в другой кодировке). В чём дело?

(Программа писалась на Windows XP.)
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
08.09.2010, 11:52
Ответы с готовыми решениями:

Как скопировать в буфер обмена указанный файл из VBA?
Подскажите как скопировать в буфер обмена указанный файл (как в проводнике) из VBA.

Как скопировать картинку из Пикчербокса в буфер
Скажите пожалуста, Как скопировать картинку из Пикчербокса в буфер. Исползую: Clipboard.Clear Clipboard.SetData...

Как запретить копирование текста из RichtextBox в буфер обмена?
Задача такая: выводить текст на форму так, чтобы его можно было только читать. Пробовал использовать Label, но без полос прокрутки текста...

8
73 / 40 / 3
Регистрация: 07.02.2010
Сообщений: 72
08.09.2010, 19:31
в семерке есть такая проблема. Решается переключением языковой раскладки ПЕРЕД тем как поместить текст в буфер.
1
 Аватар для Skorp24
52 / 50 / 26
Регистрация: 15.06.2009
Сообщений: 390
09.09.2010, 19:55  [ТС]
Спасибо!
Кстати, раз уже эту тему начал, то ещё вопрос: как программно копировать содержимое какого-либо текстового поля в буфер?
0
73 / 40 / 3
Регистрация: 07.02.2010
Сообщений: 72
09.09.2010, 21:22
Все просто, в VB есть объект clipboard который умеет помещать в себя/отдавать данные текстовые и данные бинарные. Соответственно методы SetText, GetText, SetData, GetData, ну и Clear для очистки буфера обмена перед помещением туда данных. Код помещения строки текста в буфер примерно такой (VB6):
Visual Basic
1
Clipboard.SetText "Привет!"
0
 Аватар для Skorp24
52 / 50 / 26
Регистрация: 15.06.2009
Сообщений: 390
10.09.2010, 00:11  [ТС]
Это на уровне приложения. А так, чтобы можно было, например, в Блокнот потом вставить, как сделать?
0
73 / 40 / 3
Регистрация: 07.02.2010
Сообщений: 72
10.09.2010, 07:05
Это на уровне приложения. А так, чтобы можно было, например, в Блокнот потом вставить, как сделать?
В таких случаях я использую API
Пример (не мой правда, но под руку попал, думаю разобраться не проблема):
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Const LR_LOADFROMFILE = &H10
Const IMAGE_BITMAP = 0
Const IMAGE_ICON = 1
Const IMAGE_CURSOR = 2
Const IMAGE_ENHMETAFILE = 3
Const CF_BITMAP = 2
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function IsClipboardFormatAvailable Lib "user32" (ByVal wFormat As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: [url]http://www.allapi.net/[/url]
    'E-Mail: [email]KPDTeam@Allapi.net[/email]
    Dim hDC As Long, hBitmap As Long
    'Load the bitmap into the memory
    hBitmap = LoadImage(App.hInstance, "c:\windows\logow.sys", IMAGE_BITMAP, 320, 200, LR_LOADFROMFILE)
    If hBitmap = 0 Then
        MsgBox "There was an error while loading the bitmap"
        Exit Sub
    End If
    'open the clipboard
    OpenClipboard Me.hwnd
    'Clear the clipboard
    EmptyClipboard
    'Put our bitmap onto the clipboard
    SetClipboardData CF_BITMAP, hBitmap
    'Check if there's a bitmap on the clipboard
    If IsClipboardFormatAvailable(CF_BITMAP) = 0 Then
        MsgBox "There was an error while pasting the bitmap to the clipboard!"
    End If
    'Close the clipboard
    CloseClipboard
    'Get the picture from the clipboard
    Me.Picture = Clipboard.GetData(vbCFBitmap)
End Sub
удачи
0
 Аватар для Skorp24
52 / 50 / 26
Регистрация: 15.06.2009
Сообщений: 390
10.09.2010, 12:17  [ТС]
Сложновато что-то
В коде, как я понял, случай для копирования изображения.
Visual Basic
1
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Как работать с этой функцией, если нужно скопировать текст?
0
73 / 40 / 3
Регистрация: 07.02.2010
Сообщений: 72
10.09.2010, 12:26
Лучший ответ Сообщение было отмечено Апострофф как решение

Решение

Это на уровне приложения. А так, чтобы можно было, например, в Блокнот потом вставить, как сделать?
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
'этот код засунь в пустую форму
'на форму нужно поставить CommandButton и TextBox
 
Private Sub Command1_Click()
'чистим буфер обмена
  Clipboard.Clear
'засовываем в него текст
  Clipboard.SetText Text1.Text
'всё :)
'в блокнот вставляется, проверил
End Sub
3
 Аватар для Skorp24
52 / 50 / 26
Регистрация: 15.06.2009
Сообщений: 390
10.09.2010, 12:34  [ТС]
Отлично, спасибо.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
10.09.2010, 12:34
Помогаю со студенческими работами здесь

Как запихнуть смайлик в буфер обмена и загрузить его в RichTextBox
Подскажите как запихнуть смайлик в буфер обмена и загрузить его в RichTextBox

Можно ли в Turbo Basic скопировать текст программы в буфер обмена?
Можно ли в Turbo Basic скопировать текст программы в буфер обмена? А потом уже вставить, например, в текстовый документ.

Буфер обмена Windows в VB
Здравствуйте уважаемые участники форума! Решил освоить работу с Буфером обмена Windows, но вот беда, я использую параметр ...

Копирование из ListBox в буфер обмена
Доброго всем времени суток!Пожалуйста подскажите или ткните носом.Не могу разобраться с копированием содержимого List в буфер обмена.У меня...

Копирование русских букв в Буфер обмена из текстового поля
Clipboard.SetText Text1.Text Если в текстовом поле есть русские буквы, то они правильно переносятся в буфер, только если в данный момент...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост.
Programma_Boinc 28.12.2025
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / **********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / **********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США.
Programma_Boinc 26.12.2025
Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка.
Programma_Boinc 23.12.2025
Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~
and_y87 14.12.2025
PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .
Как объединить две одинаковые БД Access с разными данными
VikBal 11.12.2025
Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук
volvo 07.12.2025
Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом
volvo 04.12.2025
Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python
IndentationError 23.11.2025
Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов
Argus19 22.11.2025
Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином.
Programma_Boinc 20.11.2025
Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru