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:	Views:  15.255
www.phsoftware.de	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

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

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.