Binaryworld - Implement a MaxLength property for the ComboBox control ... [ VB -> Forms & Controls ]

Unlike the TextBox control, the ComboBox control doesn't expose any MaxLength property, so you have no means of limiting the numbers of characters typed by the end user in the edit area. However you can set this value by sending a CB_LIMITTEXT message to the control, passing the maximum number of characters in the wParam argument. The following code encapsulates this feature in a reausable routine:

Click here to copy the following block

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
  hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
  lParam As Any) As Long
Const CB_LIMITTEXT = &H141

' Set the maximum number of characters that can be entered in a ComboBox control

Sub SetComboMaxLength(ComboBox As ComboBox, ByVal lMaxLength As Long)
  SendMessageLong ComboBox.hWnd, CB_LIMITTEXT, lMaxLength, Byval 0&)
End Sub