Запрет на ввод элементов в текстовое поле - VB
Формулировка задачи:
Как блокировать текстовое поле - я знаю. Но вот
иной подход...
Чтобы можно было вводить текст, нужно предварительно
ввести точку. (рабочий код прилагается)
Вопрос
Как сделать, для того чтобы ввести любой текст надо
предварительно ввести ТРИ ТОЧКИ? Что-то никак не
с ориентируюсь...
Решение задачи: «Запрет на ввод элементов в текстовое поле»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д