如何判定是否有回车

awash 2004-04-21 02:54:50

要求：
1。在一个文本框中输入数字后，按下Enter键，则会转到另一个界面。
2。在这个文本框中用条形码读码机读取数字后（读码机上已经设置了读码后自动加Enter），会转到另一个界面。
3。不需要区分两种输入方法，只要有输入，有回车，就转到另一个界面。

问题：
1。如何实现上述要求（要求1，或要求1+2）？（示范代码）
2。键盘上敲回车和条形码扫描仪的自动回车是否相同？

...全文

307 28 打赏收藏转发到动态举报

写回复

用AI写文章

28 条回复

切换为时间正序

请发表友善的回复…

发表回复

JohnsonHome 2004-04-22

打赏
举报

在KEYPress事件里判断回车的ASCII码是13

recollectpainer 2004-04-22

打赏
举报

问题1:
判断一个文本框中输入的字符是否为回车:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
' 说明是回车符,此处加上你需要处理的程序
endif
End Sub

问题2:
条码扫描器的输入同键盘上的输入是一样的

至于你的第3个要求只要判断到输入字符是回车符然后作出相应处理就可以了
附:vb 中的 vbcrlf 代表回车键

Lbebo 2004-04-22

打赏
举报

不要泄气啊

awash 2004-04-22

打赏
举报

我上次有一个贴子，没有人回答，我删了，结果扣我5分信誉分！！！
有没有搞错！！！不如把分数分给大家拉。。。

BlueBeer 2004-04-22

打赏
举报

先声明，我不懂你的问题
只是想告诉你，你另个帖在跟人跟帖的情况下是可以删除的，不扣你分
此时就没人跟那张帖，请珍惜你的分哦

luoxiaoxiang 2004-04-21

打赏
举报

加在
if...then
这里

awash 2004-04-21

打赏
举报

那个帖子的题目是相同的，去者有分。。。白送啊。。。

awash 2004-04-21

打赏
举报

问题已经解决拉，

还有另一个帖子，大家到那里捞分拉。。。

http://expert.csdn.net/Expert/topic/2992/2992005.xml?temp=.1145441

flc() ：
你的判断代码是怎样的？

flc 2004-04-21

打赏
举报

"3。如果是用读条码器，则keyAsicii=13的判断没有作用，且只能在文本框中显现条码中第一个字符。

怎么办？急！！！
"

可能是你的读条码器没有设置好，我用过是可以实现的。

liangfang 2004-04-21

打赏
举报

嗯

wxrwan 2004-04-21

打赏
举报

yiyan625 2004-04-21

打赏
举报

你可以在keypress事件中用一个
msgbox keyascii
来判断在文件框中条码器的回车Ascii码是多少，然后再用
if keyascii=="条码值" then

end if

awash 2004-04-21

打赏
举报

不行啊。

1。我把文本框enter键属性设置了，按下enter后会自动离开，到另一个文本框。于是keyAsicii=13的判断没有作用。

2。如果把文本框enter属性设置为段中新行，在键盘上按下enter后，会另起一行keyAsicii=13的判断有作用，但此时文本框已经有两行字了。

3。如果是用读条码器，则keyAsicii=13的判断没有作用，且只能在文本框中显现条码中第一个字符。

怎么办？急！！！

kmzs 2004-04-21

打赏
举报

嗯

kmzs 2004-04-21

打赏
举报

嗯

northwolves 2004-04-21

打赏
举报

Private Sub Command1_Click()
'..................... ' add else searching codes
shownew
End Sub
Sub shownew()
Form2.Show
End Sub

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then shownew
End Sub

awash 2004-04-21