在文本框的keypress事件里写代码。 private sub text1_keypress(KeyAscii As Integer) if keyascii = vblf then c=text1.text endif end sub 上面 if keyascii = vblf then 的条件判断，是否可行，需要你试一下。vblf可能要改成