4 و 5)
Dim LetterCase As LetterCases
Public Enum LetterCases
Both
Lower
Upper
End Enum
Property LettersCase() As LetterCases
Get
Return LetterCase
End Get
Set(ByVal Value As LetterCases)
LetterCase = Value
End Set
End Property
Protected Overrides Sub onkeypress(ByVal e As System.Windows.Forms.KeyPressEventArgs)
If b = True Then
Select Case Asc(e.KeyChar)
Case AscW(ControlChars.Cr) 'Enter key
e.Handled = True
Case AscW(ControlChars.Back) 'Backspace
'Case 45 'Dash
Case 48 To 57 'Numbers
Case Else 'Everything else
e.Handled = True
End Select
End If
'-----------Continue
If Char.IsLetter(e.KeyChar) And Me.LimitTONumber = False Then
Select Case LetterCase
Case LetterCases.Both
e.Handled = False
Case LetterCases.Lower
If Char.IsLower(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
Case LetterCases.Upper
If Char.IsUpper(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Select
End If
End Sub
پاسخ با نقل قول