1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
If Asc(e.KeyChar) <> 8 Then
If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then
Dim t As String
t = TextBox7.Text
If t Like "##" Or t Like "##.##" Or t Like "####" Then
t = t & "."
TextBox7.Text = t
TextBox7.SelectionStart = TextBox7.Text.Length
TextBox7.ScrollToCaret()
End If
If t Like "##.##.##" Then ' это я только сейчас добавил думаю что гдето тут надо чтото добавить
t = t.Substring(-1, 2)
t = 20 & t
TextBox7.Text = t
TextBox7.SelectionStart = TextBox7.Text.Length
TextBox7.ScrollToCaret()
End If
Else
e.Handled = True
End If
End If
у меня есть такая штука она автоматически точки проставляет
а можно ее както доработать, я пока думаю так
что нужно кусок доработать на возможность реагирования на таб если формат стоит ##.##.##
только не знаю как....
