Цитата(Алкоголик @ 14.3.2009, 21:29  ) | | А в приложении с формой в textbox вводились только символы 0123456789ABCDEF |
Я люблю ненавязчивую проверку, поэтому делаю так:
| Код |
Private Function CheckRange(ByVal theText As String, ByVal theRange As String) As Boolean
Dim k As Long
Dim theReturn As Boolean
theReturn = True
For k = 1 To Len(theText)
If InStr(1, theRange, Mid$(theText, k, 1&)) = 0 Then
theReturn = False
Exit For
End If
Next
CheckRange = theReturn
End Function
Private Sub ctlBNOK_Click()
if not CheckRange(ctlTEXT_SMTH.text, "0123456789ABCDEF") then
MsgBox "Something wrong!"
Exit Sub
end if
' Делаею что надо.
End Sub
|
|