Страница: 1 |
Страница: 1 |
Вопрос: Помогит с блокнотом
Добавлено: 07.12.06 16:45
Автор вопроса: Rezus | ICQ: 401147850
Я решил написать свой блокнот и тут встал вопросик- как скопировать только выделенный текст и вставить его в любое место в блокноте. Помогите кто может. Заранее спасибо.
Ответы
Всего ответов: 2
Номер ответа: 1
Автор ответа:
Yeputons
ICQ: 278444762
Вопросов: 71
Ответов: 179
Профиль | | #1
Добавлено: 07.12.06 17:20
Если ты хочешь зделать кнопки типа "вырезать", "вставить" и "копировать", то юзай обьекть Clipboard:
Private Sub mnuEditCopy_Click()
Clipboard.Clear
Clipboard.SetText txtText.SelText
End Sub
Private Sub mnuEditCut_Click()
Clipboard.Clear
Clipboard.SetText txtText.SelText
txtText.SelText = ""
End Sub
Private Sub mnuEditPaste_Click()
txtText.SelText = Clipboard.GetText
End Sub
Там еще можно добавить, шо бы проверяло тип того,шо в буфере - текс иль нет? Потомучто обидица может, если там картинка, а ты ей - GetText. Функция называется Clipboard.GetFormat. Задаешь ей в параметрах нужный тип, и она тебе говорит - этот или нет. "Текст" - 1.
Номер ответа: 2
Автор ответа:
Rezus
ICQ: 401147850
Вопросов: 7
Ответов: 16
Профиль | | #2
Добавлено: 07.12.06 17:39
Yeputons спасибо,работает.