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

Формулировка задачи:

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

                    Листинг программы
                
 
                        
                          
                    
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

Решение задачи: «Запрет на ввод элементов в текстовое поле»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы