Begginer question about Combobox

I‘m using VB6.0 and I have a combobox to introduce the year. I want to limit the numer of characters to 4.
Is there any property similar to Maxlength (textbox)in a Combobox.??
Does anybdoy know how to limit the number of characteres to introduce in a Combobox.??

Any advice will be greatly apreciatted.

Thank you very much

There's no direct property to do that, BUT...
You can check the lenght of the text in the EditBox of the ComboBox and if it is 4 then don't allow the user to enter anything else:

Put this on ComboBox KeyPress event:

Code:

---

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    If Len(Combo1.Text) >= 4 And KeyAscii <> vbKeyBack Then
        KeyAscii = 0
    End If
End Sub

---

------------------

Serge

Software Developer
[email protected]
[email protected]
ICQ#: 51055819

You can use SendMessage and CB_LIMITTEXT to simulate MaxLength in a Combo's Edit Box.

Put the following code in the BAS module

Code:

---

Option Explicit

Public Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const CB_LIMITTEXT = &H141

---

Place the ComboBox and a command button on the form. Add the following code.

Code:

---

Option Explicit

Private Sub Command1_Click()
    Dim imaxlength As Integer
   
    imaxlength = 6
   
    Call SetWindowText(Combo1.hwnd, "")
   
    Call SendMessageLong(Combo1.hwnd, CB_LIMITTEXT, imaxlength, 0&)
End Sub

---

Ruchi