VBNet - Форум - игнор всех символов кроме 12345

Вопрос: игнор всех символов кроме 12345 Добавлено: 31.05.03 12:43

Автор вопроса: JONick | Web-сайт: eminemrap.h1.ru

как написать функцию для текст бокса,чтобы он проверял,если введенная цифра это 12345 то он вводил ее,если иначе то нуль эмоций.и еще я мучался с добавлением пробела после цифр 12345.
зы:заранее big thnx

Ответить

Ответы Всего ответов: 10

Номер ответа: 1
Автор ответа:

Дeнис

Вопросов: 14
Ответов: 42

Профиль | | #1

Добавлено: 31.05.03 12:47

старо как мир...

Public Function VerText3(keypress As Integer, txt As String) As Integer

Dim NumR As String

NumR = "0123456789,-" & Chr(8)

If Chr(keypress) = "." Then keypress = Asc(",")

If InStr(1, txt, ",") <> 0 And Chr(keypress) = "," Then

VerText3 = 0

Beep

Exit Function

End If

If InStr(1, txt, "-") <> 0 And Chr(keypress) = "-" Then

VerText3 = 0

Beep

Exit Function

End If

If InStr(1, NumR, Chr(keypress)) = 0 Then

VerText3 = 0

Beep

Else

VerText3 = keypress

End If

End Function

Ответить

Номер ответа: 2
Автор ответа:

Дeнис

Вопросов: 14
Ответов: 42

Профиль | | #2

Добавлено: 31.05.03 12:49

чуть не забыл добавить

Private Sub txtTi_KeyPress(KeyAscii As Integer)

KeyAscii = VerText3(KeyAscii, txtTi.Text)

End Sub

Ответить

Номер ответа: 3
Автор ответа:

V!RU$™

ICQ: 132309822

Вопросов: 24
Ответов: 54

Web-сайт: cxodnya.narod.ru
Профиль | | #3

Добавлено: 31.05.03 14:02

Public Declare Function beep Lib "kernel32.dll" Alias "Beep" _
(ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

'Функция служит для обеспечения ввода в TextBox только цифр
'Применяется так: KeyAscii = int_only(KeyAscii) это записывается в процедуру KeyPress
Function int_only(KAsc As Integer) As Integer
    Dim BeepValue As Long
   If (Chr(KAsc) Like "[0-9]") = False Then
    If KAsc <> 8 Then
       int_only = 0
        beep 800, 90
Else
       int_only = KAsc
    End If
   Else
     int_only = KAsc
   End If
End Function

---

доработаеш сам

Ответить

Номер ответа: 4 Автор ответа: JONick Вопросов: 10 Ответов: 88	Web-сайт: eminemrap.h1.ru Профиль \| \| #4	Добавлено: 31.05.03 17:20
	thnx to all Ответить