Запрет редактирования TextBox

[$Yastrebov$]

Существует ли метод запрета на редактирование TextBox?
Необходимо, чтоб человек мог скопировать текст из поля, но никак его не изменить?

Label - не дает возможности выделения и копирования!
Text1.Locked=True - запрещает ввод с клавиатуры, но контекстное меню все еще позволяет деформировать текст путем (Вставки, Вырезания)

[alibek]

Locked=True полностью блокирует возможность изменения текста через интерфейс.

[J.MamaY]

Нет не блокирует. Я попробовал - действительно можно вставить текст в TextBox с Locked=True. Может просто отключить меню для текстбокса через API или заменить его своим?

Код: Выделить всё

'Вывод своего меню:

Sub PopContextMenu(ControlName As Control, MenuName As Control)
ControlName.Enabled = False
PopupMenu MenuName
ControlName.Enabled = True
End Sub

'Пример:

Private Sub txtDocument_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
  PopContextMenu txtDocument, mnuPopUp
End If
End Sub

[$Yastrebov$]

Locked=True полностью блокирует возможность изменения текста через интерфейс.

Не блокирует контекстное меню(((

Может просто отключить меню для текстбокса через API или заменить его своим?

Единственный вариант, который я нашел, это заменить через API на другое меню. Но мне не нужно в TextBox контекстное меню и вовсе!
И при нажатии правой клавиши при замене меню на свое - происходит не приятное мерцание старого меню!

Есть еще какие-либо варианты?

[J.MamaY]

Посмотрите предыдущий пост - я кое - что дописал. Должно помочь.

[J.MamaY]

А почему бы не заменить на свое меню с одним - единственным пунктом "Копировать"? Ведь вы же сказали, что копировать текст можно. Кстати мой код не использует API и никакого мерцания я не наблюдал.

[$Yastrebov$]

Да, мерцания нет! Работает отлично! Спасибо за идею.

Вот только одно расстраивает, что нужно создавать PopUp. А у меня на этой форме, где TextBox уже есть один PopUp. Привязка к другой форме - это извращение? Без него никак?

[J.MamaY]

Хм... Это интересно. Наверное самый простой вариант - через 2 формы. А можно просто выводить свой PopUp (который у вас уже есть) на TextBox.

[$Yastrebov$]

А можно просто выводить свой PopUp (который у вас уже есть) на TextBox.

Там такие пункты меню, которые никакого отношения к TextBox не имеют! PopUp у меня связан с треем.

[J.MamaY]

Ну тогда через 2 формы.

[GSerg]

J.MamaY, во-первых, делать несколько постингов подряд не приветствуется ввиду наличия кнопки Правка, и во-вторых, давать неверные советы не приветствуется также.

Locked плохо работает, если на VB не поставлен SP. У вас не поставлен; ставьте.

Popup'ов на одной форме может быть сколько угодно.

[Andrey Fedorov]

Locked плохо работает, если на VB не поставлен SP. У вас не поставлен; ставьте.

И ведь какое простое решение...

[J.MamaY]

Извините за 2 поста и за 2 формы. Спасибо за совет про Service Pack.
P.S.: Заметьте, что я не только плохие советы даю.

[pronto]

Можно и так:

Код: Выделить всё

Private Sub Text1_Change()
   Text1.Text = tmp$ ' = текст
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
   KeyAscii = 0
End Sub

[Viper]

pronto, а вот нужно ли? Ответ был дан полностью, и правильный.