Tippseite

VB-Homepage Tipp 137

Kapitälchen [erstes Zeichen eines jeden Wortes] setzen

Ich glaube nicht, das dieser Tipp hier aufgetaucht wäre, wenn ich nicht vor kurzem über ein Projekt gestolpert wäre, das ebenfalls die selbe Funktionalität besaß.
Beim testen ist mir dann aufgefallen, das es eine sehr große Routine hatte, um die Funktion "jeder erste Buchstabe eines Wortes großgeschrieben" zu realisieren.
Und das wollte mir nicht so recht einleuchten, den das erste Zeichen zu ermitteln und mit UCase zu bearbeiten ist ja nun nicht problematisch.

Das was Ihnen nun also hier vorliegt, ist eigentlich nur entstanden um mir zu beweisen, daß es einfacher geht, als wie ich es in dem genannten Projekt gesehen habe. Aber warum sollen Sie's nicht nutzen.

1. Öffnen Sie ein neues Projekt

2. Fügen Sie eine Textbox (Text1) und einen CommandButton (Command1) hinzu.

3. Fügen Sie unter Command1_Click folgende ein:
If Text1 = "" Then Exit Sub

länge = Len(Text1)
Zähler& = 1
On Error GoTo Errorhandler

For i = 1 To länge
   einzel$ = Mid(Text1, Zähler&, 1)
   Zähler& = Zähler& + 1

   If einzel$ = " " Then
      einzel$ = UCase(Mid(Text1, Zähler&, 1))
      gesamt$ = gesamt$ & " " & einzel$
      Zähler& = Zähler& + 1
   Else
      If Zähler& = 2 Then 'erster Buchstabe groß - vorher kein Leerzeichen
         gesamt$ = gesamt$ & UCase(einzel$)
      Else
         gesamt$ = gesamt$ & einzel$
      End If
   End If

Next i

GoTo Ende

Errorhandler:
Text1 = gesamt$
Exit Sub

Ende:
Text1 = gesamt$

4. Wenn Sie nun Ihr Projekt starten, in die Textbox einen Text eingeben und dann den Button drücken, werden alle Anfangszeichen der Wörter in Großbuchstaben umgewandelt.

Tipp-Download

Quelle :