VB编程中识别回车键

发布网友发布时间：2022-05-12 15:17

共4个回答

热心网友时间：2023-10-11 13:58

在文本框的keypress事件里写代码。

private sub text1_keypress(KeyAscii As Integer)
if keyascii = vblf then
c=text1.text
endif
end sub

上面 if keyascii = vblf then 的条件判断，是否可行，需要你试一下。vblf可能要改成vbcr或者vbcrlf。

在vb里，常量vbcr对应回车键的ascii，就是10；常量vblf对应换行键的ascii，就是13；vbcrlf是回车加换行。

热心网友时间：2023-10-11 13:59

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
a = Text1.Text1
End If
End Sub

热心网友时间：2023-10-11 13:59

Private Sub Text1_KeyPress(KeyAscii As Integer)
MsgBox Asc(KeyAscii)
If Chr(KeyAscii) = vbCr Then
MsgBox "赋值变量"
End If
End Sub

热心网友时间：2023-10-11 14:00

Sub aaa()
Selection.TypeParagraph
End Sub