【反复利用的一部分CODE】-"TEXT/LABEL/GRID FUNCTIONS"

.SelectAll()
e.KeyChar = Char.ToUpper(e.KeyChar)

If Not IsNumeric(e.KeyChar) And Not e.KeyChar = vbBack And Not e.KeyChar = "." And Not e.KeyChar = "-" Then
e.KeyChar = Nothing
End If

Try
If txtClientContactType.ReadOnly = False Then
Call txtClientContactType_KeyDown(sender, New KeyEventArgs(Keys.F6))
End If
Catch ex As Exception
MsgBox("<f08CaseEdit.btnContactType_Click> " & ex.Message)
End Try

btn的

顶！