Eingabelänger der ComboBox begrenzen II Eine weitere Variante, wie sich die Eingabelänge einer ComboBox auf eine bestimmte Anzahl Zeichen begrenzen lässt.
Autor:   Philipp Heinze	Bewertung:     [ Jetzt bewerten ]	Views:  15.252
www.phsoftware.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 20 Bewertung insgesamt: mittelmäßig Durchschnittliche Bewertung: 2.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Nachfolgend zeigen wir Ihnen, wie sich mit reinen VB-Boardmitteln die Eingabelänge einer editierbaren ComboBox auf eine eine maximale Anzahl Zeichen begrenzen lässt - trotz fehlender MaxLength-Eigenschaft.

Dieses Thema wurde bereits vor langer Zeit schon einmal aufgegriffen - allerdings über den Umweg des Windows-API:  Eingabelänge einer ComboBox begrenzen.

Es geht aber auch ohne API-Funktionen

Private Sub Combo1_Change()
  ' hier legen sie die Maximal Länge fest
  Const MaxLength As Integer = 6
 
  With Combo1
    If Len(.Text) > MaxLength Then
      ' wenn Text länger als MaxLenght ist,
      ' Text autom. abschneiden
      .Text = Mid$(.Text, 1, MaxLength)
      .SelStart = Len(.Text)
    End If
  End With
End Sub

Private Sub Combo1_Click()
  ' Beim Auswählen eines Eintrages wird das
  ' Change-Event nicht autom. ausgelöst!
  Combo1_Change
End Sub