Разрешить ввод знака "-" только один раз - VB

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

ПРивет народ. Я написал контроль ввода даных, так штоб можна вводить только русские буквы и "-", но как зделать чтоб "-" повторялся только раз. Вот мой одразец:

Private Sub Text5_KeyPress(KeyAscii As Integer)
Dim flag, flag1 As Boolean
Dim s As String
flag = False
flag = flag1
If KeyAscii = vbKeyBack Then Exit Sub
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If Not Chr(KeyAscii) Like "[А-Я,-]" Then
KeyAscii = 0
Beep
End If
s = Chr(KeyAscii)
If s = "-" And flag = True Then
KeyAscii = 0
Beep
End If
If s = "-" Then flag1 = Truу
End Sub

Решение задачи: «Разрешить ввод знака "-" только один раз»

textual
                            Листинг программы 
                        

                            Private SUB Text5_KeyPress(KeyAscii AS INTEGER)
Select Case KeyAscii
Case 45
    If InStr(1, TextBox1.Text, "-") Then KeyAscii = 0
Case Is >= 192
    KeyAscii = KeyAscii
Case Else
    KeyAscii = 0
End Select
End Sub
                        

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

12 голосов , оценка 4 из 5

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