![]() |
|
Tipp 0019
|
Eingaben mit großen Anfangsbuchstaben
|
 |
|
Autor/Einsender:
Datum: |
|
Detlev Schubert
14.01.2001 |
|
| Entwicklungsumgebung: |
|
VB 5 |
|
|
|
Für bestimmte Anwendungen wie z.B. Adressverwaltungen ist es ganz angenehm, dass bei der
Eingabe in Textfeldern wie Name, Ortsnamen usw. jeweils der Anfangsbuchstabe automatisch
ein Großbuchstabe ist.
|
|
Mit einem einfachen Trick im Text_Change-Ereignis geht das schon automatisch bei der Eingabe.
|
|
| |
Option Explicit
Private Sub Text1_Change(Index As Integer)
If Text1(Index).Tag = "" Then
Text1(Index).Tag = Text1(Index).SelStart
Text1(Index).Tag = StrConv(Text1(Index).Text, vbProperCase)
Text1(Index).Text = Text1(Index).Tag
Text1(Index).SelStart = Len(Text1(Index).Tag)
Text1(Index).Tag = ""
End If
End Sub
|
|
|
|
|
|
Mit kleinen Anpassungen bzgl. des TextBox-Change-Ereignisses (in VBA gibt es keine Steuerelementfelder)
funktioniert der hier abgebildete Code auch in einem VBA-Projekt. Dieser muss dazu in den VB-Editor
der entsprechenden Anwendung kopiert werden. Ein Import der im Download enthaltenen *.frm-Datei ist
nicht möglich.
|
|
| |
Private Sub TextBox1_Change()
If TextBox1.Tag = "" Then
TextBox1.Tag = TextBox1.SelStart
TextBox1.Tag = StrConv(TextBox1.Text, vbProperCase)
TextBox1.Text = TextBox1.Tag
TextBox1.SelStart = Len(TextBox1.Tag)
TextBox1.Tag = ""
End If
End Sub
|
|
|
|
|
|
|
| Windows-Version |
| 95 |
 |
|
| 98/SE |
|
|
| ME |
|
|
| NT |
|
|
| 2000 |
|
|
| XP |
|
|
| Vista |
|
|
| Win
7 |
|
|
|
| VB-Version |
| VBA 5 |
|
|
| VBA 6 |
|
|
| VB 4/16 |
|
|
| VB 4/32 |
|
|
| VB 5 |
|
|
| VB 6 |
|
|
|
|
Download (1,9 kB)
|
Downloads bisher: [ 869 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 