[vb ] 限制 大寫 小寫 特殊符號 自動轉 大 小寫

'限制 小寫  加上特殊符號

If (e.KeyChar < "a"c Or e.KeyChar > "z"c) _

             And e.KeyChar <> Chr(8) And e.KeyChar <> " "c And e.KeyChar <> "_"c 

             And  e.KeyChar <> "「"c And e.KeyChar <> "」"c _

             And e.KeyChar <> "!"c And e.KeyChar <> "！"c And e.KeyChar <> "("c 

             And e.KeyChar <> ")"c And e.KeyChar <> "。"c Then

            e.Handled = True

        End If

'限制  只能大寫

If (e.KeyChar < "A"c Or e.KeyChar > "Z"c) _

            And e.KeyChar <> Chr(8) Then

            e.Handled = True

        End If

'限制只能  小數字

If (e.KeyChar < "0"c Or e.KeyChar > "9"c) _

            And e.KeyChar <> Chr(8) Then

            e.Handled = True

        End If

'限制  長度
scoretext.MaxLength = "10"

'自動轉成大寫
BOOKTEXT.CharacterCasing = CharacterCasing.Upper

'自動轉成小寫
nametext.CharacterCasing = CharacterCasing.Lower