请问有什么好的办法可以限制Combo box中可以输入的字符串长度

Question

谢谢！

Answer 1

在KeyPress事件中写：
Private Sub Combo1_KeyPress(KeyAscii As Integer)
    If KeyAscii > 26 Then
        If Len(Combo1.Text) >= 2 Then
            KeyAscii = 0
        End If
    End If
End Sub

Answer 2

可以用属性：text1.MaxLength =20
还可以自己写函灵数进行控制啊楼上这们老兄，如果只是控制长度还是用dowm属性好吧(讨论一下，我觉得是)

Answer 3

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 LongPrivate Const CB_LIMITTEXT = &H141Private Sub Form_Load()
Const Max_Char = 24
Call SendMessage(Combo1.hWnd, CB_LIMITTEXT, Max_Char, 0&)
End Sub