Question

VB编程中识别回车键

我现在编程中遇到的问题是，一个文本框，我要在里面输入内容，以前的是数字，安回车键后直接将这个数字赋给一个变量，现在我要输入的是汉字，就是说只有我安回车键，才能把该文本框的内容赋给一个变量，其他的输入汉字时涉及的空格键或删除键都不识别。
求这个过程的VB程序。
最好有整个过程,如
sub command1()
dim a as double

if ^^^^
a=text1.text1
^^^
end sub

Answer 1

在文本框的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是回车加换行。

Answer 2

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

Answer 3

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

Answer 4

Sub aaa()
Selection.TypeParagraph
End Sub