Вопрос № 51878: Здравствуйте, вот фотка моей проги – www.interestingall.narod.ru/111.gif
Вопрос: как присвоить кнопкам Cut, Copy и Paste их функции. Что бы кнопка вырезала Cut из Text1, Copy копировала в Text1 а Paste вставляла в Text1?
Если надо код моей пр...
Вопрос № 51.878
Здравствуйте, вот фотка моей проги – www.interestingall.narod.ru/111.gif
Вопрос: как присвоить кнопкам Cut, Copy и Paste их функции. Что бы кнопка вырезала Cut из Text1, Copy копировала в Text1 а Paste вставляла в Text1?
Если надо код моей программы тут - www.interestingall.narod.ru/111.txt
Отправлен: 11.08.2006, 19:56
Вопрос задал: ataman (статус: 2-ой класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
1. объявил переменную tBufer типа String в разделе деклараций (Dim tBufer as String). Она будет хранить текст, который Вы планируете вырезать из Text1 или скопировать (вставить) туда.
2. В процедуре Form_load() происходило бы очищение буфера при выгрузке формы:
Form_unload()
tBufer = ""
End sub
3. Здесь текст просто присваивается переменной. В текстовом поле он остается (кнопка Copy)
commandCopy_click()
tBufer = Text1.text
End sub
4. Здесь просто вырезается текст из текстового поля (кнопка Cut):
commandCut_click()
tBufer = Text1.text ' текст сохраним в буфере на всякий случай
Text1.text = "" ' а текстовое поле очистим !
End sub
5. Проверим, есть ли что в буфере, и если есть - то вставим в Text1 (кнопка Paste)
commandPaste_click()
if tBufer <> "" Then
Text1.text = tBufer
end if
End sub
Наверно, что-то в этом духе...
--------- Труд сделал обезьяну человеком, а лень человека - программистом !
Ответ отправил: Кокорич Вадим Леонидович (статус: 4-ый класс)
Ответ отправлен: 11.08.2006, 20:33 Оценка за ответ: 5 Комментарий оценки: Я сделал как ты посоветовал, но не работает, может как то надо присвоить каждое действие соответствующей кнопке? Код программы с добавленными функциями тут - www.interestingall.narod.ru/111.txt
