Запрет на ввод элементов в текстовое поле

echs · Регистрация: 23.10.2013

Студворк — интернет-сервис помощи студентам

Как блокировать текстовое поле - я знаю. Но вот
иной подход...
Чтобы можно было вводить текст, нужно предварительно
ввести точку. (рабочий код прилагается)

Вопрос
Как сделать, для того чтобы ввести любой текст надо
предварительно ввести ТРИ ТОЧКИ? Что-то никак не
с ориентируюсь...

Visual Basic
1
2
3
4
5
6
7
8
9
10
Option Explicit
Dim T As String
 
Private Sub txtT_Change()
   T = txtT.Text
   T = Left(T, 1)
   If T <> "." Then
      txtT.Text = ""
   End If
End Sub

@Catstail · 28.01.2017, 14:12

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Private Counter As Integer
Private last    As String
Private flg     As Boolean
 
Private Sub Form_Load()
 
        flg = False
        Counter = 0
 
End Sub
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
 
        If flg Then
           Exit Sub
        End If
 
        If Chr$(KeyAscii) = "." Then
        
           Counter = Counter + 1
           
           Me.Label1.Caption = CStr(Counter)
           
           If Counter = 3 Then
              flg = True
              KeyAscii = 0
              Exit Sub
           End If
           
           last = "."
 
        Else
          
           last = ""
           Counter = 0
           Me.Label1.Caption = CStr(Counter)
           
        End If
 
        KeyAscii = 0
 
End Sub

@Catstail · 28.01.2017, 14:16

Вывод числа последовательно нажатых точек можно убрать...

echs · 28.01.2017, 14:28 **[ТС]**

Catstail
Спасибо большое! А я тут ломал голову над тем как
это сделать. И уже стал изобретать новые способы
блокировки. Например, для того, чтобы можно было
вводить текст - необходимо изменить цвет фона...
...
Я всегда знал, что вы способны решить задачу любой
сложности. И вы решили. СПАСИБО ВАМ ещё раз!

@Catstail · 28.01.2017, 16:21

echs, да бросьте... Лучше использовать стандартные средства. И не забывайте про принцип "Дверь и форточка".

echs · 28.01.2017, 17:39 **[ТС]**

Catstail
Спасибо!
Понимаете, я не могу воспользоваться вашим советом,
использовать стандартные средства. Как бы это лучше сказать...
В общем я люблю всё нестандартное, оригинальное, необычное,
такое, что никому не придёт в голову. Это приносит радость.
... я просто рождён для того, чтобы писать код Неземной красоты
...
Красиво мыслить не запретишь...

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,741 Записей в блоге: 14
	28.01.2017, 14:16
	Вывод числа последовательно нажатых точек можно убрать... 1

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	28.01.2017, 14:28 [ТС]
	Catstail Спасибо большое! А я тут ломал голову над тем как это сделать. И уже стал изобретать новые способы блокировки. Например, для того, чтобы можно было вводить текст - необходимо изменить цвет фона... ... Я всегда знал, что вы способны решить задачу любой сложности. И вы решили. СПАСИБО ВАМ ещё раз! 0

@Catstail Супер-модератор 38203 / 21135 / 4310 Регистрация: 12.02.2012 Сообщений: 34,741 Записей в блоге: 14
	28.01.2017, 16:21
	echs, да бросьте... Лучше использовать стандартные средства. И не забывайте про принцип "Дверь и форточка". 1

echs Регистрация: 23.10.2013 Сообщений: 5,076 Записей в блоге: 8
	28.01.2017, 17:39 [ТС]
	Catstail Спасибо! Понимаете, я не могу воспользоваться вашим советом, использовать стандартные средства. Как бы это лучше сказать... В общем я люблю всё нестандартное, оригинальное, необычное, такое, что никому не придёт в голову. Это приносит радость. ... я просто рождён для того, чтобы писать код Неземной красоты ... Красиво мыслить не запретишь... 0

Опции темы

Запрет на ввод элементов в текстовое поле

Решение