我试图在输入richtextbox时立即将上键转换为下键。
尝试以下操作:
If Char.IsUpper(e.KeyChar) Then Char.ToLower(e.KeyChar)
Private Sub RichTextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles RichTextBox1.KeyPress
If CType(e, KeyPressEventArgs).KeyChar = vbCr Then
Search()
End If
If Char.IsUpper(e.KeyChar) Then Char.ToLower(e.KeyChar)
End Sub
显然无法正常工作。
答案 0 :(得分:0)
你快到了。
首先,您需要更改函数标头以使用更具体的KeyPressEventArgs
版本而不是通用的EventArgs
将事件处理程序更改为:
Private Sub RichTextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles RichTextBox1.KeyPress
完成此操作后,您将可以访问KeyPress
事件的另一组属性。
此Char.ToLower
是一个返回值的函数。做:
If Char.IsUpper(e.KeyChar) Then e.KeyChar = Char.ToLower(e.KeyChar)
您需要在函数的左侧添加e.KeyChar =
来存储结果。