Question

vb textbox控件的Text问题

Private Sub inv_no_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 Then If Len(inv_no.Text) = 0 Or Len(inv_no.Text) = 8 Then SendKeys "{TAB}" Else MsgBox "发票号码的长度不合法！", vbOKOnly + vbCritical inv_no.SetFocus End IfEnd IfEnd SubPrivate Sub inv_no_KeyPress(KeyAscii As Integer)If Not IsNumeric(Chr(KeyAscii)) Then If KeyAscii <> 8 Then KeyAscii = 0 End IfEnd IfEnd Sub以上是我的代码，我在文本框内输入“1234”后回车能执行keydown事件，但文本框被清空，我再次输入“12”后回车就出现问题了。经查检，文本框的Text值为“123412”，但len却为8。

Answer 1

Private Sub inv_no_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then '下列代码均在按下回车键后发生。
 If Len(Replace(inv_no.Text, " ", "")) = 8 Then '孝胡长度8。
 Else
  MsgBox "发票号码的长度不合法", vbOKOnly + vbCritical
  inv_no.SetFocus  '长亏宴度0到7都不合法。
  If inv_no.Text = "" Then MsgBox "号码不能为空！", vbOKOnly + vbCritical
 End 巧空拦If
End If
End Sub
Private Sub Form_Load()
inv_no.MaxLength = 8  '最高8位
End Sub 'Textbox,name: inv_no

Answer 2

你是不是还有其他代缺隐码 如果光只有这2段代伏数厅码 我毕颤测试了 不会被清空。
你的tab会被你自己的keypress所拦截