combobox限定长度的问题

[qinyf82]

为了限定combobox的长度，我是这样做的
Select Case KeyAscii
Case 13
Case 8
Case Else
If Len(cmbJyouken1.Text) >= 2 Then
KeyAscii = 0
End If
End Select
可这样一做的话，当光标选中combobox中的内容的话，那么我只能用backspace或delete去除先前我输的内容，而不能通过打其它的内容，然后覆盖，怎么才能覆盖呵

[zhengoodman]

改combobox的format属性应该可以，我没试

[of123]

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const CB_LIMITTEXT = &H141

Private Sub Form_Load()
Const Max_Char = 2
Call SendMessage(cmbJyouken1.hWnd, CB_LIMITTEXT, Max_Char, 0&)
End Sub

[qinyf82]

怎么改呵！代码怎么写呵

[qinyf82]

不行吗？

[qinyf82]

应该怎么写呵