Запрет на ввод элементов в текстовое поле - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

10   голосов , оценка 4 из 5
Похожие ответы