Beperken aantal regels in Textbox

Status
Niet open voor verdere reacties.
T

toonp

Nieuwe gebruiker
Lid geworden
18 nov 2008
Berichten
3
Hallo,

Weet iemand hoe ik in VBA-Word het aantal in te vullen regels in een textbox kan beperken?
In VB met .hwnd goed te doen, maar ik zoek tevergeefs naar een mogelijkheid in VBA.

Bedankt alvast.
 
Misschien via een workaround door het aantal inputs te tellen en indien > [max. aantal] een foutmelding geven?

Wellicht iets als:
Code: 
if combobox1.listcount >= max_aantal then
    msgbox "maximum aantal bereikt"
    combobox1.removeitem(combobox1.listcount)
end if

Succes!
 
Als het over tekstvakken in een Worddocument gaat, die maximaal 20 tekens mogen bevatten:
Code: 
Sub Macro12()
  For Each sh In ActiveDocument.Shapes
    If sh.Type = msoTextBox Then sh.TextFrame.TextRange = Left(sh.TextFrame.TextRange, [COLOR="Teal"]20[/COLOR])
  Next
End Sub
 
Heren,

Hartelijk dank voor jullie reactie.
Maar, het betreft een Textbox; en die kent geen .listcount.
En het gaat me meer om het aantal regels dan om het aantal tekens per regel.

Het betreft NAW-gegevens, en het is mijn bedoeling de invoer tot maximaal 6 regels te beperken in verband met de hoogte van het venster in de envelop.
 
Super!
Prachtig voorbeeld, maar niet helemaal mijn bedoeling.
Ik had juist het gebruik van 1-regelige invoerboxen willen voorkomen; vandaar de multiline textbox.
Maar, je bracht me wel op het idee om dan maar een textbox met vaste hoogte te gaan gebruiken. Compromis, maar aanvaardbaar.

1 Rochefort à dix voor snb!
 
Textbox

Bij eigenschappen staat ergens MaxLength.

Hier kan je de lengte van je textbox bepalen.
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan