| Вопрос: Как копировать и вставлять текст в richtextbox? | Добавлено: 24.06.03 08:56 |
Автор вопроса:  Votmax  | Web-сайт: basiccenter.narod.ru
|
| Как копировать и вставлять текст в richtextbox так, чтобы предыдушие настройки текста не менялись(разные шрифты, разные типы выделения текста)? |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Vit Вопросов: 68 Ответов: 62 |
Web-сайт: Профиль | | #1 | Добавлено: 24.06.03 09:10 |
|
При копировании и вставки текста у меня не возникало подобных проблем (форматирование остальных не менялось). RichTextbox - это подобие текстового поля WordPad'а. Я копировал и вставлял текст используя Clipboard и обычное копирование. |
||
|
Номер ответа: 2 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #2 | Добавлено: 24.06.03 11:46 |
|
Я делал так: RichTextBox1.seltext=clipboard.getdata или чё-то вроде того |
||
|
Номер ответа: 3 Автор ответа: Alex3 ICQ: 9481061 Вопросов: 18 Ответов: 132 |
Профиль | | #3 | Добавлено: 24.06.03 13:44 |
|
Советую делать так: Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Sub ClipEdit(ByVal WhatDo As String, ByVal hWnd As Long) Select Case WhatDo Case "Cut" SendMessage hWnd, &H300, 0, 0 Case "Copy" SendMessage hWnd, &H301, 0, 0 Case "Paste" SendMessage hWnd, &H302, 0, 0 Case "Undo" SendMessage hWnd, &H304, 0, 0 End Select End Sub Вызов: Call ClipEdit("Copy", RichTextBox1.hWnd) |
||
|
Номер ответа: 4 Автор ответа:  CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #4 | Добавлено: 24.06.03 13:53 |
|
Не задуряй человеку голову этими хексами. Public Const WM_CUT = &H300 Public Const WM_COPY = &H301 Public Const WM_PASTE = &H302 Public Const WM_UNDO = &H304 |
||
Страница: 1 |