TextBox, недоступный для редактирования

[dimix]

Все просто - нужно запретить редактирование (изменение содержимого) TextBox. Через Enable = False не нравится, т.к. текст становится серым. Через Locked = True тоже плохо - можно воспользоваться вставкой из буфера. А так, чтобы и запретить изменять, и черный цвет символов?

[alibek]

Ерунда, при Locked=True ничего ты в текстбокс не вставишь.

[dimix]

Ни хрена не ерунда. Написать в этом поле я ничего не смогу, а вот вставить туда из буфера - как нефиг делать.

[uhm]

Это баг, который на форуме уже обсуждался, но тему я найти не могу. Помню, что у половины людей вставка не работала, а у половины работала. Чем закончилось, не помню

[dimix]

Отсюда мораль - половина пользователей смогут воспользоваться этим багом. А мне этого не хотелось бы, нельзя редактировать - значит нельзя. Так чего делать-то?

[Igor_123]

Скорее всего ставить SP6 на студию
А потом распространять программы в виде инсталяции

[Mikle]

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

Option Explicit
Dim s As String

Private Sub Text1_Change()
  Text1.Text = s
End Sub

Private Sub Text1_GotFocus()
  s = Text1.Text
End Sub