Question

vb 从excel直接复制单元格所带的回车符，为什么不触发keydown事件

从excel中直接复制单元格，粘贴在vb的textbox里面，发现多了一个空格，后来写了一个程序确认了，这个字符是回车（ascii码输出的是13），我现在搞不懂的是，我的textbox里面明明是有一个keydown事件，当检测到有回车符的时候会自动添加到listbox里面，为什么我这样直接复制的时候，字符串后面所带的回车符触发不了呢？

Answer 1

你这复制的不只是字符串，复制的是整个单元格（包括单元格的格式：字体颜色大小，事件等）。
复制的时候要只复制字符串（在单元格处于编辑状态下复制字符串）

追问

我当然知道，我这样问的原因是想防呆，要怎样才能防止这种情况了，从程式上预防

追答

鼠标右键的粘贴是不会触发keydown事件的，
如果是用Ctrl+V 会触发两次 keydown事件

追问

我两种都试了，不管是鼠标右键粘贴还是Ctrl+V都触发不了keydown事件

追答

换个事件吧，楼上说的Text1_Change()就可以
不过你说的Ctrl+V都触发不了keydown事件就很奇怪
是不是keydown事件不小心修改了？
整个事件删除掉重新写一个
事件 名称那行贴出来看看

追问

代码应该是没问题的，但是两种都触发不了，如果换成change事件的话，那要怎么样来判断回车符呢？

追答

Private Sub Txt_SN_KeyDown(KeyCode As Integer, Shift As Integer)
debug.print "keydown"
If keyCode = 13 Then

我觉得keydown事件是有触发，debug.print "keydown" 加个这个看看。

如果没有输出keydown就看看其他事件里有没有什么Cancel= true的

Private Sub Txt_SN_Change()
    If Asc(Mid(Txt_SN.Text, Len(Txt_SN.Text), 1)) = 13 Then
        Call cmd_Add_Click
    End If
End Sub

多加一个事件，change事件也可以判断

Answer 2

keydown必须用键盘来触发。
更换更其他事件吧

追问

那粘贴过来的回车符应该用什么事件来触发呢？

追答

应该在你复制完成后你再按一下回车，行不。VB中有什么事件我记不清楚了

追问

你这样是能够触发keydown事件啦，但是，粘贴的时候，已经有回车的字符在后面了，因为涉及到字符串的比对，所以多了一个回车符，比对的结果就不一样了

追答

你要比对时把回车去掉就行了
replace(原值,chr(13),"")

Answer 3

用Private Sub Text1_Change()事件试试

Answer 4

VBA里的回车是chr(10)。